making transactions usable.

2019-01-24 21:52:12 -08:00
parent bf6fc06244
commit 78364e6e66
2 changed files with 50 additions and 21 deletions
--- a/src/clj/auto_ap/graphql/transactions.clj
+++ b/src/clj/auto_ap/graphql/transactions.clj
@@ -10,10 +10,8 @@
 (defn get-transaction-page [context args value]
  (println "TRANSACTION PAGE")
  (let [args (assoc args :id (:id context))
-        transactions (map
-                  ->graphql
-                  (d-transactions/get-graphql (doto (<-graphql args) println)))
-        transactions-count (d-transactions/count-graphql (<-graphql args))]
+        [transactions transactions-count] (time (d-transactions/get-graphql (<-graphql args)))
+        transactions (map ->graphql transactions)]
    [{:transactions transactions
       :total transactions-count
       :count (count transactions)