|
|
@ -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))
|
|
|
|