diff options
Diffstat (limited to 'src/Crypto/Macaroon/Verifier/Internal.hs')
-rw-r--r-- | src/Crypto/Macaroon/Verifier/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Crypto/Macaroon/Verifier/Internal.hs b/src/Crypto/Macaroon/Verifier/Internal.hs index 73eb66a..5126b2e 100644 --- a/src/Crypto/Macaroon/Verifier/Internal.hs +++ b/src/Crypto/Macaroon/Verifier/Internal.hs | |||
@@ -58,7 +58,7 @@ verifySig k m = bool (Left SigMismatch) (Right m) $ | |||
58 | derivedKey = toBytes (hmac "macaroons-key-generator" k :: HMAC SHA256) | 58 | derivedKey = toBytes (hmac "macaroons-key-generator" k :: HMAC SHA256) |
59 | 59 | ||
60 | -- | Given a list of verifiers, verify each caveat of the given macaroon | 60 | -- | Given a list of verifiers, verify each caveat of the given macaroon |
61 | verifyCavs :: MonadIO m | 61 | verifyCavs :: (Functor m, MonadIO m) |
62 | => [Caveat -> m (Maybe (Either ValidationError ()))] | 62 | => [Caveat -> m (Maybe (Either ValidationError ()))] |
63 | -> Macaroon | 63 | -> Macaroon |
64 | -> m (Either ValidationError Macaroon) | 64 | -> m (Either ValidationError Macaroon) |