X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent04%2FMain.hs;h=3448edc112681f02c4026fd75797aa153b6a3ddb;hb=a7b02636b8045a73a4dff090c1b932cfa1afd9bd;hp=0d8b7735b6ce7a0bd7978b77edd47b8d46314b94;hpb=bc689ec22856749b96406382eac0345f2f71cb40;p=advent-of-code-23.git

diff --git a/advent04/Main.hs b/advent04/Main.hs
index 0d8b773..3448edc 100644
--- 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