diff options
| author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 17:38:24 +0200 |
|---|---|---|
| committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 17:39:31 +0200 |
| commit | 86f3882318d323d1920ca1c7da6e816f0ed376da (patch) | |
| tree | 0e16232125c2fb6c0413d654e6b1537c9813b301 /test/Crypto/Macaroon/Instances.hs | |
| parent | bf31e29028a4402ea0d2deefdb3b86efd526acd0 (diff) | |
| download | hmacaroons-86f3882318d323d1920ca1c7da6e816f0ed376da.tar.gz hmacaroons-86f3882318d323d1920ca1c7da6e816f0ed376da.tar.zst hmacaroons-86f3882318d323d1920ca1c7da6e816f0ed376da.zip | |
Change verifier api and split Verifier module
- Added haddocks
Diffstat (limited to 'test/Crypto/Macaroon/Instances.hs')
| -rw-r--r-- | test/Crypto/Macaroon/Instances.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/Crypto/Macaroon/Instances.hs b/test/Crypto/Macaroon/Instances.hs index 9c89857..6348c56 100644 --- a/test/Crypto/Macaroon/Instances.hs +++ b/test/Crypto/Macaroon/Instances.hs | |||
| @@ -32,10 +32,10 @@ instance Arbitrary Url where | |||
| 32 | domain <- elements [".com",".net"] | 32 | domain <- elements [".com",".net"] |
| 33 | return . Url . B8.pack $ (protocol ++ name ++ domain) | 33 | return . Url . B8.pack $ (protocol ++ name ++ domain) |
| 34 | 34 | ||
| 35 | newtype Secret = Secret { unSecret :: BS.ByteString } deriving (Show) | 35 | newtype BSSecret = BSSecret { unSecret :: BS.ByteString } deriving (Show) |
| 36 | 36 | ||
| 37 | instance Arbitrary Secret where | 37 | instance Arbitrary BSSecret where |
| 38 | arbitrary = Secret . B8.pack <$> scale (*3) arbitrary | 38 | arbitrary = BSSecret . B8.pack <$> scale (*3) arbitrary |
| 39 | 39 | ||
| 40 | newtype Identifier = Identifier { unIdent :: BS.ByteString } deriving (Show) | 40 | newtype Identifier = Identifier { unIdent :: BS.ByteString } deriving (Show) |
| 41 | 41 | ||