[add 'emptyHash' to SHA1
John Meacham <john@repetae.net>**20070622005531] hunk ./Util/SHA1.hs 28
-module Util.SHA1 (sha1file,sha1Handle,ABCDE(..),Hash) where
+module Util.SHA1 (sha1file,sha1Handle,ABCDE(..),Hash,emptyHash) where
hunk ./Util/SHA1.hs 33
-import Data.Bits (xor, (.&.), (.|.), complement, rotateL, shiftL, shiftR)
-import Data.Word (Word8, Word32)
hunk ./Util/SHA1.hs 42
+emptyHash = ABCDE 0 0 0 0 0
+
hunk ./Util/SHA1.hs 56
+    hSeek h AbsoluteSeek 0