Makes integreat run on datomic cloud
This commit is contained in:
@@ -4,7 +4,7 @@
|
||||
[clj-time.coerce :as coerce]
|
||||
[auto-ap.time :as atime]
|
||||
[buddy.auth :refer [throw-unauthorized]]
|
||||
[datomic.api :as d]
|
||||
[datomic.client.api :as dc]
|
||||
[clojure.walk :as walk]
|
||||
[com.walmartlabs.lacinia.util :refer [attach-resolvers]]
|
||||
[clojure.tools.logging :as log]
|
||||
@@ -113,7 +113,7 @@
|
||||
(some->> e name snake->kebab (keyword namespace)))
|
||||
|
||||
(defn get-locked-until [client-id]
|
||||
(:client/locked-until (d/pull (d/db conn) [:client/locked-until] client-id)))
|
||||
(:client/locked-until (dc/pull (dc/db conn) [:client/locked-until] client-id)))
|
||||
|
||||
(defn assert-not-locked [client-id date]
|
||||
(let [locked-until (get-locked-until client-id)]
|
||||
|
||||
Reference in New Issue
Block a user