From 2979864752d4f6c80089716f3e52db95785f3e37 Mon Sep 17 00:00:00 2001 From: Thomas Hallgren Date: Thu, 14 Mar 2019 16:52:37 +0100 Subject: [PATCH] GF.Compile.GrammarToCanonical: allow + in reg exps in pre { } --- src/compiler/GF/Compile/GrammarToCanonical.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/compiler/GF/Compile/GrammarToCanonical.hs b/src/compiler/GF/Compile/GrammarToCanonical.hs index 3b21f7702..32a4e301b 100644 --- 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)