projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1ecf3fd
)
Make compilation of hscRnImportDecls conditional: fixes stage1 build
author
Max Bolingbroke
<batterseapower@hotmail.com>
Sun, 3 Apr 2011 17:45:02 +0000
(18:45 +0100)
committer
Max Bolingbroke
<batterseapower@hotmail.com>
Sun, 3 Apr 2011 17:45:02 +0000
(18:45 +0100)
compiler/main/HscMain.lhs
patch
|
blob
|
history
diff --git
a/compiler/main/HscMain.lhs
b/compiler/main/HscMain.lhs
index
09f5130
..
37c65bb
100644
(file)
--- a/
compiler/main/HscMain.lhs
+++ b/
compiler/main/HscMain.lhs
@@
-58,8
+58,8
@@
module HscMain
, hscParseIdentifier
, hscTcRcLookupName
, hscTcRnGetInfo
, hscParseIdentifier
, hscTcRcLookupName
, hscTcRnGetInfo
- , hscRnImportDecls
#ifdef GHCI
#ifdef GHCI
+ , hscRnImportDecls
, hscGetModuleExports
, hscTcRnLookupRdrName
, hscStmt, hscStmtWithLocation
, 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
hscGetModuleExports :: HscEnv -> Module -> IO (Maybe [AvailInfo])
hscGetModuleExports hsc_env mdl =
runHsc hsc_env $ ioMsgMaybe' $ getModuleExports hsc_env mdl
-#endif
-- -----------------------------------------------------------------------------
-- | Rename some import declarations
-- -----------------------------------------------------------------------------
-- | 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
= 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
-- -----------------------------------------------------------------------------
-- | parse a file, returning the abstract syntax