From 9d3badd8b225378269814e79395ae48beb83fa4d Mon Sep 17 00:00:00 2001
From: Thomas Hallgren <th-github@altocumulus.org>
Date: Tue, 10 Sep 2019 12:41:16 +0200
Subject: [PATCH] GrammarToCanonical: bug fix: add missing case for Empty

---
 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 5494a1daa..33f35ad08 100644
--- 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