everything is audited, and we have expected deposits

This commit is contained in:
Bryce Covert
2020-09-04 19:53:54 -07:00
parent 11f61464f5
commit 85dec7a407
2 changed files with 121 additions and 0 deletions

View File

@@ -0,0 +1,16 @@
(ns auto-ap.graphql.expected-deposit
(:require [auto-ap.datomic.expected-deposit :as d-expected-deposit]
[auto-ap.graphql.utils
:refer
[->graphql <-graphql assert-admin result->page]]))
(defn get-expected-deposit [context args value]
(let [args (assoc args :id (:id context))
[sales-orders sales-orders-count] (d-expected-deposit/get-graphql (<-graphql args))]
(result->page sales-orders sales-orders-count :data args )))
(defn get-all-expected-deposits [context args value]
(assert-admin (:id context))
(map
->graphql
(first (d-expected-deposit/get-graphql (assoc (<-graphql args) :count Integer/MAX_VALUE)))))