Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Handle container-name arg correctly in list-container.

This commit is contained in:
Phil Hagelberg 2010-03-26 10:30:55 -07:00
parent a87560113e
commit f17352c70f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
blobstore/src/main/clojure/org/jclouds/blobstore.clj
View File

@ -95,14 +95,15 @@ Options can also be specified for extension modules
:recursive true" :recursive true"
[blobstore & args] [blobstore & args]
(if (blobstore? blobstore) (if (blobstore? blobstore)
(let [options (apply hash-map args) (let [[container-name & args] args
options (apply hash-map args)
list-options (reduce list-options (reduce
(fn [lco [k v]] (fn [lco [k v]]
((list-option-map k) lco v) ((list-option-map k) lco v)
lco) lco)
(ListContainerOptions.) (ListContainerOptions.)
options)] options)]
(.list blobstore (first args) list-options)) (.list blobstore container-name list-options))
(apply list-container *blobstore* blobstore args))) (apply list-container *blobstore* blobstore args)))
(defn create-container (defn create-container
@ -234,7 +235,7 @@ container, name, string -> etag"
download-blob (fn [& args] download-blob (fn [& args]
(if (= (count args) 3) (if (= (count args) 3)
::short-form ::short-form
(class (last args))))) (class (last (butlast args))))))
(defmethod download-blob ::short-form (defmethod download-blob ::short-form
[container-name name target] [container-name name target]