                   :default {:bucket "kingjames-beta"
                             :region "us-east-1"
                             :profile "default"}}}
-  [{dir :_ force :force whatif :whatif delete :delete bucket :bucket region :region profile :profile verbose :verbose :as f}]
+  [{dir :_ force :force whatif :whatif delete :delete bucket :bucket region :region profile :profile verbose :verbose}]
   (go
     (if (not= (count dir) 1)
       ["<dir> parameter required." nil]

(defn perform-actions [n coll]
  (go
    (let [ch (to-chan coll)
          workers (->> (range n) (map (fn [_] (perform-action ch))) (vec))]
      (let [results (<! (async/map (fn [err _] err) workers))
            err (reduce #(or %1 %2) nil results)
            res (if err nil true)]
        [err res]))))

(defn object-props [content-type max-age]
  {:content-type content-type

                          (concat
                            (map #(make-copy-file-action s3 % whatif verbose) onlylocal)
                            (->> onlyremote
                                 (map (fn [[key _]] key))
                                 (filter #(not (re-find remote-key-white-list %)))
                                 (partition-all 1000)
                                 (map #(make-delete-file-action s3 % delete whatif verbose)))
                            (map #(make-update-file-action s3 % force whatif verbose) both))
