GrammarToCanonical: bug fix: add missing case for Empty

2019-09-10 12:41:16 +02:00
parent e2ddea6c7d
commit 9d3badd8b2
1 changed files with 1 additions and 0 deletions
--- a/src/compiler/GF/Compile/GrammarToCanonical.hs
+++ b/src/compiler/GF/Compile/GrammarToCanonical.hs
@@ -215,6 +215,7 @@ convert' gr vs = ppT
        alt (t,p) = (pre p,ppT0 t)

        pre (K s) = [s]
+        pre Empty = [""]  -- Empty == K ""
        pre (Strs ts) = concatMap pre ts
        pre (EPatt p) = pat p
        pre t = error $ "pre "++show t