aboutsummaryrefslogtreecommitdiff
path: root/src/Foreign/Ptr
diff options
context:
space:
mode:
Diffstat (limited to 'src/Foreign/Ptr')
-rw-r--r--src/Foreign/Ptr/ConstantTimeEquals.chs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Foreign/Ptr/ConstantTimeEquals.chs b/src/Foreign/Ptr/ConstantTimeEquals.chs
index 6b34e7b..a96fc66 100644
--- a/src/Foreign/Ptr/ConstantTimeEquals.chs
+++ b/src/Foreign/Ptr/ConstantTimeEquals.chs
@@ -26,5 +26,5 @@ import Foreign.Ptr.Cast (asVoidPtr)
-- contents.
constantTimeEquals :: Ptr a -> Ptr a -> Int -> IO Bool
constantTimeEquals a b size =
- let size' = fromIntegral size :: CULong
- in (== 0) <$> {#call CRYPTO_memcmp as ^#} (asVoidPtr a) (asVoidPtr b) size'
+ let size' = fromIntegral size :: CULong in
+ (== 0) <$> {#call CRYPTO_memcmp as ^#} (asVoidPtr a) (asVoidPtr b) size'