me
/
really-bad-compiler-in-haskell
Archived
1
0
Fork 0
Code Issues 20 Pull Requests Projects 3 Releases 3 Activity

Fix boolean parenthesis bug

pull/29/head
Ethan Reece 2023-10-23 12:28:38 -05:00
parent b1d2f65992
commit 1fbacda21b
Signed by: me
GPG Key ID: D3993665FF92E1C3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main/Parser/Megaparsec.hs
View File

@ -110,10 +110,10 @@ boolExprTerm :: ParsecT Void Text Data.Functor.Identity.Identity M.Bool
boolExprTerm = boolExprTerm =
choice choice
[ try (uncurry3 M.IntOrdCmp <$> intOrdCmpExpr), [ try (uncurry3 M.IntOrdCmp <$> intOrdCmpExpr),
parens boolExpr,
uncurry3 M.IntEq <$> intEqExpr, uncurry3 M.IntEq <$> intEqExpr,
M.Bool True <$ string "true" <* C.space, M.Bool True <$ string "true" <* C.space,
M.Bool False <$ string "false" <* C.space, M.Bool False <$ string "false" <* C.space
parens boolExpr
] ]
boolExpr :: ParsecT Void Text Data.Functor.Identity.Identity M.Bool boolExpr :: ParsecT Void Text Data.Functor.Identity.Identity M.Bool