From 36106aed7c8ce1d8b646a22df18615b553957c96 Mon Sep 17 00:00:00 2001
From: "Edward Z. Yang" <ezyang@cs.stanford.edu>
Date: Tue, 29 Mar 2016 13:41:43 -0700
Subject: [PATCH] Maybe quick QuickCheck arbitrary instance.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
---
 .../Distribution/Client/Dependency/Modular/QuickCheck.hs    | 6 +++---
 1 file changed, 3 insertions(+), 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
index c6f38cd784e..a5a3113cb09 100644
--- 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"