From b2eec8d06f728ab947b130ae747f32b4eb1cf44f Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 7 Nov 2006 12:56:16 +0000
Subject: [PATCH] purge in pm

---
 src/GF/Shell.hs | 4 ++--
 1 file 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