X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=6295d7dcbd6a5fec20983bf22f1f96cfd2ab7907;hp=c786cbba1616b4bde39e3d77be45cdaca4e6d695;hb=ab22f4e6456820c1b5169d75f5975a94e61f54ce;hpb=6b4592943b799175dec4549882bbf06fa87a0739

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index c786cbb..6295d7d 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -1756,15 +1756,15 @@ getModuleInfo s mdl = withSession s $ \hsc_env -> do
 getPackageModuleInfo :: HscEnv -> Module -> IO (Maybe ModuleInfo)
 getPackageModuleInfo hsc_env mdl = do
 #ifdef GHCI
-  (_msgs, mb_names) <- getModuleExports hsc_env mdl
-  case mb_names of
+  (_msgs, mb_avails) <- getModuleExports hsc_env mdl
+  case mb_avails of
     Nothing -> return Nothing
-    Just names -> do
+    Just avails -> do
 	eps <- readIORef (hsc_EPS hsc_env)
 	let 
+            names  = availsToNameSet avails
 	    pte    = eps_PTE eps
-	    n_list = nameSetToList names
-	    tys    = [ ty | name <- n_list,
+	    tys    = [ ty | name <- concatMap availNames avails,
 			    Just ty <- [lookupTypeEnv pte name] ]
 	--
 	return (Just (ModuleInfo {
@@ -1925,8 +1925,8 @@ mkExportEnv hsc_env mods = do
   stuff <- mapM (getModuleExports hsc_env) mods
   let 
 	(_msgs, mb_name_sets) = unzip stuff
-	gres = [ nameSetToGlobalRdrEnv name_set (moduleName mod)
-  	       | (Just name_set, mod) <- zip mb_name_sets mods ]
+	gres = [ nameSetToGlobalRdrEnv (availsToNameSet avails) (moduleName mod)
+  	       | (Just avails, mod) <- zip mb_name_sets mods ]
   --
   return $! foldr plusGlobalRdrEnv emptyGlobalRdrEnv gres