diff --git a/Data/Digest/Pure/SHA.hs b/Data/Digest/Pure/SHA.hs --- a/Data/Digest/Pure/SHA.hs +++ b/Data/Digest/Pure/SHA.hs @@ -10,6 +10,7 @@ , sha512 , showDigest , integerDigest + , bytestringDigest #ifdef SHA_TEST , toBigEndianBS, fromBigEndianBS , find_k @@ -368,6 +369,10 @@ integerDigest :: Digest -> Integer integerDigest (Digest bs) = BS.foldl' addShift 0 bs where addShift n y = (n `shiftL` 8) .|. fromIntegral y + +-- | Convert a digest to a ByteString. +bytestringDigest :: Digest -> ByteString +bytestringDigest (Digest bs) = bs -- -------------------------------------------------------------------------- -- diff --git a/SHA.cabal b/SHA.cabal --- a/SHA.cabal +++ b/SHA.cabal @@ -1,6 +1,6 @@ name: SHA category: Cryptography, Codec -version: 1.0.0 +version: 1.0.1 license: BSD3 license-file: LICENSE author: Adam Wick