From 417a4f28d3d1d8f17a205bbae76956a239f04a39 Mon Sep 17 00:00:00 2001 From: Josha von Gizycki Date: Tue, 18 Sep 2018 13:47:01 +0200 Subject: [PATCH] move assigned-users-assoc to domain --- src/wanijo/schema/domain.clj | 4 ++++ src/wanijo/schema/routes.clj | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/wanijo/schema/domain.clj b/src/wanijo/schema/domain.clj index bcaf82a..462f136 100644 --- a/src/wanijo/schema/domain.clj +++ b/src/wanijo/schema/domain.clj @@ -126,3 +126,7 @@ (neo4j/exec-query! assigned-users {:uuid uuid}))) + +(defn find-with-assigned-users! [uuid] + (assoc (find-by-uuid! uuid) + :assigned (map :uuid (assigned-users! uuid)))) diff --git a/src/wanijo/schema/routes.clj b/src/wanijo/schema/routes.clj index 3bc58f7..6aba681 100644 --- a/src/wanijo/schema/routes.clj +++ b/src/wanijo/schema/routes.clj @@ -38,8 +38,7 @@ (defn view! [uuid req] (view-schema/show-schema! - (assoc (domain/find-by-uuid! uuid) - :assigned (map :uuid (domain/assigned-users! uuid))) + (domain/find-with-assigned-users! uuid) (domain-attr/find-by-schema! uuid) (assoc-in view-schema/access-form [:fields :assigned :options]