From: simonmar <unknown>
Date: Fri, 8 Apr 2005 13:39:11 +0000 (+0000)
Subject: [project @ 2005-04-08 13:39:11 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~772
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=94532812d87b907d31ea9e0436abc1f5017bae61;hp=fcfc7437ddc513a51b1ec80af1c4e9079131e50f;p=ghc-hetmet.git

[project @ 2005-04-08 13:39:11 by simonmar]
- add initPackages
- add showGhcException
- tidy up the export list a bit
---

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index e2e3ab7..7f33cfc 100644
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -17,6 +17,7 @@ module GHC (
 	-- * Flags and settings
 	DynFlags(..), DynFlag(..), GhcMode(..), HscTarget(..), dopt,
 	parseDynamicFlags,
+	initPackages,
 	getSessionDynFlags,
 	setSessionDynFlags,
 	setMsgHandler,
@@ -58,19 +59,36 @@ module GHC (
 #endif
 
 	-- * Abstract syntax elements
+
+	-- ** Modules
 	Module, mkModule, pprModule,
+
+	-- ** Identifiers
+	Name,
+	Id, idType,
+
+	-- ** Type constructors
+	TyCon, 
+
+	-- ** Data constructors
+	DataCon,
+
+	-- ** Classes
+	Class, 
+
+	-- ** Types and Kinds
 	Type, dropForAlls,
 	Kind,
-	Name, Id, TyCon, Class, DataCon,
+
+	-- ** Entities
 	TyThing(..), 
-	idType,
 
-	-- used by DriverMkDepend:
+	-- * Exceptions
+	GhcException(..), showGhcException,
+
+	-- * Miscellaneous
 	sessionHscEnv,
 	cyclicModuleErr,
-	
-	-- Exceptions
-	GhcException(..)
   ) where
 
 {-
@@ -101,6 +119,7 @@ import GHC.Exts		( unsafeCoerce# )
 import IfaceSyn		( IfaceDecl )
 #endif
 
+import Packages		( initPackages )
 import RdrName		( GlobalRdrEnv )
 import HsSyn		( HsModule, LHsBinds )
 import Type		( Kind, Type, dropForAlls )
@@ -576,6 +595,7 @@ ppFilesFromSummaries summaries = [ fn | Just fn <- map ms_hspp_file summaries ]
 
 data CheckedModule = 
   CheckedModule { parsedSource      :: ParsedSource,
+		-- ToDo: renamedSource
 		  typecheckedSource :: Maybe TypecheckedSource
 	        }