Tidying, mainly parsers

[advent-of-code-23.git] / advent04 / Main.hs

diff --git a/advent04/Main.hs b/advent04/Main.hs
index 0d8b7735b6ce7a0bd7978b77edd47b8d46314b94..3448edc112681f02c4026fd75797aa153b6a3ddb 100644 (file)
--- a/advent04/Main.hs
+++ b/advent04/Main.hs
@@ -62,8 +62,9 @@ cardP :: Parser Card
 numbersP :: Parser [Int]
 
 cardsP = cardP `sepBy` endOfLine
-cardP = Card <$> (("Card" *> skipSpace *> decimal) <* ":" <* skipSpace) 
-             <*> (numbersP <* " |" <* skipSpace) 
+cardP = Card <$  "Card" <* skipSpace 
+             <*> decimal <* ":" <* skipSpace
+             <*> numbersP <* " |" <* skipSpace
              <*> numbersP
 
 numbersP = decimal `sepBy` skipSpace