diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-09-01 15:12:30 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-09-04 11:47:56 -0500 |
| commit | a31daa3545c0a8cb5f95e88d66cfcee55a7ee925 (patch) | |
| tree | 9c10af070163f12fe369c185e1b7681db492e5a1 /src/BTLS/BoringSSL/HMAC.chs | |
| parent | 92a90ad43381f6897a93503027d67ac0b1032f3e (diff) | |
Enable error checking for HMAC computations
Diffstat (limited to 'src/BTLS/BoringSSL/HMAC.chs')
| -rw-r--r-- | src/BTLS/BoringSSL/HMAC.chs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/BTLS/BoringSSL/HMAC.chs b/src/BTLS/BoringSSL/HMAC.chs index b708f85..ea9fd03 100644 --- a/src/BTLS/BoringSSL/HMAC.chs +++ b/src/BTLS/BoringSSL/HMAC.chs @@ -39,7 +39,7 @@ foreign import ccall "&HMAC_CTX_cleanup" {#fun HMAC_Init_ex as hmacInitEx {`Ptr HMACCtx', unsafeUseAsCBuffer* `ByteString'&, `Ptr EVPMD', `Ptr Engine'} - -> `()' requireSuccess*-#} + -> `Int'#} {#fun HMAC_Update as hmacUpdate {`Ptr HMACCtx', unsafeUseAsCBuffer* `ByteString'&} -> `()' alwaysSucceeds*-#} |