From dba85d84dd3f23a5befcea22cc2cd679508e3a06 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <technomancy@gmail.com>
Date: Fri, 12 Mar 2010 14:11:08 -0800
Subject: [PATCH] Automatically generate MD5 of payload in create-blob
 function.

---
 blobstore/src/main/clojure/org/jclouds/blobstore.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/blobstore/src/main/clojure/org/jclouds/blobstore.clj b/blobstore/src/main/clojure/org/jclouds/blobstore.clj
index ef7499fe6b..e056b85f45 100644
--- a/blobstore/src/main/clojure/org/jclouds/blobstore.clj
+++ b/blobstore/src/main/clojure/org/jclouds/blobstore.clj
@@ -242,7 +242,8 @@ container, name, string -> etag
   ([blobstore container-name name data]
      (put-blob blobstore container-name
                (doto (.newBlob blobstore name)
-                 (.setPayload data)))))
+                 (.setPayload data)
+                 (.generateMD5)))))
 
 (defmulti #^{:arglists '[[container-name name target]
                          [blobstore container-name name target]]}