simplified client form.

2020-05-30 12:28:35 -07:00
parent bb2df01d89
commit ad4054d820
2 changed files with 127 additions and 198 deletions
--- a/src/clj/auto_ap/graphql.clj
+++ b/src/clj/auto_ap/graphql.clj
@@ -904,7 +904,7 @@

 (defn get-cash-flow [context {:keys [client_id]} value]
  (when client_id
-    (let [{:client/keys [weekly-credits weekly-debits ]} (doto (d/pull (d/db (d/connect uri)) '[*] client_id ) println)
+    (let [{:client/keys [weekly-credits weekly-debits ]} (d/pull (d/db (d/connect uri)) '[*] client_id )
          total-cash (reduce
                      (fn [total [credit debit]]
                        (- (+ total credit)