diff options
| author | aarne <unknown> | 2004-08-24 11:49:46 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-24 11:49:46 +0000 |
| commit | c86192273657fe17d4dfe246f0d850379b9e5866 (patch) | |
| tree | 0c388671f158d8be47582766939b9bdb59a92f15 /src/GF/Shell.hs | |
| parent | b57e3fff8c445bcc926c1018ac50a67e6417bf15 (diff) | |
some var parser bug fixes
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index cb6d3ff18..27ceb19e0 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -209,9 +209,10 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = checkOptions st co >> case comm of ---- deprec! CSetLocalFlag lang -> changeState (addLocalOptions lang opts0) sa CHelp (Just c) -> returnArg (AString (txtHelpCommand c)) sa - CHelp _ - | oElem showAll opts -> returnArg (AString txtHelpFile) sa - | otherwise -> returnArg (AString txtHelpFileSummary) sa + CHelp _ -> case opts0 of + Opts [o] | o == showAll -> returnArg (AString txtHelpFile) sa + Opts [o] -> returnArg (AString (txtHelpCommand ('-':prOpt o))) sa + _ -> returnArg (AString txtHelpFileSummary) sa CPrintGrammar -> returnArg (AString (optPrintGrammar opts gro)) sa CPrintGlobalOptions -> justOutput (putStrLn $ prShellStateInfo st) sa |