Drop incompatible constructors in case

2024-09-27 20:21:23 -07:00
parent 0e3a9fe605
commit eb281fa3b3
7 changed files with 121 additions and 17 deletions
--- a/src/Lib/Parser.idr
+++ b/src/Lib/Parser.idr
@@ -95,8 +95,8 @@ parseOp = parseApp >>= go 0
    go : Int -> Raw -> Parser Raw
    go prec left =
      try (do
-        op <- token Oper
        fc <- getPos
+        op <- token Oper
        ops <- getOps
        let op' = "_" ++ op ++ "_"
        let Just (p,fix) = lookup op' ops