diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-04-28 15:14:57 -0700 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-04-28 15:14:57 -0700 |
| commit | 6655ceffe46a642c9379c4327dd9c84e6bfd6977 (patch) | |
| tree | 3951d9e2a226694d08793ae8dedbdf30ecde1ab1 /src/Foreign/Ptr/ConstantTimeEquals.chs | |
| parent | 8fc0b121543b742f56f83c9eb74885e04d104778 (diff) | |
Formatting pass
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.
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' |