Tidying, mainly parsers

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

diff --git a/advent06/Main.hs b/advent06/Main.hs
index 2a056bb9f14c00e63acc69e8ab61e6865bbb5dee..8e29367cb3f8b3487df452f465e6b848cae4804a 100644 (file)
--- 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]