move instance! to domain

integration-tests
Josha von Gizycki 6 years ago
parent 879345355e
commit df90b486af

@ -179,3 +179,12 @@
(defn delete-link! [uuid] (defn delete-link! [uuid]
(neo4j/exec-query! delete-link (neo4j/exec-query! delete-link
{:uuid uuid})) {:uuid uuid}))
(defn full-instance-by-uuid! [uuid]
(assoc (find-by-uuid! uuid)
:properties
(find-properties! uuid)
:links-out
(outgoing-links! uuid)
:links-in
(incoming-links! uuid)))

@ -40,13 +40,7 @@
(domain-attr/find-by-instance! uuid))) (domain-attr/find-by-instance! uuid)))
(defn instance! [uuid] (defn instance! [uuid]
(assoc (domain/find-by-uuid! uuid) (domain/full-instance-by-uuid! uuid))
:properties
(domain/find-properties! uuid)
:links-out
(domain/outgoing-links! uuid)
:links-in
(domain/incoming-links! uuid)))
(defn show! [uuid req] (defn show! [uuid req]
(view/show! (instance! uuid) req)) (view/show! (instance! uuid) req))

Loading…
Cancel
Save