diff options
| author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-06-17 17:51:29 +0200 |
|---|---|---|
| committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-06-17 17:51:29 +0200 |
| commit | 8bbe088d0a04e46a5f0f0128483c73cbb2405dbe (patch) | |
| tree | f669c60ce5d8c9d0e654f63402fc4758107d2dcf /test | |
| parent | dfcc13bda0f07f012e385d39ea86d7c6e9f9e05f (diff) | |
| download | hmacaroons-8bbe088d0a04e46a5f0f0128483c73cbb2405dbe.tar.gz hmacaroons-8bbe088d0a04e46a5f0f0128483c73cbb2405dbe.tar.zst hmacaroons-8bbe088d0a04e46a5f0f0128483c73cbb2405dbe.zip | |
Update QuickCheck
[ci skip]
Diffstat (limited to 'test')
| -rw-r--r-- | test/Crypto/Macaroon/Instances.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/test/Crypto/Macaroon/Instances.hs b/test/Crypto/Macaroon/Instances.hs index c82bbd3..6955637 100644 --- a/test/Crypto/Macaroon/Instances.hs +++ b/test/Crypto/Macaroon/Instances.hs | |||
| @@ -23,19 +23,6 @@ import Test.Tasty.QuickCheck | |||
| 23 | 23 | ||
| 24 | import Crypto.Macaroon | 24 | import Crypto.Macaroon |
| 25 | 25 | ||
| 26 | |||
| 27 | -- | Adjust the size parameter, by transforming it with the given | ||
| 28 | -- function. | ||
| 29 | -- Copied over from QuickCheck 2.8 | ||
| 30 | scale :: (Int -> Int) -> Gen a -> Gen a | ||
| 31 | scale f g = sized (\n -> resize (f n) g) | ||
| 32 | |||
| 33 | |||
| 34 | -- | Generates a random subsequence of the given list. | ||
| 35 | -- Copied over from QuickCheck 2.8 | ||
| 36 | sublistOf :: [a] -> Gen [a] | ||
| 37 | sublistOf = filterM (\_ -> choose (False, True)) | ||
| 38 | |||
| 39 | newtype Url = Url { unUrl :: BS.ByteString } deriving (Show) | 26 | newtype Url = Url { unUrl :: BS.ByteString } deriving (Show) |
| 40 | 27 | ||
| 41 | instance Arbitrary Url where | 28 | instance Arbitrary Url where |