diff options
| author | Alex Auvolat <alex@adnab.me> | 2023-04-19 15:59:30 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex@adnab.me> | 2023-10-18 12:03:11 +0200 |
| commit | 0bb1577ae12b2dde313e036399f252266bc04d0a (patch) | |
| tree | d45695a18af7bb7e8080b20897887af144ca7ee6 /script/jepsen.garage/src/jepsen/garage/grg.clj | |
| parent | 6eb26be548c08707b59473e6086f3f5eee89fe47 (diff) | |
| download | garage-0bb1577ae12b2dde313e036399f252266bc04d0a.tar.gz garage-0bb1577ae12b2dde313e036399f252266bc04d0a.zip | |
two set workloads with different checkers
Diffstat (limited to 'script/jepsen.garage/src/jepsen/garage/grg.clj')
| -rw-r--r-- | script/jepsen.garage/src/jepsen/garage/grg.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/script/jepsen.garage/src/jepsen/garage/grg.clj b/script/jepsen.garage/src/jepsen/garage/grg.clj index 2e9bcc72..4597fb14 100644 --- a/script/jepsen.garage/src/jepsen/garage/grg.clj +++ b/script/jepsen.garage/src/jepsen/garage/grg.clj @@ -120,10 +120,11 @@ (defn s3-list "Helper for ListObjects -- just lists everything in the bucket" - [creds] + [creds prefix] (defn list-inner [ct accum] (let [list-result (s3/list-objects-v2 creds {:bucket-name (:bucket creds) + :prefix prefix :continuation-token ct}) new-object-summaries (:object-summaries list-result) new-objects (map (fn [d] (:key d)) new-object-summaries) |