diff options
author | Benjamin Barenblat <bbaren@google.com> | 2018-08-31 17:22:42 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@google.com> | 2018-08-31 17:22:42 -0400 |
commit | 1349d89b03ccdae4594e3e5605eec83bc4efddb4 (patch) | |
tree | b2e4f2b513f47c103d162a8b3172a675506f587c /src/BTLS/BoringSSL/HKDF.chs | |
parent | c9eb11a8b685dffa9035f324ca11a727cd16a128 (diff) |
Remove some unnecessary `fromIntegral`s
Diffstat (limited to 'src/BTLS/BoringSSL/HKDF.chs')
-rw-r--r-- | src/BTLS/BoringSSL/HKDF.chs | 2 |
1 files changed, 1 insertions, 1 deletions
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*-#} |