notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

properly implemented query

Browse Source
This commit is contained in:
Bryce Covert
2021-06-15 13:56:38 -07:00
parent 92dec3b243
commit ccca50d2f1
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/routes/queries.clj
View File

@@ -4,6 +4,7 @@
[auto-ap.datomic.ledger :as d-ledger] [auto-ap.datomic.ledger :as d-ledger]
[auto-ap.datomic.transactions :as d-transactions] [auto-ap.datomic.transactions :as d-transactions]
[auto-ap.datomic.vendors :as d-vendors] [auto-ap.datomic.vendors :as d-vendors]
[clojure.string :as str]
[unilog.context :as lc] [unilog.context :as lc]
[buddy.sign.jwt :as jwt] [buddy.sign.jwt :as jwt]
@@ -103,7 +104,10 @@
obj (s3/list-objects :bucket-name (:data-bucket env) obj (s3/list-objects :bucket-name (:data-bucket env)
:prefix (str "queries/"))] :prefix (str "queries/"))]
(log/info obj) (log/info obj)
{:body {}})) {:body (->> (:object-summaries obj)
(map (fn [o]
{:last-modified (.toString (:last-modified o))
:key (str/replace (:key o) #"^queries\/" "")})))}))
(GET "/:query-id/results/json" {:keys [query-params identity params]} (GET "/:query-id/results/json" {:keys [query-params identity params]}
{:body (execute-query query-params params)}) {:body (execute-query query-params params)})