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