X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent05%2FMain.hs;h=16e4f4cb270dfd5af3d03e0344d889e034d88e6a;hb=refs%2Fheads%2Fmain;hp=d8bb80651619e20b6408db47ece5cfb9e999f897;hpb=80f3650ed9381e7e0045fe13852e4d3b1dc38083;p=advent-of-code-23.git

diff --git a/advent05/Main.hs b/advent05/Main.hs
index d8bb806..16e4f4c 100644
--- a/advent05/Main.hs
+++ b/advent05/Main.hs
@@ -125,10 +125,10 @@ seedsP = "seeds: " *> numbersP
 almanacP = M.fromList <$> (aMapP `sepBy` blankLineP)
 
 aMapP = aMapify <$> aMapHeaderP <*> rulesP
-aMapHeaderP = (,) <$> (nameP <* "-to-") <*> (nameP <* " map:" <* endOfLine)
+aMapHeaderP = (,) <$> nameP <* "-to-" <*> nameP <* " map:" <* endOfLine
 
 rulesP = ruleP `sepBy` endOfLine
-ruleP = ruleify <$> (decimal <* space) <*> (decimal <* space) <*> decimal
+ruleP = ruleify <$> decimal <* space <*> decimal <* space <*> decimal
 
 numbersP = decimal `sepBy` skipSpace
 nameP = many1 letter