moved to transducer, fixed export.

2019-08-31 07:48:27 -07:00
parent 8a9300e928
commit 051280970f
1 changed files with 6 additions and 1 deletions
--- a/src/clj/auto_ap/routes/exports.clj
+++ b/src/clj/auto_ap/routes/exports.clj
@@ -56,7 +56,12 @@
                  (map <-graphql (d-vendors/get-graphql {})))
             (GET "/ledger/export" {:keys [query-params identity]}
                  (assert-admin identity)
-                  (map <-graphql (d-ledger/get-graphql {})))
+                  (transduce (comp
+                              (map #(update % :journal-entry/date to-date))
+                              (map <-graphql))
+                             conj
+                             (list)
+                             (first (d-ledger/get-graphql {}))))

             (GET "/transactions/export" {:keys [query-params identity]}
                  (assert-admin identity)