diff options
| author | Thomas Hallgren <th-github@altocumulus.org> | 2019-09-10 12:41:16 +0200 |
|---|---|---|
| committer | Thomas Hallgren <th-github@altocumulus.org> | 2019-09-10 12:41:16 +0200 |
| commit | 9d3badd8b225378269814e79395ae48beb83fa4d (patch) | |
| tree | 3f8bfbc927b845b478dddb5cfcde4fde8f7d986c | |
| parent | e2ddea6c7d88fab69a98d589288ba5c230496e8e (diff) | |
GrammarToCanonical: bug fix: add missing case for Empty
| -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 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 |