GF.Compile.GrammarToCanonical: allow + in reg exps in pre { }

2026-04-19 01:39:32 -06:00 · 2019-03-14 16:52:37 +01:00
parent b11d7d93dc
commit 2979864752
1 changed files with 1 additions and 0 deletions
--- a/src/compiler/GF/Compile/GrammarToCanonical.hs
+++ b/src/compiler/GF/Compile/GrammarToCanonical.hs
@@ -218,6 +218,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 p = error $ "pat "++show p

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