eta357/Windows-12-Compiler
1
1
Fork 0
Code Issues Pull Requests Actions Packages Releases 1 Activity

Remove parenthesis from while parsing

Browse Source
This commit is contained in:
Ethan Girouard 2024-12-09 21:44:05 -05:00
parent 891cd41e46
commit f990373f22
Signed by: eta357
GPG Key ID: 7BCDC36DFD11C146
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Windows12/Parser.hs
View File

@ -117,7 +117,7 @@ stmtP :: Parser Stmt
stmtP = stmtP =
Return <$> (reserved "return" *> exprP <* symbol ";") Return <$> (reserved "return" *> exprP <* symbol ";")
<|> (If <$> (reserved "if" *> exprP) <*> braces (many stmtP) <*> optional (reserved "else" *> braces (many stmtP))) <|> (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 ";") <|> (Var <$> (reserved "var" *> identifier) <*> optional (symbol ":" *> typeP) <*> optional (symbol "=" *> exprP) <* symbol ";")
<|> try assignP <|> try assignP
<|> Expr <$> exprP <* symbol ";" <|> Expr <$> exprP <* symbol ";"