properly implemented query

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)})