X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FBit.hs;h=a4241bc2a72b8a062649def5d1daa40f0a13f030;hp=3799516c04c4514dd1a9241d0ea25ba753789438;hb=9200fe5fcab505e5a331514a6ee687c6f78011b1;hpb=6477e5a14e0fbd02750cf87dc21900525f63452f

diff --git a/src/Bit.hs b/src/Bit.hs
index 3799516..a4241bc 100644
--- 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