X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=9c87db25375ff14c515b7461342d95eb76705ccc;hb=3e392c96b4bd0daa9dba6c20b2340ac4264d2482;hp=83837ee73e6fb74acbab3d7b9df942da26339686;hpb=2f967bd64b5c080c55ad3f915be5d89f6640152f;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 83837ee..9c87db2 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -9,6 +9,7 @@ module HscMain (
 	HscResult(..),
 	hscMain, newHscEnv, hscCmmFile, 
 	hscFileCheck,
+	hscParseIdentifier,
 #ifdef GHCI
 	hscStmt, hscTcExpr, hscKcType,
 	hscGetInfo, GetInfoResult,
@@ -19,7 +20,7 @@ module HscMain (
 #include "HsVersions.h"
 
 #ifdef GHCI
-import HsSyn		( Stmt(..), LStmt, LHsExpr, LHsType )
+import HsSyn		( Stmt(..), LHsExpr )
 import IfaceSyn		( IfaceDecl, IfaceInst )
 import Module		( Module )
 import CodeOutput	( outputForeignStubs )
@@ -33,7 +34,6 @@ import RdrName		( rdrNameOcc )
 import OccName		( occNameUserString )
 import Type		( Type )
 import PrelNames	( iNTERACTIVE )
-import StringBuffer	( stringToStringBuffer )
 import Kind		( Kind )
 import CoreLint		( lintUnfolding )
 import DsMeta		( templateHaskellNames )
@@ -44,9 +44,9 @@ import SrcLoc		( SrcLoc, noSrcLoc )
 import Var		( Id )
 import Module		( emptyModuleEnv )
 import RdrName		( GlobalRdrEnv, RdrName )
-import HsSyn		( HsModule, LHsBinds )
+import HsSyn		( HsModule, LHsBinds, LStmt, LHsType )
 import SrcLoc		( Located(..) )
-import StringBuffer	( hGetStringBuffer )
+import StringBuffer	( hGetStringBuffer, stringToStringBuffer )
 import Parser
 import Lexer		( P(..), ParseResult(..), mkPState )
 import SrcLoc		( mkSrcLoc )
@@ -648,6 +648,7 @@ hscKcType hsc_env str
 	     Just other -> do { errorMsg ("not an type: `" ++ str ++ "'") ;
 			        return Nothing } ;
       	     Nothing    -> return Nothing } }
+#endif
 \end{code}
 
 \begin{code}
@@ -686,7 +687,6 @@ hscParseThing parser dflags str
       dumpIfSet_dyn dflags Opt_D_dump_parsed "Parser" (ppr thing);
       return (Just thing)
       }}
-#endif
 \end{code}
 
 %************************************************************************