added graphs

src/clj/auto_ap/datomic.clj

@@ -749,3 +749,15 @@
 
 (defn migrate-users [conn]
   [(load-users (users/get-all))])
+
+(defn merge-query [query-part-1 query-part-2]
+  (-> query-part-1
+      (update-in [:query :find] into (get-in query-part-2 [:query :find]))
+      (update-in [:query :in] into (get-in query-part-2 [:query :in]))
+      (update-in [:query :where] into (get-in query-part-2 [:query :where]))
+      (update-in [:args] into (get-in query-part-2 [:args]))))
+
+
+
+
+