work around quickcheck bug more aggressively

Author: MaximilianAlgehed

test/Constrained/Tests.hs

@@ -60,15 +60,9 @@ testAll = hspec $ tests False
 tests :: Bool -> Spec
 tests nightly =
   describe "constrained" . modifyMaxSuccess (\ms -> if nightly then ms * 10 else ms) $ do
-#if MIN_VERSION_QuickCheck(2, 16, 0)
     testSpec "setOfPairLetSpec" setOfPairLetSpec
     testSpec "setPair" setPair
     testSpec "mapElemSpec" mapElemSpec
-#else
-    testSpecNoShrink "setOfPairLetSpec" setOfPairLetSpec
-    testSpecNoShrink "setPair" setPair
-    testSpecNoShrink "mapElemSpec" mapElemSpec
-#endif
     testSpec "complicatedEither" complicatedEither
     testSpec "pairCant" pairCant
     -- TODO: figure out why this doesn't shrink
@@ -322,11 +316,13 @@ testSpec' withShrink n s = do
         checkCoverage' $
           prop_constrained_explained s
 
+    #if MIN_VERSION_QuickCheck(2, 16, 0)
     when withShrink $
       prop "prop_shrink_sound" $
         discardAfter 100_000 $
           checkCoverage' $
             prop_shrink_sound s
+    #endif
 
 ------------------------------------------------------------------------
 -- Test properties of the instance Num (NumSpec Integer)