diff options
Diffstat (limited to 'src/Foreign/Ptr/ConstantTimeEquals.chs')
| -rw-r--r-- | src/Foreign/Ptr/ConstantTimeEquals.chs | 4 |
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' |