X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnNames.lhs;h=881f497b81eaae71658cca4649feefdee5758df2;hb=94ff1ec1546169fc839b2318c0d141f3089d3e26;hp=2eb5a8de42de0c3f26ed1f548363c92af78274cf;hpb=937b23b94b458172442ac583f8d5b6f5a093a24b;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 2eb5a8d..881f497 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -34,6 +34,7 @@ import PrelMods
 import UniqFM	( lookupUFM )
 import Bag	( bagToList )
 import Maybes	( maybeToBool )
+import Module	( pprModule )
 import NameSet
 import Name
 import RdrName	( RdrName, rdrNameOcc, mkRdrQual, mkRdrUnqual )
@@ -209,7 +210,7 @@ importsFromImportDecl :: RdrNameImportDecl
 
 importsFromImportDecl (ImportDecl imp_mod qual_only as_mod import_spec iloc)
   = pushSrcLocRn iloc $
-    getInterfaceExports imp_mod 	`thenRn` \ avails ->
+    getInterfaceExports imp_mod 	`thenRn` \ (imp_mod, avails) ->
 
     if null avails then
 	-- If there's an error in getInterfaceExports, (e.g. interface