From 1349d89b03ccdae4594e3e5605eec83bc4efddb4 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Fri, 31 Aug 2018 17:22:42 -0400
Subject: Remove some unnecessary `fromIntegral`s

---
 src/BTLS/BoringSSL/HKDF.chs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/BTLS/BoringSSL/HKDF.chs b/src/BTLS/BoringSSL/HKDF.chs
index 7a3181b..1a28ccc 100644
--- a/src/BTLS/BoringSSL/HKDF.chs
+++ b/src/BTLS/BoringSSL/HKDF.chs
@@ -32,5 +32,5 @@ import BTLS.Result
   -> `()' requireSuccess*-#}
 
 {#fun HKDF_expand as hkdfExpand
-  { id `Ptr CUChar', id `CULong', `Ptr EVPMD', unsafeUseAsCBuffer* `ByteString'&
+  { id `Ptr CUChar', `Int', `Ptr EVPMD', unsafeUseAsCBuffer* `ByteString'&
   , unsafeUseAsCBuffer* `ByteString'& } -> `()' requireSuccess*-#}
-- 
cgit v1.2.3