From 1349d89b03ccdae4594e3e5605eec83bc4efddb4 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Fri, 31 Aug 2018 17:22:42 -0400 Subject: Remove some unnecessary `fromIntegral`s --- src/BTLS/BoringSSL/HKDF.chs | 2 +- src/BTLS/BoringSSL/Rand.chs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src/BTLS') 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*-#} diff --git a/src/BTLS/BoringSSL/Rand.chs b/src/BTLS/BoringSSL/Rand.chs index d43d26b..b007266 100644 --- a/src/BTLS/BoringSSL/Rand.chs +++ b/src/BTLS/BoringSSL/Rand.chs @@ -24,4 +24,4 @@ import BTLS.Result #include {#fun RAND_bytes as randBytes - {id `Ptr CUChar', id `CULong'} -> `()' alwaysSucceeds*-#} + {id `Ptr CUChar', `Int'} -> `()' alwaysSucceeds*-#} -- cgit v1.2.3