Tweaked some parsing code

[advent-of-code-21.git] / advent22 / Main.hs

diff --git a/advent22/Main.hs b/advent22/Main.hs
index dc67b3f6cfc14e2826f6782ca8c2a620afa81d68..ca6bddd6a994ba4c4078d82ed612031118fa67b7 100644 (file)
--- a/advent22/Main.hs
+++ b/advent22/Main.hs
@@ -99,7 +99,8 @@ cuboidP = cubify <$> (partiyP <* " ") <*> (boundsP `sepBy` ",")
                  }
         vecify [c1, c2, c3] = V3 c1 c2 c3
 
-partiyP = ("on" *> pure On) <|> ("off" *> pure Off)
+-- partiyP = ("on" *> pure On) <|> ("off" *> pure Off)
+partiyP = (On <$ "on") <|> (Off <$ "off")
 
 boundsP = (,) <$> (("x" <|> "y" <|> "z") *> "=" *> signed decimal) <*> (".." *> signed decimal)