notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

made cloud tests work again.

Browse Source
This commit is contained in:
Bryce Covert
2023-05-01 20:21:58 -07:00
parent 721596d6f9
commit f2025c2e65
14 changed files with 62 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/clj/auto_ap/datomic/bank_accounts.clj
View File

@@ -10,7 +10,7 @@
(update-in [:query :where] conj where))]
(reduce #(update-in %1 [:query :where] conj %2) query rest)))
(def default-read '(pull ?e [* {:client/_bank-accounts [:db/id]}]))
(def default-read '[* {:client/_bank-accounts [:db/id]}])
(defn <-datomic [x]
(->> x
@@ -20,7 +20,7 @@
(defn get-by-id [id]
(->> [(dc/pull (dc/db conn default-read id))]
(->> [(dc/pull (dc/db conn ) default-read id)]
(<-datomic)
(first)))

4
src/clj/auto_ap/graphql/invoices.clj
View File

@@ -311,7 +311,7 @@
:invoice/total 0.0
:invoice/outstanding-balance 0.0
:invoice/status :invoice-status/voided
:invoice/expense-accounts (map
:invoice/expense-accounts (mapv
(fn [iea]
{:db/id (:db/id iea)
:invoice-expense-account/amount 0.0})
@@ -342,7 +342,7 @@
:invoice/total total
:invoice/status original-status
:invoice/outstanding-balance original-outstanding)
(update :invoice/expense-accounts conj {:db/id expense-account :invoice-expense-account/amount expense-account-amount})))
(update :invoice/expense-accounts (fnil conj []) {:db/id expense-account :invoice-expense-account/amount expense-account-amount})))
{}))]]
(:id context))