diff options
author | Benjamin Barenblat <bbaren@google.com> | 2018-09-25 18:13:26 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@google.com> | 2018-09-25 18:13:26 -0400 |
commit | 100fc7dc0c7ce85aad0e413b97a90b98185326ef (patch) | |
tree | 4a4fc7e8bc296b0069166fea55fe9456fa994cb0 /src/BTLS/BoringSSL/Digest.chs | |
parent | a643f96bd1b8048a08277f7992ca7d43ee2423c3 (diff) |
Give `Algorithm` a `Show` instance
Diffstat (limited to 'src/BTLS/BoringSSL/Digest.chs')
-rw-r--r-- | src/BTLS/BoringSSL/Digest.chs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/BTLS/BoringSSL/Digest.chs b/src/BTLS/BoringSSL/Digest.chs index c919125..793cc68 100644 --- a/src/BTLS/BoringSSL/Digest.chs +++ b/src/BTLS/BoringSSL/Digest.chs @@ -19,6 +19,7 @@ module BTLS.BoringSSL.Digest , mallocEVPMDCtx , evpDigestInitEx, evpDigestUpdate, evpDigestFinalEx , evpMaxMDSize + , evpMDType ) where import Data.ByteString (ByteString) @@ -63,6 +64,8 @@ foreign import ccall "&btlsFinalizeEVPMDCtx" evpMaxMDSize :: Int evpMaxMDSize = {#const EVP_MAX_MD_SIZE#} +{#fun pure EVP_MD_type as evpMDType {`Ptr EVPMD'} -> `Int'#} + instance Storable EVPMDCtx where sizeOf _ = {#sizeof EVP_MD_CTX#} alignment _ = {#alignof EVP_MD_CTX#} |