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

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