Fix PARSE_ERROR by adjusting operator parsing

HigherOrderCO · Oct 4, 2024 · 37280a4 · 37280a4
1 parent 15caee8
commit 37280a4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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