diff --git a/src/clj/auto_ap/datomic/transactions.clj b/src/clj/auto_ap/datomic/transactions.clj index c3d05590..7b8b8662 100644 --- a/src/clj/auto_ap/datomic/transactions.clj +++ b/src/clj/auto_ap/datomic/transactions.clj @@ -69,17 +69,12 @@ (defn get-graphql [args] - (let [ids-to-retrieve (->> (raw-graphql-ids args) (apply-sort args)) matching-count (count ids-to-retrieve) ids-to-retrieve (apply-pagination args ids-to-retrieve )] [(graphql-results ids-to-retrieve args) - matching-count] - #_(time (->> (graphql-results ids-to-retrieve args) - (apply-sort args))))) + matching-count])) + -(defn count-graphql [args] - (->> (raw-graphql-ids args) - (count))) diff --git a/src/clj/auto_ap/graphql/transactions.clj b/src/clj/auto_ap/graphql/transactions.clj index 089da9d0..5d01aff7 100644 --- a/src/clj/auto_ap/graphql/transactions.clj +++ b/src/clj/auto_ap/graphql/transactions.clj @@ -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