you can find transactions now

This commit is contained in:
Bryce Covert
2018-08-14 07:53:25 -07:00
parent b5ab860315
commit ed97cf563f
7 changed files with 49 additions and 31 deletions

View File

@@ -1,5 +1,6 @@
(ns auto-ap.graphql.transactions
(:require [auto-ap.graphql.utils :refer [->graphql <-graphql]]
[auto-ap.datomic.transactions :as d-transactions]
[com.walmartlabs.lacinia :refer [execute]]
[com.walmartlabs.lacinia.executor :as executor]
@@ -23,21 +24,15 @@
(defn get-transaction-page [context args value]
(let [args (assoc args :id (:id context))
extra-context
(cond-> {}
(executor/selects-field? context :invoice/vendor) (assoc :vendor-cache (by :id (vendors/get-all)))
(executor/selects-field? context :invoice/company) (assoc :company-cache (by :id (companies/get-all))))
transactions (map
->graphql
(transactions/get-graphql (<-graphql args)))
transactions-count (transactions/count-graphql (<-graphql args))]
(resolve/with-context
[{:transactions transactions
:total transactions-count
:count (count transactions)
:start (:start args 0)
:end (+ (:start args 0) (count transactions))}] extra-context)))
(d-transactions/get-graphql (<-graphql args)))
transactions-count (d-transactions/count-graphql (<-graphql args))]
[{:transactions transactions
:total transactions-count
:count (count transactions)
:start (:start args 0)
:end (+ (:start args 0) (count transactions))}]))