diff --git a/src/wanijo/framework/neo4j.clj b/src/wanijo/framework/neo4j.clj
index a32a539..6e1c3ed 100644
--- a/src/wanijo/framework/neo4j.clj
+++ b/src/wanijo/framework/neo4j.clj
@@ -37,6 +37,17 @@
params))
(qry session params)))
+(defn exec-queries! [& tuples]
+ (with-open [session (db/get-session @conn)]
+ (doseq [tuple tuples]
+ (let [qry (first tuple)
+ params (second tuple)]
+ (devmode/send-to-bar
+ (str (butiful-query qry)
+ "
---Params---
"
+ params))
+ (qry session params)))))
+
(defn now-str []
(time-format/unparse
(time-format/formatters :basic-date-time)
diff --git a/src/wanijo/schema/domain.clj b/src/wanijo/schema/domain.clj
index c946314..d60da92 100644
--- a/src/wanijo/schema/domain.clj
+++ b/src/wanijo/schema/domain.clj
@@ -155,12 +155,11 @@
CREATE (s)<-[:permission{type:{permtype}}]-(u)")
(defn assign-users! [uuid users permission]
- (neo4j/exec-query!
- remove-assignments
- {:uuid uuid
- :permtype permission})
- (neo4j/exec-query!
- create-assignments
- {:uuid uuid
- :users users
- :permtype permission}))
+ (neo4j/exec-queries!
+ [remove-assignments
+ {:uuid uuid
+ :permtype permission}]
+ [create-assignments
+ {:uuid uuid
+ :users users
+ :permtype permission}]))