adding new vendors

2019-02-14 21:18:26 -08:00
parent b5ea345532
commit 7e1de79fea
8 changed files with 202 additions and 4 deletions
--- a/src/clj/auto_ap/datomic/vendors.clj
+++ b/src/clj/auto_ap/datomic/vendors.clj
@@ -3,11 +3,17 @@
            [auto-ap.datomic :refer [uri]]))

 (defn get-graphql [args]
+  (prn (->> (d/q '[:find (pull ?e [*])
+                   :where [?e :vendor/name]]
+                 (d/db (d/connect uri)))
+            (map first)
+            (take 5)))
  
-  (->> (d/q '[:find (pull ?e [*])
-              :where [?e :vendor/name]]
-            (d/db (d/connect uri)))
+       (->> (d/q '[:find (pull ?e [*])
+                   :where [?e :vendor/name]]
+                 (d/db (d/connect uri)))
       (map first)
+       
       #_(map (fn [c]
                (update c :client/bank-accounts
                        (fn [bas]