diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-11-07 12:56:16 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-11-07 12:56:16 +0000 |
| commit | e8bad7f7e0b39e74a276ce46a48446dead919942 (patch) | |
| tree | cbf78d04e0e53bb176529c14a454df8f7efb184d /src/GF/Shell.hs | |
| parent | 790ad6d4a52573d61565ac499eeb61e8dcabe3e1 (diff) | |
purge in pm
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 06be45209..2543a8e91 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -444,8 +444,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com CPrintLanguages -> justOutput opts (putStrLn $ unwords $ map prLanguage $ allLanguages st) sa CPrintMultiGrammar -> do - sa' <- changeState purgeShellState sa - returnArg (AString (optPrintMultiGrammar opts cgr)) sa' + let cgr' = canModules $ purgeShellState st + returnArg (AString (optPrintMultiGrammar opts cgr')) sa CShowGrammarGraph -> do ---- sa' <- changeState purgeShellState sa let g0 = writeFile "grphtmp.dot" $ visualizeCanonGrammar opts cgr |