bump deps

Author: jumblerg

README.md

@@ -4,7 +4,7 @@ a boot task for spewing files into an S3 bucket.
 
 [](dependency)
 ```clojure
-[tailrecursion/boot-bucket "2.1.0"] ;; latest release
+[tailrecursion/boot-bucket "2.1.1"] ;; latest release
 ```
 [](/dependency)
 
@@ -93,6 +93,7 @@ with [boot-front][1] for deployments:
   serve {:port 3001}
   sift  {:include #{#"index.html.out/" #"<app-ns>/"} :invert true}
   spew  {:canned-acl :public-read
+	       :region     "us-east-1"
          :access-key (System/getenv "<AWS_ACCESS_KEY_ENV_VAR>")
          :secret-key (System/getenv "<AWS_SECRET_KEY_ENV_VAR>")}
   burst {:access-key (System/getenv "<AWS_ACCESS_KEY_ENV_VAR>")
@@ -108,6 +109,7 @@ an `index.html.js` artifact that was compressed upstream by another task like
 ```clojure
 (spew
  :canned-acl :public-read
+ :region     "us-east-1"
  :access-key "<aws-access-key>"
  :secret-key "<aws-secret-key>"
  :metadata   {"index.html.js" {:content-encoding "gzip"}})

build.boot

@@ -6,7 +6,7 @@
 (require
   '[adzerk.bootlaces :refer :all])
 
-(def +version+ "2.1.0")
+(def +version+ "2.1.1")
 
 (bootlaces! +version+)
 

src/tailrecursion/boot_bucket.clj

@@ -6,7 +6,7 @@
     [boot.util :as util]))
 
 (def ^:private deps
-  '[[com.amazonaws/aws-java-sdk-s3 "1.11.419"]])
+  '[[com.amazonaws/aws-java-sdk-s3 "1.11.723"]])
 
 (defn- warn-deps [deps]
   (let [conflict (delay (util/warn "Overriding project dependencies, using:\n"))]
@@ -24,7 +24,7 @@
 
 (boot/deftask spew
   [b bucket NAME           str "AWS Bucket Identifier"
-   r region REGION         str "AWS Region to connect through (the bucket is global)"
+   r region REGION         str "AWS Region."
    a access-key ACCESS_KEY str "AWS Access Key"
    s secret-key SECRET_KEY str "AWS Secret Key"
    c canned-acl ACL        kw  "A keyword indicating which predefined ACL should be used"
@@ -33,18 +33,18 @@
        out  (boot/tmp-dir!)
        opts (assoc *opts* :region (or region "us-east-1"))]
   (boot/with-pre-wrap fileset
-    (util/info "Spewing files into the %s bucket through region %s...\n" bucket (opts :region))
+    (util/info "Spewing files into the %s bucket in region %s...\n" bucket (opts :region))
     (let [src-files*  (boot/output-files fileset)
           tgt-digests (pod/with-call-in pod
                         (tailrecursion.boot-bucket.client/list-digests ~opts))
           src-files   (remove #(some (fn [[p h]] (and (= (:path %) p) (= (:hash %) h))) tgt-digests) src-files*)
           fut-paths   (atom [])]
       (when (empty? src-files) (util/info "■ no changed files to upload\n"))
       (doseq [{:keys [dir path]} src-files]
-        (->> (tailrecursion.boot-bucket.client/put-file! ~opts ~(.getPath dir) ~path)
+        (->> (tailrecursion.boot-bucket.client/put-file! ~opts ~(.getPath dir) ~path
                (pod/with-call-in pod)
                (future)
-               (swap! fut-paths conj)))
+               (swap! fut-paths conj))))
       (doseq [fut-path @fut-paths]
         (util/info "• %s\n" @fut-path))
       (boot/add-meta fileset (into {} (mapv #(vector (:path %) {::uploaded true}) src-files)))))))