From f990373f22f37927fdd3433bfbfc0267435f5d13 Mon Sep 17 00:00:00 2001
From: Ethan Girouard <ethan@girouard.com>
Date: Mon, 9 Dec 2024 21:44:05 -0500
Subject: [PATCH] Remove parenthesis from while parsing

---
 src/Windows12/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Windows12/Parser.hs b/src/Windows12/Parser.hs
index 4559f53..611f231 100644
--- a/src/Windows12/Parser.hs
+++ b/src/Windows12/Parser.hs
@@ -117,7 +117,7 @@ stmtP :: Parser Stmt
 stmtP =
   Return <$> (reserved "return" *> exprP <* symbol ";")
     <|> (If <$> (reserved "if" *> exprP) <*> braces (many stmtP) <*> optional (reserved "else" *> braces (many stmtP)))
-    <|> (While <$> (reserved "while" *> parens exprP) <*> braces (many stmtP))
+    <|> (While <$> (reserved "while" *> exprP) <*> braces (many stmtP))
     <|> (Var <$> (reserved "var" *> identifier) <*> optional (symbol ":" *> typeP) <*> optional (symbol "=" *> exprP) <* symbol ";")
     <|> try assignP
     <|> Expr <$> exprP <* symbol ";"