aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Crypto/Macaroon/Verifier
diff options
context:
space:
mode:
Diffstat (limited to 'src/Crypto/Macaroon/Verifier')
-rw-r--r--src/Crypto/Macaroon/Verifier/Internal.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Crypto/Macaroon/Verifier/Internal.hs b/src/Crypto/Macaroon/Verifier/Internal.hs
index 5126b2e..b3ad7f2 100644
--- a/src/Crypto/Macaroon/Verifier/Internal.hs
+++ b/src/Crypto/Macaroon/Verifier/Internal.hs
@@ -30,16 +30,16 @@ import Data.Monoid
30import Crypto.Macaroon.Internal 30import Crypto.Macaroon.Internal
31 31
32-- | Type representing different validation errors. 32-- | Type representing different validation errors.
33-- Only 'ParseError' and 'ValidatorError' are exported, 'SigMismatch' and 33-- Only 'ParseError' and 'ValidatorError' are exported, @SigMismatch@ and
34-- 'NoVerifier' are used internally and should not be used by the user 34-- @NoVerifier@ are used internally and should not be used by the user
35data ValidationError = SigMismatch -- ^ Signatures do not match 35data ValidationError = SigMismatch -- ^ Signatures do not match
36 | NoVerifier -- ^ No verifier can handle a given caveat 36 | NoVerifier -- ^ No verifier can handle a given caveat
37 | ParseError String -- ^ A verifier had a parse error 37 | ParseError String -- ^ A verifier had a parse error
38 | ValidatorError String -- ^ A verifier failed 38 | ValidatorError String -- ^ A verifier failed
39 deriving (Show,Eq) 39 deriving (Show,Eq)
40 40
41-- | The 'Monoid' instance is written so 'SigMismatch' is an annihilator, 41-- | The 'Monoid' instance is written so @SigMismatch@ is an annihilator,
42-- and 'NoVerifier' is the identity element 42-- and @NoVerifier@ is the identity element
43instance Monoid ValidationError where 43instance Monoid ValidationError where
44 mempty = NoVerifier 44 mempty = NoVerifier
45 NoVerifier `mappend` e = e 45 NoVerifier `mappend` e = e