diff options
Diffstat (limited to 'src/BTLS/BoringSSL/Mem.chs')
| -rw-r--r-- | src/BTLS/BoringSSL/Mem.chs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/BTLS/BoringSSL/Mem.chs b/src/BTLS/BoringSSL/Mem.chs index 969cf91..6f828ad 100644 --- a/src/BTLS/BoringSSL/Mem.chs +++ b/src/BTLS/BoringSSL/Mem.chs @@ -15,7 +15,6 @@ module BTLS.BoringSSL.Mem where import Foreign (Ptr) -import Foreign.C.Types import BTLS.Cast (asVoidPtr) @@ -24,7 +23,5 @@ import BTLS.Cast (asVoidPtr) -- | Directly compares two buffers for equality. This operation takes an amount -- of time dependent on the specified size but independent of either buffer's -- contents. -cryptoMemcmp :: Ptr a -> Ptr a -> Int -> IO Bool -cryptoMemcmp a b size = - let size' = fromIntegral size :: CULong in - (== 0) <$> {#call CRYPTO_memcmp as ^#} (asVoidPtr a) (asVoidPtr b) size' +{#fun CRYPTO_memcmp as cryptoMemcmp + {asVoidPtr `Ptr a', asVoidPtr `Ptr a', `Int'} -> `Int'#} |