adding transaction rules.
This commit is contained in:
8
src/clj/auto_ap/graphql/transaction_rules.clj
Normal file
8
src/clj/auto_ap/graphql/transaction_rules.clj
Normal file
@@ -0,0 +1,8 @@
|
||||
(ns auto-ap.graphql.transaction-rules
|
||||
(:require [auto-ap.datomic.transaction-rules :as tr]
|
||||
[auto-ap.graphql.utils :refer [->graphql <-graphql limited-clients assert-admin result->page]]))
|
||||
|
||||
(defn get-transaction-rule-page [context args value]
|
||||
(let [args (assoc args :id (:id context))
|
||||
[journal-entries journal-entries-count] (tr/get-graphql (<-graphql args))]
|
||||
(result->page journal-entries journal-entries-count :transaction_rules args)))
|
||||
Reference in New Issue
Block a user