diff options
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 |