X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent06%2FMain.hs;h=8e29367cb3f8b3487df452f465e6b848cae4804a;hb=a7b02636b8045a73a4dff090c1b932cfa1afd9bd;hp=2a056bb9f14c00e63acc69e8ab61e6865bbb5dee;hpb=f2c85a0f3caf4338314da60dd2c7823a4dad626c;p=advent-of-code-23.git

diff --git a/advent06/Main.hs b/advent06/Main.hs
index 2a056bb..8e29367 100644
--- a/advent06/Main.hs
+++ b/advent06/Main.hs
@@ -30,9 +30,9 @@ waysToWin (Race timeLimit record) =
 racesP :: Parser [Race]
 timesP, distancesP, numbersP :: Parser [Int]
 
-racesP = zipWith Race <$> (timesP <* endOfLine) <*> distancesP
-timesP = ("Time:" *> skipSpace) *> numbersP
-distancesP = ("Distance:" *> skipSpace) *> numbersP
+racesP = zipWith Race <$> timesP <* endOfLine <*> distancesP
+timesP = "Time:" *> skipSpace *> numbersP
+distancesP = "Distance:" *> skipSpace *> numbersP
 numbersP = decimal `sepBy` skipSpace
 
 successfulParse :: T.Text -> [Race]