X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=67195e25ac77f6c90e562246c27bf49e93a819ab;hb=7d7d186e02f0c86efb7fc9291a142b30005718ae;hp=23d53a6e59b7d38582727681907a257391e835f9;hpb=85b5efb6e1e1ece5df67a01e932f966f280d8e16;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 23d53a6..67195e2 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -28,7 +28,7 @@ import RnIfaces		( slurpImpDecls, mkImportInfo, recordLocalSlurps,
 			)
 import RnHiFiles	( readIface, removeContext, loadInterface,
 			  loadExports, loadFixDecls, loadDeprecs )
-import RnEnv		( availsToNameSet, availName, 
+import RnEnv		( availsToNameSet, availName, mkIfaceGlobalRdrEnv,
 			  emptyAvailEnv, unitAvailEnv, availEnvElts, plusAvailEnv, groupAvails,
 			  warnUnusedImports, warnUnusedLocalBinds, warnUnusedModules,
 			  lookupOrigNames, lookupSrcName, newGlobalName, unQualInScope
@@ -486,7 +486,7 @@ loadOldIface parsed_iface
 			       mi_boot = False, mi_orphan = pi_orphan iface, 
 			       mi_fixities = fix_env, mi_deprecs = deprec_env,
 			       mi_decls   = decls,
-			       mi_globals = panic "No mi_globals in old interface"
+			       mi_globals = mkIfaceGlobalRdrEnv avails
 		    }
     in
     returnRn mod_iface