X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=b9e491e46125e658506d912dba758aa07e66ce56;hb=11a4f9a91213e98c586feeb64c41c0e07037df66;hp=feb4d2551ff71eb750f3de82b39120fee8c6237a;hpb=f377ab11a16267e253a270c73284d80298eb09d4;p=ghc-hetmet.git

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index feb4d25..b9e491e 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -36,7 +36,7 @@ import PrelNames
 import Module
 import Name
 import NameEnv
-import UniqFM
+import LazyUniqFM
 import NameSet
 import OccName
 import HscTypes
@@ -1303,9 +1303,9 @@ printMinimalImports imps
    this_mod <- getModule ;
    rdr_env  <- getGlobalRdrEnv ;
    dflags   <- getDOpts ;
-   ioToTcRn (do { h <- openFile (mkFilename this_mod) WriteMode ;
-		  printForUser h (mkPrintUnqualified dflags rdr_env) 
-				 (vcat (map ppr_mod_ie mod_ies)) })
+   liftIO $ do h <- openFile (mkFilename this_mod) WriteMode
+               printForUser h (mkPrintUnqualified dflags rdr_env)
+                              (vcat (map ppr_mod_ie mod_ies))
    }
   where
     mkFilename this_mod = moduleNameString (moduleName this_mod) ++ ".imports"