From 6655ceffe46a642c9379c4327dd9c84e6bfd6977 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Sat, 28 Apr 2018 15:14:57 -0700 Subject: Formatting pass MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit I don’t always like the output hindent gives, so reformat the project to be a bit closer to what you see in published Haskell books and the like. --- src/Foreign/Ptr/ConstantTimeEquals.chs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Foreign/Ptr/ConstantTimeEquals.chs') 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' -- cgit v1.2.3