diff options
| author | aarne <unknown> | 2004-04-01 09:51:32 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-01 09:51:32 +0000 |
| commit | f53f35978f4cd6b0e4c5e9123b5e88f04f6f4452 (patch) | |
| tree | 100fc2f36a0dccc24c030b5a82389dac70780902 /src/GF/Shell.hs | |
| parent | 3f9b4e7855cf4594708a9fbad194c89540d2cf1e (diff) | |
2beta2
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 5136a00d0..7574b86a6 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -53,7 +53,7 @@ data Command = | CWrapTerm Ident | CMorphoAnalyse | CTestTokenizer - | CComputeConcrete I.Ident String + | CComputeConcrete String | CTranslationQuiz Language Language | CTranslationList Language Language Int @@ -176,7 +176,11 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of CMorphoAnalyse -> changeArg (AString . morphoAnalyse opts gro . prCommandArg) sa CTestTokenizer -> changeArg (AString . optTokenizer opts gro . prCommandArg) sa - CComputeConcrete m t -> + CComputeConcrete t -> do + m <- return $ + maybe (I.identC "?") id $ -- meaningful if no opers in t + maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res + getOptVal opts useResource -- flag -res=m justOutput (putStrLn (err id (prt . stripTerm) ( string2srcTerm src m t >>= Co.computeConcrete src))) sa |