From e7da484086a7be73dbd0747b945fe63e7cd53ed0 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Wed, 20 Apr 2005 13:50:04 +0000
Subject: [PATCH] [project @ 2005-04-20 13:50:04 by krasimir] modInfoExports,
 TypecheckedSource and ParsedSource are exported. Added
 modInfoPrintUnqualified function.

---
 ghc/compiler/main/GHC.hs |    6 ++++++
 1 file changed, 6 insertions(+)

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 }
-- 
1.7.10.4