[project @ 2005-04-20 13:50:04 by krasimir]

modInfoExports, TypecheckedSource and ParsedSource are exported.
Added modInfoPrintUnqualified function.

ghc/compiler/main/GHC.hs

@@ -36,6 +36,7 @@ module GHC (
 	loadMsgs,
 	workingDirectoryChanged,
 	checkModule, CheckedModule(..),
+	TypecheckedSource, ParsedSource,
 
 	-- * Inspecting the module structure of the program
 	ModuleGraph, ModSummary(..),
@@ -48,6 +49,8 @@ module GHC (
 	getModuleInfo,
 	modInfoTyThings,
 	modInfoTopLevelScope,
+	modInfoPrintUnqualified,
+	modInfoExports,
 	lookupName,
 
 	-- * Interactive evaluation
@@ -1558,6 +1561,9 @@ modInfoTopLevelScope minf
 modInfoExports :: ModuleInfo -> [Name]
 modInfoExports minf = nameSetToList $! (md_exports $! minf_details minf)
 
+modInfoPrintUnqualified :: ModuleInfo -> Maybe PrintUnqualified
+modInfoPrintUnqualified minf = fmap unQualInScope (minf_rdr_env minf)
+
 isDictonaryId :: Id -> Bool
 isDictonaryId id
   = case tcSplitSigmaTy (idType id) of { (tvs, theta, tau) -> isDictTy tau }