src/Data/Digest/Md5.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Data.Digest.Md5
  ( md5
  ) where

import Data.ByteString.Lazy (ByteString)

import Data.Digest.Internal

foreign import ccall "openssl/digest.h EVP_md5" evpMd5 :: Algo

md5 :: ByteString -> Digest
md5 = hash evpMd5