msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

GrammarToCanonical: bug fix: add missing case for Empty

Browse Source
This commit is contained in:
Thomas Hallgren
2019-09-10 12:41:16 +02:00
parent e2ddea6c7d
commit 9d3badd8b2
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

@@ -215,6 +215,7 @@ convert' gr vs = ppT
alt (t,p) = (pre p,ppT0 t) alt (t,p) = (pre p,ppT0 t)
pre (K s) = [s] pre (K s) = [s]
pre Empty = [""] -- Empty == K ""
pre (Strs ts) = concatMap pre ts pre (Strs ts) = concatMap pre ts
pre (EPatt p) = pat p pre (EPatt p) = pat p
pre t = error $ "pre "++show t pre t = error $ "pre "++show t