From 0071c7d71830d82281aaf725a89e45edecf3d6d8 Mon Sep 17 00:00:00 2001 From: Abhinav Sarkar Date: Tue, 19 Apr 2016 23:41:32 +0530 Subject: [PATCH] Minor changes --- 2016-04-19/parser.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/2016-04-19/parser.hs b/2016-04-19/parser.hs index f8da61a..60ff87b 100644 --- a/2016-04-19/parser.hs +++ b/2016-04-19/parser.hs @@ -39,7 +39,7 @@ newtype Digit = Digit { getIntOfDigit :: Int } deriving (Show, Eq, Ord) charToDigit :: Char -> Maybe Digit 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 $ \i -> case i of @@ -49,7 +49,7 @@ digitParser = Parser $ \i -> case i of digitsParser :: Parser String [Digit] digitsParser = Parser $ \i -> case runParser digitParser i of Nothing -> Nothing - Just (d, i') -> case runParser digitsParser i' of + Just (d, i') -> case runParser digitsParser i' of Nothing -> Just ([d], i') Just (ds, i'') -> Just (d:ds, i'')