diff options
| author | aarne <unknown> | 2003-11-17 15:17:53 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-17 15:17:53 +0000 |
| commit | 70c9f7b365b07044c07837a04223a11dfa3b7140 (patch) | |
| tree | b39c484dd86d6226f716f241da0b4a85a630a6a0 /src/GF/Compile | |
| parent | 9d55f72d7a97658faa6ebc890535fa0c6e665a05 (diff) | |
Lexer by need.
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 |