diff options
| author | aarne <unknown> | 2003-12-04 12:08:29 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-12-04 12:08:29 +0000 |
| commit | 15f94710f0403c760ed4ec1a8328c89400c4d94c (patch) | |
| tree | 93e1c81f180685a8a2afc4837aea511f48e312ca /src/GF/Compile/ShellState.hs | |
| parent | 6a9dc9e5f5ddea8130b88a88d1e07f489d0906f9 (diff) | |
Added French for new API. Started alpha conv. Fixed bugs.
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) |