diff options
author | Benjamin Barenblat <bbaren@google.com> | 2018-09-04 18:29:34 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@google.com> | 2018-09-04 18:29:34 -0400 |
commit | 2e7bd84469eba730f24dd3e448cca22f5aed16f4 (patch) | |
tree | b6478cf101c30d956912545eaea411100dccc0f6 /src/BTLS/BoringSSL | |
parent | 4e377babaa6203c445607c4bb1cbfd42bd9c6c06 (diff) |
Enable error checking for HKDF computations
Diffstat (limited to 'src/BTLS/BoringSSL')
-rw-r--r-- | src/BTLS/BoringSSL/HKDF.chs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/BTLS/BoringSSL/HKDF.chs b/src/BTLS/BoringSSL/HKDF.chs index 1a28ccc..8ad3df2 100644 --- a/src/BTLS/BoringSSL/HKDF.chs +++ b/src/BTLS/BoringSSL/HKDF.chs @@ -22,15 +22,14 @@ import Foreign.C.Types {#import BTLS.BoringSSL.Base#} import BTLS.Buffer (unsafeUseAsCBuffer) -import BTLS.Result #include <openssl/hkdf.h> {#fun HKDF_extract as hkdfExtract { id `Ptr CUChar', id `Ptr CULong', `Ptr EVPMD' , unsafeUseAsCBuffer* `ByteString'&, unsafeUseAsCBuffer* `ByteString'& } - -> `()' requireSuccess*-#} + -> `Int'#} {#fun HKDF_expand as hkdfExpand { id `Ptr CUChar', `Int', `Ptr EVPMD', unsafeUseAsCBuffer* `ByteString'& - , unsafeUseAsCBuffer* `ByteString'& } -> `()' requireSuccess*-#} + , unsafeUseAsCBuffer* `ByteString'& } -> `Int'#} |