bit_to_int One = 1
-- | If we are passed a '0' or '1', convert it
--- appropriately. Otherwise, default to Nothing.
+-- appropriately. Otherwise, return Nothing.
bit_from_char :: Char -> Maybe Bit
bit_from_char '0' = Just Zero
bit_from_char '1' = Just One