From 8bbe088d0a04e46a5f0f0128483c73cbb2405dbe Mon Sep 17 00:00:00 2001
From: Julien Tanguy <julien.tanguy@jhome.fr>
Date: Wed, 17 Jun 2015 17:51:29 +0200
Subject: Update QuickCheck

[ci skip]
---
 hmacaroons.cabal                  |  3 ++-
 test/Crypto/Macaroon/Instances.hs | 13 -------------
 2 files changed, 2 insertions(+), 14 deletions(-)

diff --git a/hmacaroons.cabal b/hmacaroons.cabal
index a731592..b70a984 100644
--- a/hmacaroons.cabal
+++ b/hmacaroons.cabal
@@ -65,6 +65,7 @@ library
                   byteable >= 0.1 && <0.2,
                   cereal >= 0.4,
                   cryptohash >=0.11 && <0.12,
+                  either >=4.4,
                   -- cipher-aes >=0.2 && <0.3,
                   deepseq >= 1.1,
                   hex >= 0.1
@@ -105,5 +106,5 @@ test-suite test
                   tasty >= 0.10,
                   tasty-hunit >= 0.9,
                   tasty-quickcheck >= 0.8,
-                  QuickCheck < 2.8,
+                  QuickCheck >= 2.8,
                   hmacaroons
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
 
 import           Crypto.Macaroon
 
-
--- | Adjust the size parameter, by transforming it with the given
--- function.
--- Copied over from QuickCheck 2.8
-scale :: (Int -> Int) -> Gen a -> Gen a
-scale f g = sized (\n -> resize (f n) g)
-
-
--- | Generates a random subsequence of the given list.
--- Copied over from QuickCheck 2.8
-sublistOf :: [a] -> Gen [a]
-sublistOf = filterM (\_ -> choose (False, True))
-
 newtype Url = Url { unUrl :: BS.ByteString } deriving (Show)
 
 instance Arbitrary Url where
-- 
cgit v1.2.3