test

src/clj/auto_ap/graphql/ledger.clj

@@ -544,7 +544,8 @@
       :client_id       client-id
       :location        location
       :account         account
-      :journal_entries (reduce
+      :journal_entries
+      (first (reduce
               (fn [[acc last-je] je]
                 (let [next-je (assoc je :running_balance
                                      (- (+ (or (:running_balance last-je 0.0) 0.0)
@@ -552,7 +553,7 @@
                                         (or (:credit je 0.0) 0.0)))]
                   [(conj acc next-je) next-je]))
               []
-                        journal-entries)})})
+              journal-entries))})})