moved to transducer, fixed export.
This commit is contained in:
@@ -56,7 +56,12 @@
|
|||||||
(map <-graphql (d-vendors/get-graphql {})))
|
(map <-graphql (d-vendors/get-graphql {})))
|
||||||
(GET "/ledger/export" {:keys [query-params identity]}
|
(GET "/ledger/export" {:keys [query-params identity]}
|
||||||
(assert-admin 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]}
|
(GET "/transactions/export" {:keys [query-params identity]}
|
||||||
(assert-admin identity)
|
(assert-admin identity)
|
||||||
|
|||||||
Reference in New Issue
Block a user