X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;fp=compiler%2Fmain%2FHscMain.lhs;h=37c65bbf0f083e5baae0f96cb339234ea575930a;hp=09f513014ff36f2e408843224ca5c0c143536a20;hb=731afdc81fb55e4cc0989443bbc6aa2770d4a26b;hpb=1ecf3fd2a39e43fddc4f89f3bc1079a426f11142 diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index 09f5130..37c65bb 100644 --- a/compiler/main/HscMain.lhs +++ b/compiler/main/HscMain.lhs @@ -58,8 +58,8 @@ module HscMain , hscParseIdentifier , hscTcRcLookupName , hscTcRnGetInfo - , hscRnImportDecls #ifdef GHCI + , hscRnImportDecls , hscGetModuleExports , hscTcRnLookupRdrName , hscStmt, hscStmtWithLocation @@ -294,7 +294,6 @@ hscTcRnGetInfo hsc_env name = hscGetModuleExports :: HscEnv -> Module -> IO (Maybe [AvailInfo]) hscGetModuleExports hsc_env mdl = runHsc hsc_env $ ioMsgMaybe' $ getModuleExports hsc_env mdl -#endif -- ----------------------------------------------------------------------------- -- | Rename some import declarations @@ -312,6 +311,8 @@ hscRnImportDecls hsc_env this_mod import_decls = runHsc hsc_env $ ioMsgMaybe $ initTc hsc_env HsSrcFile False this_mod $ fmap tcg_rdr_env $ tcRnImports hsc_env this_mod import_decls +#endif + -- ----------------------------------------------------------------------------- -- | parse a file, returning the abstract syntax