From bf31e29028a4402ea0d2deefdb3b86efd526acd0 Mon Sep 17 00:00:00 2001 From: Julien Tanguy Date: Mon, 17 Aug 2015 17:36:35 +0200 Subject: Typos and stylish-haskell --- src/Crypto/Macaroon/Verifier/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Crypto/Macaroon/Verifier') diff --git a/src/Crypto/Macaroon/Verifier/Internal.hs b/src/Crypto/Macaroon/Verifier/Internal.hs index 63d826d..b65b62d 100644 --- a/src/Crypto/Macaroon/Verifier/Internal.hs +++ b/src/Crypto/Macaroon/Verifier/Internal.hs @@ -44,7 +44,7 @@ instance Monoid ValidationError where (ValidatorError e) `mappend` (ParseError _) = ValidatorError e (ParseError _) `mappend` (ValidatorError e) = ValidatorError e - +-- | Check that the given macaroon has a correct signature verifySig :: Key -> Macaroon -> Either ValidationError Macaroon verifySig k m = bool (Left SigMismatch) (Right m) $ signature m == foldl' hash (toBytes (hmac derivedKey (identifier m) :: HMAC SHA256)) (caveats m) -- cgit v1.2.3