diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-08-31 16:50:41 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-08-31 16:50:41 -0400 |
| commit | 80f2fb2e3be2c4074fbfb0adbc47746d2d88813b (patch) | |
| tree | ca49c396dea7463c7c5088a8134f98e2bdfd6756 /src/Data | |
| parent | d1a85eb87934d348c9789aec59c751fa615ec363 (diff) | |
Begin switching to `fun` in c2hs
Replace most invocations of `call` with `fun`. There’s a lot of explicit
`id`-marshalling going on; future commits will remove it.
Diffstat (limited to 'src/Data')
| -rw-r--r-- | src/Data/HMAC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/HMAC.hs b/src/Data/HMAC.hs index 1850103..df7e8e6 100644 --- a/src/Data/HMAC.hs +++ b/src/Data/HMAC.hs @@ -41,7 +41,7 @@ instance Eq HMAC where unsafeLocalState $ ByteString.unsafeUseAsCStringLen a $ \(a', size) -> ByteString.unsafeUseAsCStringLen b $ \(b', _) -> - cryptoMemcmp a' b' size + (==0) <$> cryptoMemcmp a' b' size instance Show HMAC where show (HMAC m) = show (Digest m) |