msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

some more printing

Browse Source
This commit is contained in:
aarne
2004-04-19 15:33:45 +00:00
parent 9b47f67467
commit bd9ba5ce39
9 changed files with 62 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell.hs
View File

@@ -210,9 +210,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of
| oElem showAll opts -> returnArg (AString txtHelpFile) sa
| otherwise -> returnArg (AString txtHelpFileSummary) sa
CPrintGrammar
| oElem showOld opts -> returnArg (AString $ printGrammarOld (canModules st)) sa
| otherwise -> returnArg (AString (optPrintGrammar opts gro)) sa
CPrintGrammar -> returnArg (AString (optPrintGrammar opts gro)) sa
CPrintGlobalOptions -> justOutput (putStrLn $ prShellStateInfo st) sa
CPrintInformation c -> justOutput (useIOE () $ showInformation opts st c) sa
CPrintLanguages -> justOutput