Allow ‘QuickCheck-2.10’

Text/Megaparsec/Error.hs

@@ -66,14 +66,8 @@ instance NFData t => NFData (ErrorItem t)
 
 instance Arbitrary t => Arbitrary (ErrorItem t) where
   arbitrary = oneof
-    [
-#if !MIN_VERSION_QuickCheck(2,9,0)
-      Tokens <$> (NE.fromList . getNonEmpty <$> arbitrary)
+    [ Tokens <$> (NE.fromList . getNonEmpty <$> arbitrary)
     , Label  <$> (NE.fromList . getNonEmpty <$> arbitrary)
-#else
-      Tokens <$> arbitrary
-    , Label  <$> arbitrary
-#endif
     , return EndOfInput ]
 
 -- | The type class defines how to represent information about various
@@ -179,11 +173,7 @@ instance ( Show t
 instance (Arbitrary t, Ord t, Arbitrary e, Ord e)
     => Arbitrary (ParseError t e) where
   arbitrary = ParseError
-#if MIN_VERSION_QuickCheck(2,9,0)
-    <$> arbitrary
-#else
     <$> (NE.fromList . getNonEmpty <$> arbitrary)
-#endif
 #if MIN_VERSION_QuickCheck(2,8,2)
     <*> arbitrary
     <*> arbitrary

Text/Megaparsec/Prim.hs

@@ -134,12 +134,7 @@ instance NFData s => NFData (State s)
 instance Arbitrary a => Arbitrary (State a) where
   arbitrary = State
     <$> arbitrary
-    <*>
-#if !MIN_VERSION_QuickCheck(2,9,0)
-      (NE.fromList . getNonEmpty <$> arbitrary)
-#else
-      arbitrary
-#endif
+    <*> (NE.fromList . getNonEmpty <$> arbitrary)
     <*> choose (1, 10000)
     <*> (unsafePos <$> choose (1, 20))
 

megaparsec.cabal

@@ -33,7 +33,7 @@ flag dev
   default:            False
 
 library
-  build-depends:      QuickCheck   >= 2.7   && < 3.0
+  build-depends:      QuickCheck   >= 2.7   && < 2.11
                     , base         >= 4.7   && < 5.0
                     , bytestring   >= 0.2   && < 0.11
                     , containers   >= 0.5   && < 0.6
@@ -90,7 +90,7 @@ test-suite tests
                     , Text.Megaparsec.PermSpec
                     , Text.Megaparsec.PosSpec
                     , Text.Megaparsec.PrimSpec
-  build-depends:      QuickCheck   >= 2.7   && < 3.0
+  build-depends:      QuickCheck   >= 2.7   && < 2.11
                     , base         >= 4.7   && < 5.0
                     , bytestring   >= 0.2   && < 0.11
                     , containers   >= 0.5   && < 0.6

tests/Text/Megaparsec/PrimSpec.hs

@@ -1501,11 +1501,7 @@ instance Arbitrary Span where
     start <- arbitrary
     end   <- arbitrary `suchThat` (> start)
     Span start end <$>
-#if !MIN_VERSION_QuickCheck(2,9,0)
       (NE.fromList . getNonEmpty <$> arbitrary)
-#else
-      arbitrary
-#endif
 
 instance ShowToken Span where
   showTokens ts = concat (NE.toList . spanBody <$> ts)