diff --git a/cabal-install/tests/UnitTests/Distribution/Client/ArbitraryInstances.hs b/cabal-install/tests/UnitTests/Distribution/Client/ArbitraryInstances.hs index 3f319ac1079..03a2d35d72c 100644 --- a/cabal-install/tests/UnitTests/Distribution/Client/ArbitraryInstances.hs +++ b/cabal-install/tests/UnitTests/Distribution/Client/ArbitraryInstances.hs @@ -121,7 +121,7 @@ instance Arbitrary PackageName where packageChars = filter isAlphaNum ['\0'..'\127'] instance Arbitrary Dependency where - arbitrary = Dependency <$> arbitrary <*> arbitrary <*> arbitrary + arbitrary = Dependency <$> arbitrary <*> arbitrary <*> fmap getNonMEmpty arbitrary instance Arbitrary UnqualComponentName where -- same rules as package names