Use 'arbitraryBoundedEnum'

haskell · Nov 12, 2018 · b5858c6 · b5858c6
1 parent a06b3e3
commit b5858c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs b/cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs
@@ -715,7 +715,7 @@ instance Arbitrary HaddockTarget where
     arbitrary = elements [ForHackage, ForDevelopment]
 
 instance Arbitrary TestShowDetails where
-    arbitrary = elements [Never, Failures, Always, Streaming, Direct]
+    arbitrary = arbitraryBoundedEnum
 
 instance Arbitrary SourceRepo where
     arbitrary = (SourceRepo RepoThis