Commit be9992db authored by David Luposchainsky's avatar David Luposchainsky Committed by Herbert Valerio Riedel
Browse files

Remove duplicate definition of adjustSize (#3952)

This definition was both in the module, and in a CPP-conditionally imported
other module. This patch removes this redundancy.

In the normal Cabal build this was not an issue, since it uses a newer version
of QuickCheck. The Stack-based build however still uses an old one, which lead
to both the import as well as the local definition from being in the code. The
testsuite would then fail with a duplicate definition error.

Fixes haskell/cabal#3950
parent 81768070
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-orphans
-fno-warn-incomplete-patterns
-fno-warn-deprecations
......@@ -15,9 +14,7 @@ import Test.Tasty
import Test.Tasty.QuickCheck
import qualified Test.Laws as Laws
#if !MIN_VERSION_QuickCheck(2,9,0)
import Test.QuickCheck.Utils
#endif
import Control.Monad (liftM, liftM2)
import Data.Maybe (isJust, fromJust)
......@@ -113,9 +110,6 @@ versionTests =
-- -- , property prop_parse_disp5
-- ]
adjustSize :: (Int -> Int) -> Gen a -> Gen a
adjustSize adjust gen = sized (\n -> resize (adjust n) gen)
instance Arbitrary Version where
arbitrary = do
branch <- smallListOf1 $
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment