Skip to content

Commit c3f92c4

Browse files
authored
Merge pull request #8987 from haskell/quickcheck-no-all
Fix QuickCheck instance of PackageName to not produce 'all' (fix #8986)
2 parents 6c11a04 + 6368320 commit c3f92c4

File tree

1 file changed

+1
-1
lines changed
  • Cabal-QuickCheck/src/Test/QuickCheck/Instances

1 file changed

+1
-1
lines changed

Cabal-QuickCheck/src/Test/QuickCheck/Instances/Cabal.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -74,7 +74,7 @@ instance Arbitrary PackageName where
7474
arbitrary = mkPackageName . intercalate "-" <$> shortListOf1 2 nameComponent
7575
where
7676
nameComponent = shortListOf1 5 (elements packageChars)
77-
`suchThat` (not . all isDigit)
77+
`suchThat` (liftA2 (&&) (not . all isDigit) (/= "all"))
7878
packageChars = filter isAlphaNum ['\0'..'\127']
7979

8080
instance Arbitrary PackageIdentifier where

0 commit comments

Comments
 (0)