diff options
Diffstat (limited to 'src/Crypto/Macaroon/Binder.hs')
-rw-r--r-- | src/Crypto/Macaroon/Binder.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Crypto/Macaroon/Binder.hs b/src/Crypto/Macaroon/Binder.hs index 3ec3d67..91f07ce 100644 --- a/src/Crypto/Macaroon/Binder.hs +++ b/src/Crypto/Macaroon/Binder.hs | |||
@@ -24,5 +24,5 @@ newtype Binder = Binder { bind :: Macaroon -> Macaroon -> BS.ByteString } | |||
24 | 24 | ||
25 | -- | Binder which concatenates the two signatures and hashes them | 25 | -- | Binder which concatenates the two signatures and hashes them |
26 | hashSigs :: Binder | 26 | hashSigs :: Binder |
27 | hashSigs = Binder $ \m m' -> toBytes $ (HMAC . hash $ BS.append (toBytes $ signature m') (toBytes $ signature m) :: HMAC SHA256) | 27 | hashSigs = Binder $ \m m' -> toBytes (HMAC . hash $ BS.append (toBytes $ signature m') (toBytes $ signature m) :: HMAC SHA256) |
28 | 28 | ||