diff options
Diffstat (limited to 'src/Crypto/Macaroon/Verifier')
-rw-r--r-- | src/Crypto/Macaroon/Verifier/Internal.hs | 8 |
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 | |||
30 | import Crypto.Macaroon.Internal | 30 | import 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 |
35 | data ValidationError = SigMismatch -- ^ Signatures do not match | 35 | data 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 |
43 | instance Monoid ValidationError where | 43 | instance Monoid ValidationError where |
44 | mempty = NoVerifier | 44 | mempty = NoVerifier |
45 | NoVerifier `mappend` e = e | 45 | NoVerifier `mappend` e = e |