From 37280a4b4864be91868253577c8fdd3550bce4ad Mon Sep 17 00:00:00 2001 From: NaoEhSavio Date: Fri, 4 Oct 2024 11:34:29 -0300 Subject: [PATCH] Fix PARSE_ERROR by adjusting operator parsing --- src/Kind/Parse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Kind/Parse.hs b/src/Kind/Parse.hs index 1e542fa77..309b17a2d 100644 --- a/src/Kind/Parse.hs +++ b/src/Kind/Parse.hs @@ -347,6 +347,8 @@ parseOper = P.choice , P.try (string "*") >> return MUL , P.try (string "/") >> return DIV , P.try (string "%") >> return MOD + , P.try (string "<<") >> return LSH + , P.try (string ">>") >> return RSH , P.try (string "<=") >> return LTE , P.try (string ">=") >> return GTE , P.try (string "<") >> return LT @@ -356,8 +358,6 @@ parseOper = P.choice , P.try (string "&") >> return AND , P.try (string "|") >> return OR , P.try (string "^") >> return XOR - , P.try (string "<<") >> return LSH - , P.try (string ">>") >> return RSH ] parseBook :: Parser Book