diff options
| author | Thomas Hallgren <th-github@altocumulus.org> | 2019-03-14 16:52:37 +0100 |
|---|---|---|
| committer | Thomas Hallgren <th-github@altocumulus.org> | 2019-03-14 16:52:37 +0100 |
| commit | 2979864752d4f6c80089716f3e52db95785f3e37 (patch) | |
| tree | 2922ec154a1f0f7900789ef79910111ddbb72e9c /src/compiler/GF/Compile/GrammarToCanonical.hs | |
| parent | b11d7d93dcb22b26564f49158414f07f1bd3f4cc (diff) | |
GF.Compile.GrammarToCanonical: allow + in reg exps in pre { }
Diffstat (limited to 'src/compiler/GF/Compile/GrammarToCanonical.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GrammarToCanonical.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |