pattern matching for "x"*

2021-09-29 14:57:18 +02:00
parent edd7081dea
commit 6efb878c43
11 changed files with 44 additions and 19 deletions
@@ -311,9 +311,9 @@ renamePattern env patt =
        (q',ws) <- renp q
        return (PSeq minp maxp p' minq maxq q', vs ++ ws)

-      PRep p -> do
+      PRep minp maxp p -> do
        (p',vs) <- renp p
-        return (PRep p', vs)
+        return (PRep minp maxp p', vs)

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