|
|
|
|
|
|
37
|
(pr-str (d/q (edn/read-string query) (d/db conn)))
|
37
|
(pr-str (d/q (edn/read-string query) (d/db conn)))
|
|
38
|
(http-error 400 (pr-str {:error "Missing required `q` parameter"}))))
|
38
|
(http-error 400 (pr-str {:error "Missing required `q` parameter"}))))
|
|
39
|
(POST "/facts" [facts]
|
39
|
(POST "/facts" [facts]
|
|
40
|
(pr-str (d/transact conn (read-tx-data facts)))))
|
|
|
|
|
|
40
|
(pr-str (d/transact conn (read-tx-data facts))))
|
|
|
|
41
|
(GET "/entity/:id" [id]
|
|
|
|
42
|
(pr-str (into {} (d/entity (d/db conn) (edn/read-string id))))))
|
|
41
|
|
43
|
|
|
42
|
(def app
|
44
|
(def app
|
|
43
|
(-> app-routes
|
45
|
(-> app-routes
|