GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-29 04:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Thomas Hallgren
2019-03-14 16:52:37 +01:00
parent b11d7d93dc
commit 2979864752
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Compile/GrammarToCanonical.hs
View File

@@ -218,6 +218,7 @@ convert' gr vs = ppT
pat (PString s) = [s] pat (PString s) = [s]
pat (PAlt p1 p2) = pat p1++pat p2 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 pat p = error $ "pat "++show p
fields = map field . filter (not.isLockLabel.fst) fields = map field . filter (not.isLockLabel.fst)