Add multipart? option to put-blob.

This commit is contained in:
David Santiago 2011-04-06 00:29:22 -05:00
parent aa89a53b86
commit 27189fba21
1 changed files with 4 additions and 2 deletions

View File

@ -224,8 +224,10 @@ Options can also be specified for extension modules
(defn put-blob
"Put a blob. Metadata in the blob determines location."
[^BlobStore blobstore container-name blob]
(.putBlob blobstore container-name blob))
[^BlobStore blobstore container-name blob & {:keys [multipart?]}]
(if multipart?
(.putBlobMultipart blobstore container-name blob)
(.putBlob blobstore container-name blob)))
(defn blob-metadata
"Get metadata from given path"