{-# LANGUAGE PackageImports #-}
module Crypto.Hash.MD5
( Ctx(..)
, init
, update
, updates
, finalize
, hash
, hashlazy
) where
import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString)
import Crypto.Hash.Internal (digestToByteString, digestToByteStringWitness)
import qualified "cryptonite" Crypto.Hash as H
newtype Ctx = Ctx (H.Context H.MD5)
init :: Ctx
init :: Ctx
init = Context MD5 -> Ctx
Ctx Context MD5
forall a. HashAlgorithm a => Context a
H.hashInit
update :: Ctx -> ByteString -> Ctx
update :: Ctx -> ByteString -> Ctx
update (Ctx ctx :: Context MD5
ctx) d :: ByteString
d = Context MD5 -> Ctx
Ctx (Context MD5 -> Ctx) -> Context MD5 -> Ctx
forall a b. (a -> b) -> a -> b
$ Context MD5 -> ByteString -> Context MD5
forall ba a.
(ByteArrayAccess ba, HashAlgorithm a) =>
Context a -> ba -> Context a
H.hashUpdate Context MD5
ctx ByteString
d
updates :: Ctx -> [ByteString] -> Ctx
updates :: Ctx -> [ByteString] -> Ctx
updates (Ctx ctx :: Context MD5
ctx) d :: [ByteString]
d =
Context MD5 -> Ctx
Ctx (Context MD5 -> Ctx) -> Context MD5 -> Ctx
forall a b. (a -> b) -> a -> b
$ Context MD5 -> [ByteString] -> Context MD5
forall a ba.
(HashAlgorithm a, ByteArrayAccess ba) =>
Context a -> [ba] -> Context a
H.hashUpdates Context MD5
ctx [ByteString]
d
finalize :: Ctx -> ByteString
finalize :: Ctx -> ByteString
finalize (Ctx ctx :: Context MD5
ctx) = Digest MD5 -> ByteString
forall h. HashAlgorithm h => Digest h -> ByteString
digestToByteString (Digest MD5 -> ByteString) -> Digest MD5 -> ByteString
forall a b. (a -> b) -> a -> b
$ Context MD5 -> Digest MD5
forall a. HashAlgorithm a => Context a -> Digest a
H.hashFinalize Context MD5
ctx
hash :: ByteString -> ByteString
hash :: ByteString -> ByteString
hash d :: ByteString
d = MD5 -> Digest MD5 -> ByteString
forall h. HashAlgorithm h => h -> Digest h -> ByteString
digestToByteStringWitness MD5
H.MD5 (Digest MD5 -> ByteString) -> Digest MD5 -> ByteString
forall a b. (a -> b) -> a -> b
$ ByteString -> Digest MD5
forall ba a.
(ByteArrayAccess ba, HashAlgorithm a) =>
ba -> Digest a
H.hash ByteString
d
hashlazy :: L.ByteString -> ByteString
hashlazy :: ByteString -> ByteString
hashlazy l :: ByteString
l = MD5 -> Digest MD5 -> ByteString
forall h. HashAlgorithm h => h -> Digest h -> ByteString
digestToByteStringWitness MD5
H.MD5 (Digest MD5 -> ByteString) -> Digest MD5 -> ByteString
forall a b. (a -> b) -> a -> b
$ ByteString -> Digest MD5
forall a. HashAlgorithm a => ByteString -> Digest a
H.hashlazy ByteString
l