X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FBit.hs;h=5c8c5aa25903ba4332db63faaf55ccfd0e2e0f44;hp=128b6f6c76a787d4de6327636a885543428f4e98;hb=e1d16438b44ecd962565756a828c9ed8014cf894;hpb=909e781852e3566fcaa16e156437ebe5bfc89e02 diff --git a/src/Bit.hs b/src/Bit.hs index 128b6f6..5c8c5aa 100644 --- a/src/Bit.hs +++ b/src/Bit.hs @@ -28,7 +28,7 @@ bit_to_int Zero = 0 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