Skip to content

Commit

Permalink
Fix format.
Browse files Browse the repository at this point in the history
  • Loading branch information
whilo committed Dec 2, 2023
1 parent 3e15429 commit 848ebe2
Showing 1 changed file with 9 additions and 9 deletions.
18 changes: 9 additions & 9 deletions src/konserve_s3/core.clj
Original file line number Diff line number Diff line change
Expand Up @@ -253,16 +253,16 @@
(.close client)))))
(-keys [_ env]
(async+sync (:sync? env) *default-sync-translation*
(go-try-
(let [keys (list-objects client bucket)]
(->> (filter (fn [^String key]
(and (.startsWith key store-id)
(or (.endsWith key ".ksv")
(.endsWith key ".ksv.new")
(.endsWith key ".ksv.backup"))))
keys)
(go-try-
(let [keys (list-objects client bucket)]
(->> (filter (fn [^String key]
(and (.startsWith key store-id)
(or (.endsWith key ".ksv")
(.endsWith key ".ksv.new")
(.endsWith key ".ksv.backup"))))
keys)
;; remove store-id prefix
(map #(subs % (inc (count store-id))))))))))
(map #(subs % (inc (count store-id))))))))))

(defn connect-store [s3-spec & {:keys [opts]
:as params}]
Expand Down

0 comments on commit 848ebe2

Please sign in to comment.