Fix boolean parenthesis bug

2023-10-23 12:28:38 -05:00 · 2023-10-23 12:28:38 -05:00 · 1fbacda21b
parent b1d2f65992
commit 1fbacda21b
1 changed files with 2 additions and 2 deletions
--- a/src/Main/Parser/Megaparsec.hs
+++ b/src/Main/Parser/Megaparsec.hs
@ -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