diff options
| author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 19:39:05 +0200 |
|---|---|---|
| committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 19:39:05 +0200 |
| commit | 27d5a3a43c7d736f8cd842f14f3178d532de9152 (patch) | |
| tree | 8a96cc66aba8d8171045c0e0a6dcdd040b7bc588 /src/Crypto/Macaroon/Verifier | |
| parent | b1c4109f79dd96e033c9a849328dabe90ee9afe8 (diff) | |
| download | hmacaroons-27d5a3a43c7d736f8cd842f14f3178d532de9152.tar.gz hmacaroons-27d5a3a43c7d736f8cd842f14f3178d532de9152.tar.zst hmacaroons-27d5a3a43c7d736f8cd842f14f3178d532de9152.zip | |
Modify exports & haddock
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 |