mostly supporting showing when something cleared.

src/clj/auto_ap/datomic/invoices.clj

@@ -18,7 +18,8 @@
                              {:invoice/client [:client/name :db/id :client/locations]}
                              {:invoice/vendor [:vendor/name :db/id]}
                              {:invoice/status [:db/ident]}
-                             {:invoice-payment/_invoice [* {:invoice-payment/payment [*]}]}]))
+                             {:invoice-payment/_invoice [* {:invoice-payment/payment [* {:payment/status [*]}
+                                                                                      {:transaction/_payment [*]}]}]}]))
 
 (defn <-datomic [x]
   (->> x

src/clj/auto_ap/graphql.clj

@@ -30,7 +30,9 @@
   {
    :scalars {:id {
                   :parse (schema/as-conformer #(Long/parseLong %))
-                  :serialize (schema/as-conformer #(.toString %))}} 
+                  :serialize (schema/as-conformer #(.toString %))}
+             :ident {:parse (schema/as-conformer (fn [x] {:ident x})) 
+                     :serialize (schema/as-conformer #(do (println %) (:ident %)))}}
    :objects
    {
     :client
@@ -109,7 +111,8 @@
                      :memo {:type 'String}
                      :s3_url {:type 'String}
                      :check_number {:type 'Int}
-                     :status {:type 'String}
+                     :status {:type :ident}
+                       :transaction {:type :transaction}
                      :invoices {:type '(list :invoice_payment)}
                      }}