X-Git-Url: https://git.immae.eu/?a=blobdiff_plain;f=test%2FCrypto%2FMacaroon%2FInstances.hs;h=69556378b5bd6965e98b51ed92644befd8d763a1;hb=1dcd44f350f9842027b498e89ae586275047a3d3;hp=c82bbd3b5d1822199fbb68f52be8125e36ead49e;hpb=dfcc13bda0f07f012e385d39ea86d7c6e9f9e05f;p=github%2Ffretlink%2Fhmacaroons.git

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