Tidying, mainly parsers

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

diff --git a/advent24/Main.hs b/advent24/Main.hs
index 4e9cc78125986cf5e24cb80d1ef965e972b74fff..b33b2f3daf9fce3232424acc03f2688e84ffb964 100644 (file)
--- a/advent24/Main.hs
+++ b/advent24/Main.hs
@@ -115,12 +115,14 @@ stoneP :: Parser Hailstone
 vertexP :: Parser (V3 Rational)
 
 stonesP = stoneP `sepBy` endOfLine
-stoneP = Hailstone <$> (vertexP <* symbolP "@") <*> vertexP
-vertexP = vecify <$> signed decimal <*> (symbolP "," *> signed decimal) <*> (symbolP "," *> signed decimal)
+stoneP = Hailstone <$> vertexP <* symbolP "@" <*> vertexP
+vertexP = vecify <$> signed decimal <* symbolP "," 
+                 <*> signed decimal <* symbolP "," 
+                 <*> signed decimal
   where vecify x y z = V3 (x % 1) (y % 1) (z % 1)
 
 symbolP :: Text -> Parser Text
-symbolP s = (skipSpace *> string s) <* skipSpace
+symbolP s = skipSpace *> string s <* skipSpace
 
 successfulParse :: Text -> [Hailstone]
 successfulParse input =