X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FBit.hs;h=a4241bc2a72b8a062649def5d1daa40f0a13f030;hb=041d33c0e5ac9c0e9733f42cd96aa2fba07a043f;hp=3799516c04c4514dd1a9241d0ea25ba753789438;hpb=6257f1c59c5c9663f8d95996c1c35362417def71;p=hath.git

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