diff options
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 138630c3a..27d88f6fb 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -295,10 +295,14 @@ stateAbstract = abstractOf . stateGrammarST maybeStateAbstract (ShSt (ma,_,_)) = ma hasStateAbstract = maybe False (const True) . maybeStateAbstract abstractOfState = maybe emptyAbstractST id . maybeStateAbstract +-} stateIsWord sg = isKnownWord (stateMorpho sg) + +{- + -- getting info on a language existLang :: ShellState -> Language -> Bool existLang st lang = elem lang (allLanguages st) |