revamped logging!

src/clj/auto_ap/graphql/invoices.clj

@@ -58,7 +58,6 @@
                                           :location location}))
 
 (defn add-invoice-transaction [{:keys [total invoice_number location automatically_paid_when_due client_id vendor_id vendor_name date due expense_accounts] :as in}]
-  (println date)
   (let [vendor (d-vendors/get-by-id vendor_id)
         account (:vendor/default-account vendor)
         _ (when-not (:db/id account)
@@ -119,11 +118,10 @@
 
 (defn edit-invoice [context {{:keys [id due invoice_number total vendor_id date client_id expense_accounts automatically_paid_when_due] :as in} :invoice} value]
   (let [invoice (d-invoices/get-by-id id)
-        _ (when (seq (doto (d-invoices/find-conflicting {:db/id id
-                                                         :invoice/invoice-number invoice_number
-                                                         :invoice/vendor (:db/id (:invoice/vendor invoice))
-                                                         :invoice/client (:db/id (:invoice/client invoice))})
-                       println))
+        _ (when (seq (d-invoices/find-conflicting {:db/id id
+                                                   :invoice/invoice-number invoice_number
+                                                   :invoice/vendor (:db/id (:invoice/vendor invoice))
+                                                   :invoice/client (:db/id (:invoice/client invoice))}))
             (throw (ex-info (str "Invoice '" invoice_number "' already exists.") {:invoice-number invoice_number})))
 
         expense-account-total (reduce + 0 (map (fn [x] (Double/parseDouble (:amount x))) expense_accounts))
@@ -151,7 +149,6 @@
 
 (defn void-invoice [context {id :invoice_id} value]
  (let [invoice (d-invoices/get-by-id id)
-       _ (println invoice)
   _ (assert-can-see-client (:id context) (:db/id (:invoice/client invoice)))
   updated-invoice (d-invoices/update {:db/id id
     :invoice/total 0.0