Commit 94532812 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-08 13:39:11 by simonmar]

- add initPackages
- add showGhcException
- tidy up the export list a bit
parent fcfc7437
...@@ -17,6 +17,7 @@ module GHC ( ...@@ -17,6 +17,7 @@ module GHC (
-- * Flags and settings -- * Flags and settings
DynFlags(..), DynFlag(..), GhcMode(..), HscTarget(..), dopt, DynFlags(..), DynFlag(..), GhcMode(..), HscTarget(..), dopt,
parseDynamicFlags, parseDynamicFlags,
initPackages,
getSessionDynFlags, getSessionDynFlags,
setSessionDynFlags, setSessionDynFlags,
setMsgHandler, setMsgHandler,
...@@ -58,19 +59,36 @@ module GHC ( ...@@ -58,19 +59,36 @@ module GHC (
#endif #endif
-- * Abstract syntax elements -- * Abstract syntax elements
-- ** Modules
Module, mkModule, pprModule, Module, mkModule, pprModule,
-- ** Identifiers
Name,
Id, idType,
-- ** Type constructors
TyCon,
-- ** Data constructors
DataCon,
-- ** Classes
Class,
-- ** Types and Kinds
Type, dropForAlls, Type, dropForAlls,
Kind, Kind,
Name, Id, TyCon, Class, DataCon,
-- ** Entities
TyThing(..), TyThing(..),
idType,
-- used by DriverMkDepend: -- * Exceptions
GhcException(..), showGhcException,
-- * Miscellaneous
sessionHscEnv, sessionHscEnv,
cyclicModuleErr, cyclicModuleErr,
-- Exceptions
GhcException(..)
) where ) where
{- {-
...@@ -101,6 +119,7 @@ import GHC.Exts ( unsafeCoerce# ) ...@@ -101,6 +119,7 @@ import GHC.Exts ( unsafeCoerce# )
import IfaceSyn ( IfaceDecl ) import IfaceSyn ( IfaceDecl )
#endif #endif
import Packages ( initPackages )
import RdrName ( GlobalRdrEnv ) import RdrName ( GlobalRdrEnv )
import HsSyn ( HsModule, LHsBinds ) import HsSyn ( HsModule, LHsBinds )
import Type ( Kind, Type, dropForAlls ) import Type ( Kind, Type, dropForAlls )
...@@ -576,6 +595,7 @@ ppFilesFromSummaries summaries = [ fn | Just fn <- map ms_hspp_file summaries ] ...@@ -576,6 +595,7 @@ ppFilesFromSummaries summaries = [ fn | Just fn <- map ms_hspp_file summaries ]
data CheckedModule = data CheckedModule =
CheckedModule { parsedSource :: ParsedSource, CheckedModule { parsedSource :: ParsedSource,
-- ToDo: renamedSource
typecheckedSource :: Maybe TypecheckedSource typecheckedSource :: Maybe TypecheckedSource
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment