diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-03 11:24:14 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-03 12:15:42 +0100 |
| commit | a303ee91d4186eba80864c45ff3ad7a58e70fa65 (patch) | |
| tree | 42857d8a13ed912a16c0bbdd53604681ad2f1fa0 | |
| parent | d146fdbbf8941a8344f0ec300e79dbeabc08d1ea (diff) | |
| download | haskell-a303ee91d4186eba80864c45ff3ad7a58e70fa65.tar.gz | |
tiny cleanup
| -rw-r--r-- | compiler/main/GHC.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index c7b7687023..665b1b0532 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -38,7 +38,7 @@ module GHC ( -- * Loading\/compiling the program depanal, - load, LoadHowMuch(..), InteractiveImport(..), + load, LoadHowMuch(..), InteractiveImport(..), SuccessFlag(..), succeeded, failed, defaultWarnErrLogger, WarnErrLogger, workingDirectoryChanged, @@ -983,18 +983,19 @@ getHomeModuleInfo hsc_env mdl = Nothing -> return Nothing Just hmi -> do let details = hm_details hmi - iface <- lookupModuleIface hsc_env mdl + let iface = hm_iface hmi return (Just (ModuleInfo { minf_type_env = md_types details, minf_exports = availsToNameSet (md_exports details), minf_rdr_env = mi_globals $! hm_iface hmi, minf_instances = md_insts details, - minf_iface = iface + minf_iface = Just iface #ifdef GHCI ,minf_modBreaks = getModBreaks hmi #endif })) +#ifdef GHCI lookupModuleIface :: HscEnv -> Module -> IO (Maybe ModIface) lookupModuleIface env m = do eps <- hscEPS env @@ -1003,6 +1004,7 @@ lookupModuleIface env m = do homePkgT = hsc_HPT env iface = lookupIfaceByModule dflags homePkgT pkgIfaceT m return iface +#endif -- | The list of top-level entities defined in a module modInfoTyThings :: ModuleInfo -> [TyThing] |