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

diff --git a/src/Bit.hs b/src/Bit.hs
index 7c18408..a4241bc 100644
--- a/src/Bit.hs
+++ b/src/Bit.hs
@@ -1,7 +1,20 @@
 module Bit where
 
+import Test.QuickCheck
+
+
 data Bit = None | Zero | One
-         deriving (Eq, Show)
+         deriving (Eq)
+
+instance Show Bit where
+    show None = "None"
+    show Zero = "0"
+    show One  = "1"
+
+
+instance Arbitrary Bit where
+    arbitrary = elements [ Zero, One ]
+
 
 bit_to_int :: Bit -> Int
 bit_to_int None = -1