diff --git a/src/Main/Parser/Megaparsec.hs b/src/Main/Parser/Megaparsec.hs
index ee82942..17c7117 100644
--- 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