From: krasimir <unknown>
Date: Wed, 20 Apr 2005 13:50:04 +0000 (+0000)
Subject: [project @ 2005-04-20 13:50:04 by krasimir]
X-Git-Tag: Initial_conversion_from_CVS_complete~717
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e7da484086a7be73dbd0747b945fe63e7cd53ed0;p=ghc-hetmet.git

[project @ 2005-04-20 13:50:04 by krasimir]
modInfoExports, TypecheckedSource and ParsedSource are exported.
Added modInfoPrintUnqualified function.
---

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index 7ba62c4..6ce921d 100644
--- a/ghc/compiler/main/GHC.hs
+++ b/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 }