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 ";"