diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-01-27 17:05:58 -0500 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-01-27 17:05:58 -0500 |
| commit | 45a29b37173ab724d8b90af7e0b1a9fda3acbeb2 (patch) | |
| tree | 40090e0bee29510d19d3473075e6c1cd4f1d02fa /src/Data/Digest/Sha1.hsc | |
| parent | 22b58e03dbf030d7fa0c34f5677bda341405fe07 (diff) | |
Data.Digest: Switch back to EVP
Use the finalizer techniques demonstrated in
4e56c79b907da4a4654e5278bdcf94b08480a426 to safely allocate `EVP_MD_CTX`
on the Haskell heap. This allows us to return to the high-level EVP API,
eliminating much boilerplate code.
Diffstat (limited to 'src/Data/Digest/Sha1.hsc')
| -rw-r--r-- | src/Data/Digest/Sha1.hsc | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/src/Data/Digest/Sha1.hsc b/src/Data/Digest/Sha1.hsc deleted file mode 100644 index 6ac4c34..0000000 --- a/src/Data/Digest/Sha1.hsc +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE CApiFFI #-} -{-# OPTIONS_GHC -Wno-missing-methods #-} - -module Data.Digest.Sha1 - ( sha1 - ) where - -import Data.ByteString.Lazy (ByteString) -import Foreign (Ptr, Storable(alignment, sizeOf)) -import Foreign.C.Types - -import Data.Digest.Internal - -#include <openssl/sha.h> - -data ShaCtx - -instance Storable ShaCtx where - sizeOf _ = #size SHA_CTX - alignment _ = #alignment SHA_CTX - -foreign import capi "openssl/sha.h value SHA_DIGEST_LENGTH" - shaDigestLength :: CSize - -foreign import ccall "openssl/sha.h SHA1_Init" - sha1Init :: Ptr ShaCtx -> IO CInt - -foreign import ccall "openssl/sha.h SHA1_Update" - sha1Update :: Ptr ShaCtx -> Ptr a -> CSize -> IO CInt - -foreign import ccall "openssl/sha.h SHA1_Final" - sha1Final :: Ptr CUChar -> Ptr ShaCtx -> IO CInt - -sha1Algo :: Algo -sha1Algo = Algo shaDigestLength sha1Init sha1Update sha1Final - -sha1 :: ByteString -> Digest -sha1 = hash sha1Algo |