X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FBit.hs;h=0f02fbff730728fd253e7d0c18bc9ac16d738e1a;hb=eee156f562f9c1c1194a67cef12f146304d88ce9;hp=e3d90e420e2bffbbe97accd2ad08246731aacde4;hpb=942b8ef3bc5830ca0defa62342d55550aea59934;p=hath.git

diff --git a/src/Bit.hs b/src/Bit.hs
index e3d90e4..0f02fbf 100644
--- a/src/Bit.hs
+++ b/src/Bit.hs
@@ -1,13 +1,14 @@
 -- | The Bit module contains the Bit data type, which is essentially a
 --   renamed Boolean, and some convenience functions.
-module Bit
+module Bit (
+  Bit(..)
+  )
 where
 
-import Test.QuickCheck (
+import Test.Tasty.QuickCheck (
   Arbitrary,
   arbitrary,
-  elements
-  )
+  elements )
 
 
 data Bit = Zero | One
@@ -31,16 +32,3 @@ instance Ord Bit where
 instance Bounded Bit where
   minBound = Zero
   maxBound = One
-
-
--- | Convert a Bit to an Int.
-bit_to_int :: Bit -> Int
-bit_to_int Zero =  0
-bit_to_int One  =  1
-
--- | If we are passed a '0' or '1', convert it
---   appropriately. Otherwise, return Nothing.
-bit_from_char :: Char -> Maybe Bit
-bit_from_char '0' = Just Zero
-bit_from_char '1' = Just One
-bit_from_char  _  = Nothing