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/Data/Hmac.hs | |
| 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/Data/Hmac.hs')
| -rw-r--r-- | src/Data/Hmac.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/Hmac.hs b/src/Data/Hmac.hs index d1124b6..2211248 100644 --- a/src/Data/Hmac.hs +++ b/src/Data/Hmac.hs @@ -46,9 +46,9 @@ newtype Hmac = Hmac ByteString instance Eq Hmac where (Hmac a) == (Hmac b) = unsafeLocalState $ - ByteString.unsafeUseAsCStringLen a $ \(a', size) -> - ByteString.unsafeUseAsCStringLen b $ \(b', _) -> - constantTimeEquals a' b' size + ByteString.unsafeUseAsCStringLen a $ \(a', size) -> + ByteString.unsafeUseAsCStringLen b $ \(b', _) -> + constantTimeEquals a' b' size instance Show Hmac where show (Hmac m) = show (Digest m) |