Automatically generate MD5 of payload in create-blob function.

This commit is contained in:
Phil Hagelberg 2010-03-12 14:11:08 -08:00
parent 40447696c7
commit dba85d84dd
1 changed files with 2 additions and 1 deletions

View File

@ -242,7 +242,8 @@ container, name, string -> etag
([blobstore container-name name data] ([blobstore container-name name data]
(put-blob blobstore container-name (put-blob blobstore container-name
(doto (.newBlob blobstore name) (doto (.newBlob blobstore name)
(.setPayload data))))) (.setPayload data)
(.generateMD5)))))
(defmulti #^{:arglists '[[container-name name target] (defmulti #^{:arglists '[[container-name name target]
[blobstore container-name name target]]} [blobstore container-name name target]]}