From aa1090e5412b6a7943abba1f07e8e71783c1a670 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 16 Nov 2022 12:58:15 -0800 Subject: [PATCH] attempt. --- src/clj/auto_ap/graphql/ledger.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj index 6cea8abb..6f7a041f 100644 --- a/src/clj/auto_ap/graphql/ledger.clj +++ b/src/clj/auto_ap/graphql/ledger.clj @@ -546,7 +546,7 @@ (- (or (reduce + 0.0 (map #(or (:credit %) 0.0) all-journal-entries)) 0.0) (or (reduce + 0.0 (map #(or (:debit %) 0.0) all-journal-entries)) 0.0)) ) journal-entries-by-account (group-by #(account-lookup (get-in % [:account :id])) all-journal-entries)] - [account journal-entries] (conj journal-entries-by-account [nil all-journal-entries]) + [account journal-entries] (conj (vec journal-entries-by-account) [nil all-journal-entries]) :let [journal-entries (first (reduce (fn [[acc last-je] je] (let [next-je (assoc je :running_balance