more datomic perf improvements
This commit is contained in:
@@ -8,9 +8,8 @@
|
||||
[auto-ap.time :refer [parse normal-date]]))
|
||||
|
||||
(defn get-transaction-page [context args value]
|
||||
(println "TRANSACTION PAGE")
|
||||
(let [args (assoc args :id (:id context))
|
||||
[transactions transactions-count] (time (d-transactions/get-graphql (<-graphql args)))
|
||||
[transactions transactions-count] (d-transactions/get-graphql (<-graphql args))
|
||||
transactions (map ->graphql transactions)]
|
||||
[{:transactions transactions
|
||||
:total transactions-count
|
||||
|
||||
Reference in New Issue
Block a user