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"
[blobstore & args]
(if (blobstore? blobstore)
(let [options (apply hash-map args)
(let [[container-name & args] args
options (apply hash-map args)
list-options (reduce
(fn [lco [k v]]
((list-option-map k) lco v)
lco)
(ListContainerOptions.)
options)]
(.list blobstore (first args) list-options))
(.list blobstore container-name list-options))
(apply list-container *blobstore* blobstore args)))
(defn create-container
@ -234,7 +235,7 @@ container, name, string -> etag"
download-blob (fn [& args]
(if (= (count args) 3)
::short-form
(class (last args)))))
(class (last (butlast args))))))
(defmethod download-blob ::short-form
[container-name name target]