implement measured patterns

2021-09-29 13:26:06 +02:00
parent 2137324f81
commit edd7081dea
12 changed files with 81 additions and 94 deletions
@@ -247,7 +247,7 @@ convert' gr vs = ppT

        pat (PString s) = [s]
        pat (PAlt p1 p2) = pat p1++pat p2
-        pat (PSeq p1 p2) = [s1++s2 | s1<-pat p1, s2<-pat p2]
+        pat (PSeq _ _ p1 _ _ p2) = [s1++s2 | s1<-pat p1, s2<-pat p2]
        pat p = error $ "convert' alts pat: "++show p

    fields = map field . filter (not.isLockLabel.fst)