implement measured patterns

2021-09-29 13:26:06 +02:00
parent 2137324f81
commit edd7081dea
12 changed files with 81 additions and 94 deletions
@@ -306,10 +306,10 @@ renamePattern env patt =
        (q',ws) <- renp q
        return (PAlt p' q', vs ++ ws)

-      PSeq p q -> do
+      PSeq minp maxp p minq maxq q -> do
        (p',vs) <- renp p
        (q',ws) <- renp q
-        return (PSeq p' q', vs ++ ws)
+        return (PSeq minp maxp p' minq maxq q', vs ++ ws)

      PRep p -> do
        (p',vs) <- renp p