diff options
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/Optimize.hs | 1 | ||||
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs index 77cbcdbdf..ceec2c1b6 100644 --- a/src/GF/Compile/Optimize.hs +++ b/src/GF/Compile/Optimize.hs @@ -191,4 +191,5 @@ evalPrintname gr c ppr lin = C x y -> C (oneBranch x) (oneBranch y) S x _ -> oneBranch x P x _ -> oneBranch x + Alts (d,_) -> oneBranch d _ -> t diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 4e84bd248..17ea2cc9a 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -88,6 +88,7 @@ stateGrammarST = grammar stateCF = cf stateMorpho = morpho stateOptions = loptions +stateGrammarWords = map fst . tree2list . stateMorpho cncModuleIdST = stateGrammarST |