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

Browse source
This commit is contained in:
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 =
choice
[ try (uncurry3 M.IntOrdCmp <$> intOrdCmpExpr),
parens boolExpr,
uncurry3 M.IntEq <$> intEqExpr,
M.Bool True <$ string "true" <* C.space,
M.Bool False <$ string "false" <* C.space,
parens boolExpr
M.Bool False <$ string "false" <* C.space
]
boolExpr :: ParsecT Void Text Data.Functor.Identity.Identity M.Bool