From ccca50d2f1033dbd31be6c79f4e1049c08a315c2 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Tue, 15 Jun 2021 13:56:38 -0700 Subject: [PATCH] properly implemented query --- src/clj/auto_ap/routes/queries.clj | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/clj/auto_ap/routes/queries.clj b/src/clj/auto_ap/routes/queries.clj index 10830bec..26beae29 100644 --- a/src/clj/auto_ap/routes/queries.clj +++ b/src/clj/auto_ap/routes/queries.clj @@ -4,6 +4,7 @@ [auto-ap.datomic.ledger :as d-ledger] [auto-ap.datomic.transactions :as d-transactions] [auto-ap.datomic.vendors :as d-vendors] + [clojure.string :as str] [unilog.context :as lc] [buddy.sign.jwt :as jwt] @@ -103,7 +104,10 @@ obj (s3/list-objects :bucket-name (:data-bucket env) :prefix (str "queries/"))] (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]} {:body (execute-query query-params params)})