Supports assigning vendors to transactions

This commit is contained in:
Bryce Covert
2019-04-11 07:07:31 -07:00
parent 41838d8d78
commit 67eb3cf019
4 changed files with 94 additions and 17 deletions

View File

@@ -1,6 +1,9 @@
(ns auto-ap.graphql.transactions
(:require [auto-ap.graphql.utils :refer [->graphql <-graphql]]
(:require [auto-ap.graphql.utils :refer [->graphql <-graphql assert-can-see-client]]
[auto-ap.datomic.transactions :as d-transactions]
[auto-ap.datomic.vendors :as d-vendors]
[datomic.api :as d]
[auto-ap.datomic :refer [uri]]
[com.walmartlabs.lacinia :refer [execute]]
[com.walmartlabs.lacinia.executor :as executor]
[com.walmartlabs.lacinia.resolve :as resolve]
@@ -20,3 +23,12 @@
(defn edit-transaction [context {{:keys [id vendor_id] :as transaction} :transaction} value]
(assert-can-see-client (:id context) (:db/id (d-transactions/get-by-id id)))
@(d/transact (d/connect uri)
[{:db/id id
:transaction/vendor vendor_id}])
(->graphql (d-transactions/get-by-id id))
#_(->graphql {:id id
:vendor (d-vendors/get-by-id vendor_id) }))