notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more datomic perf improvements

Browse Source
This commit is contained in:
BC
2019-01-24 21:56:15 -08:00
parent 78364e6e66
commit 03051ab3c6
2 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -69,17 +69,12 @@
(defn get-graphql [args] (defn get-graphql [args]
(let [ids-to-retrieve (->> (raw-graphql-ids args) (let [ids-to-retrieve (->> (raw-graphql-ids args)
(apply-sort args)) (apply-sort args))
matching-count (count ids-to-retrieve) matching-count (count ids-to-retrieve)
ids-to-retrieve (apply-pagination args ids-to-retrieve )] ids-to-retrieve (apply-pagination args ids-to-retrieve )]
[(graphql-results ids-to-retrieve args) [(graphql-results ids-to-retrieve args)
matching-count] matching-count]))
#_(time (->> (graphql-results ids-to-retrieve args)
(apply-sort args)))))
(defn count-graphql [args]
(->> (raw-graphql-ids args)
(count)))

3
src/clj/auto_ap/graphql/transactions.clj
View File

@@ -8,9 +8,8 @@
[auto-ap.time :refer [parse normal-date]])) [auto-ap.time :refer [parse normal-date]]))
(defn get-transaction-page [context args value] (defn get-transaction-page [context args value]
(println "TRANSACTION PAGE")
(let [args (assoc args :id (:id context)) (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 (map ->graphql transactions)]
[{:transactions transactions [{:transactions transactions
:total transactions-count :total transactions-count