Update for QuickCheck 2.

[hath.git] / src / Bit.hs

diff --git a/src/Bit.hs b/src/Bit.hs
index 3799516c04c4514dd1a9241d0ea25ba753789438..a4241bc2a72b8a062649def5d1daa40f0a13f030 100644 (file)
--- a/src/Bit.hs
+++ b/src/Bit.hs
@@ -14,7 +14,6 @@ instance Show Bit where
 
 instance Arbitrary Bit where
     arbitrary = elements [ Zero, One ]
-    coarbitrary _ = variant 0
 
 
 bit_to_int :: Bit -> Int