From 100fc7dc0c7ce85aad0e413b97a90b98185326ef Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Tue, 25 Sep 2018 18:13:26 -0400
Subject: Give `Algorithm` a `Show` instance

---
 src/BTLS/BoringSSL/Digest.chs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/BTLS/BoringSSL/Digest.chs')

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#}
-- 
cgit v1.2.3