(cloud) moves pay to datomic ions.

src/clj/auto_ap/graphql/checks.clj

@@ -3,7 +3,7 @@
    [amazonica.aws.s3 :as s3]
    [auto-ap.datomic :refer [conn remove-nils plus pull-many audit-transact]]
    [auto-ap.datomic.accounts :as a]
-   [iol-ion.tx :refer [upsert-invoice]]
+   [iol-ion.tx :refer [upsert-invoice pay]]
    [auto-ap.datomic.bank-accounts :as d-bank-accounts]
    [auto-ap.datomic.checks :as d-checks]
    [auto-ap.datomic.clients :as d-clients]
@@ -230,7 +230,7 @@
             [{:invoice-payment/payment (-> invoice :invoice/vendor :db/id str)
               :invoice-payment/amount invoice-amount
               :invoice-payment/invoice (:db/id invoice)}
-             `(d-checks/pay ~(:db/id invoice) ~invoice-amount)])
+             `(pay ~(:db/id invoice) ~invoice-amount)])
        (reduce into [])))
 
 (defn base-payment [invoices vendor client bank-account _ _ invoice-amounts]
@@ -759,8 +759,7 @@
    :mutation/void-payments void-payments
    :mutation/print-checks print-checks
    :mutation/pay-invoices-from-balance pay-invoices-from-balance
-   :mutation/add-handwritten-check add-handwritten-check
-   })
+   :mutation/add-handwritten-check add-handwritten-check})
 
 (defn attach [schema]
   (->