src/Data/Digest/Sha1.hs


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

module Data.Digest.Sha1
  ( sha1
  ) where

import Data.ByteString.Lazy (ByteString)

import Data.Digest.Internal

foreign import ccall "openssl/digest.h EVP_sha1" evpSha1 :: Algo

sha1 :: ByteString -> Digest
sha1 = hash evpSha1