Minor changes
parent
248672bdb2
commit
0071c7d718
|
@ -39,7 +39,7 @@ newtype Digit = Digit { getIntOfDigit :: Int } deriving (Show, Eq, Ord)
|
||||||
|
|
||||||
charToDigit :: Char -> Maybe Digit
|
charToDigit :: Char -> Maybe Digit
|
||||||
charToDigit c =
|
charToDigit c =
|
||||||
if Char.isDigit c then Just $ Digit (Char.digitToInt c) else Nothing
|
if Char.isDigit c then Just . Digit . Char.digitToInt $ c else Nothing
|
||||||
|
|
||||||
digitParser :: Parser String Digit
|
digitParser :: Parser String Digit
|
||||||
digitParser = Parser $ \i -> case i of
|
digitParser = Parser $ \i -> case i of
|
||||||
|
|
Loading…
Reference in New Issue