diff options
Diffstat (limited to 'src/Data/Digest/Sha2.hs')
| -rw-r--r-- | src/Data/Digest/Sha2.hs | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/Data/Digest/Sha2.hs b/src/Data/Digest/Sha2.hs new file mode 100644 index 0000000..0aa814e --- /dev/null +++ b/src/Data/Digest/Sha2.hs @@ -0,0 +1,30 @@ +module Data.Digest.Sha2 + ( sha224 + , sha256 + , sha384 + , sha512 + ) where + +import Data.ByteString (ByteString) + +import qualified Data.Digest.Evp as Evp + +foreign import ccall "openssl/digest.h EVP_sha224" evpSha224 :: Evp.Algo + +foreign import ccall "openssl/digest.h EVP_sha256" evpSha256 :: Evp.Algo + +foreign import ccall "openssl/digest.h EVP_sha384" evpSha384 :: Evp.Algo + +foreign import ccall "openssl/digest.h EVP_sha512" evpSha512 :: Evp.Algo + +sha224 :: ByteString -> Evp.Digest +sha224 = Evp.hash evpSha224 + +sha256 :: ByteString -> Evp.Digest +sha256 = Evp.hash evpSha256 + +sha384 :: ByteString -> Evp.Digest +sha384 = Evp.hash evpSha384 + +sha512 :: ByteString -> Evp.Digest +sha512 = Evp.hash evpSha512 |