|
|
@ -5,7 +5,8 @@
|
|
|
|
[clj-time.local :as time-local]
|
|
|
|
[clj-time.local :as time-local]
|
|
|
|
[clojure.spec.alpha :as spec]
|
|
|
|
[clojure.spec.alpha :as spec]
|
|
|
|
[clojure.string :as cljs])
|
|
|
|
[clojure.string :as cljs])
|
|
|
|
(:import (java.util UUID)))
|
|
|
|
(:import (java.util UUID)
|
|
|
|
|
|
|
|
(java.net URI)))
|
|
|
|
|
|
|
|
|
|
|
|
(spec/def ::date-str
|
|
|
|
(spec/def ::date-str
|
|
|
|
#(re-matches #"\d{4}\d{2}\d{2}T\d{2}\d{2}\d{2}\.\d{3}Z" %))
|
|
|
|
#(re-matches #"\d{4}\d{2}\d{2}T\d{2}\d{2}\d{2}\.\d{3}Z" %))
|
|
|
@ -29,7 +30,7 @@
|
|
|
|
(create-conn! port host user pass)))
|
|
|
|
(create-conn! port host user pass)))
|
|
|
|
([port host user pass]
|
|
|
|
([port host user pass]
|
|
|
|
(db/connect
|
|
|
|
(db/connect
|
|
|
|
(str "bolt://" host ":" port)
|
|
|
|
(URI. (str "bolt://" host ":" port))
|
|
|
|
user
|
|
|
|
user
|
|
|
|
pass)))
|
|
|
|
pass)))
|
|
|
|
|
|
|
|
|
|
|
@ -65,7 +66,7 @@
|
|
|
|
(str (butiful-query qry)
|
|
|
|
(str (butiful-query qry)
|
|
|
|
"<br>---Params---<br>"
|
|
|
|
"<br>---Params---<br>"
|
|
|
|
params))
|
|
|
|
params))
|
|
|
|
(qry session params))))
|
|
|
|
(doall (qry session params)))))
|
|
|
|
|
|
|
|
|
|
|
|
(spec/def ::tuple-query-list
|
|
|
|
(spec/def ::tuple-query-list
|
|
|
|
(spec/coll-of
|
|
|
|
(spec/coll-of
|
|
|
|