aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Crypto/Macaroon/Verifier/Internal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Crypto/Macaroon/Verifier/Internal.hs')
-rw-r--r--src/Crypto/Macaroon/Verifier/Internal.hs2
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
61verifyCavs :: MonadIO m 61verifyCavs :: (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)