diff options
| author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 18:56:12 +0200 |
|---|---|---|
| committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 18:56:12 +0200 |
| commit | a11f20be0fadf21cc96164b49305b59ac7445aa2 (patch) | |
| tree | 00a8eec6be63241f0e40a4306e0eae436b6ff11c /src/Crypto/Macaroon/Verifier | |
| parent | cb1ee5df44a6a68f32e7f8413cee4a7105d37b4b (diff) | |
| download | hmacaroons-a11f20be0fadf21cc96164b49305b59ac7445aa2.tar.gz hmacaroons-a11f20be0fadf21cc96164b49305b59ac7445aa2.tar.zst hmacaroons-a11f20be0fadf21cc96164b49305b59ac7445aa2.zip | |
ghc<7.10.1 compat
Diffstat (limited to 'src/Crypto/Macaroon/Verifier')
| -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) |