From 1fbacda21bf890bd8876ca9b7108614be6d828e5 Mon Sep 17 00:00:00 2001
From: sudoer777 <git@sudoer.ch>
Date: Mon, 23 Oct 2023 12:28:38 -0500
Subject: [PATCH] Fix boolean parenthesis bug

---
 src/Main/Parser/Megaparsec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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