More standardization

src/clj/auto_ap/graphql/clients.clj

@@ -3,7 +3,8 @@
             [datomic.api :as d]
             [auto-ap.datomic :refer [uri remove-nils]]
             [auto-ap.graphql.utils :refer [->graphql assert-admin can-see-client?]]
-            [clojure.string :as str])) 
+            [clojure.string :as str]
+            [clojure.tools.logging :as log])) 
 
 (defn assert-client-code-is-unique [code]
   (when (seq (d/query {:query {:find '[?id]
@@ -76,6 +77,7 @@
                                                                          :forecasted-transaction/amount (:amount %)}
                                                                         )
                                                                       (:forecasted_transactions edit_client))]]
+        _ (log/info "upserting client" transactions)
         result @(d/transact (d/connect uri) transactions)]
     (-> result :tempids (get id) (or id) d-clients/get-by-id
         (update :client/location-matches