[Fencommits] fenserve: oops, make Storm.hs compile again

[Benja Fallenstein]

Sat Mar 31 20:31:10 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * oops, make Storm.hs compile again
diff -rN -u old-fenserve/Storm.hs new-fenserve/Storm.hs
--- old-fenserve/Storm.hs	2007-03-31 20:31:29.000000000 +0300
+++ new-fenserve/Storm.hs	2007-03-31 20:31:29.000000000 +0300
@@ -63,7 +63,7 @@
                (\dir' -> liftIO $ ByteString.readFile $ dir'++"/"++blockId bid)
                (poolDir pool)
 
-    addBlock body = let id' = BlockId $ sha1 $ ByteString.unpack body
+    addBlock body = let id' = BlockId $ sha1 body
                      in modify (u_poolMap $ Map.insert id' body) >> return id'
         where u_poolMap f p = p { poolMap = f (poolMap p) }