Maybe quick QuickCheck arbitrary instance.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
haskell · Mar 29, 2016 · 36106ae · 36106ae
1 parent a05388e
commit 36106ae
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cabal-install/tests/UnitTests/Distribution/Client/Dependency/Modular/QuickCheck.hs b/cabal-install/tests/UnitTests/Distribution/Client/Dependency/Modular/QuickCheck.hs
@@ -237,15 +237,15 @@ instance Arbitrary Solver where
   shrink TopDown = [Modular]
 
 instance Arbitrary Component where
-  arbitrary = oneof [ return ComponentLib
+  arbitrary = oneof [ ComponentLib <$> arbitraryComponentName
                     , ComponentExe <$> arbitraryComponentName
                     , ComponentTest <$> arbitraryComponentName
                     , ComponentBench <$> arbitraryComponentName
                     , return ComponentSetup
                     ]
 
-  shrink ComponentLib = []
-  shrink _ = [ComponentLib]
+  shrink (ComponentLib "") = []
+  shrink _ = [ComponentLib ""]
 
 instance Arbitrary ExampleInstalled where
   arbitrary = error "arbitrary not implemented: ExampleInstalled"