From: simonpj <unknown>
Date: Mon, 5 Apr 2004 10:11:34 +0000 (+0000)
Subject: [project @ 2004-04-05 10:11:34 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1915
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8a40130c7ab9c175c707e55060ec8d441851e82a;p=ghc-hetmet.git

[project @ 2004-04-05 10:11:34 by simonpj]
Import trimming
---

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 6af188c..2b1ba61 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -21,7 +21,8 @@ import {-# SOURCE #-} TcSplice ( tcSpliceDecls )
 
 import CmdLineOpts	( DynFlag(..), opt_PprStyle_Debug, dopt )
 import DriverState	( v_MainModIs, v_MainFunIs )
-import HsSyn
+import HsSyn		( HsModule(..), HsExtCore(..), HsGroup(..), LHsDecl, SpliceDecl(..), HsBind(..),
+			  nlHsApp, nlHsVar )
 import RdrHsSyn		( findSplice )
 
 import PrelNames	( runIOName, rootMainName, mAIN_Name,
@@ -67,9 +68,9 @@ import HscTypes		( ModGuts(..), HscEnv(..),
 			  emptyFixityEnv
 			)
 #ifdef GHCI
-import HsSyn		( HsStmtContext(..), 
-			  Stmt(..), 
-			  collectStmtsBinders, mkSimpleMatch, placeHolderType )
+import HsSyn		( HsStmtContext(..), Stmt(..), HsExpr(..), HsBindGroup(..), LStmt, LHsExpr,
+			  collectStmtsBinders, mkSimpleMatch, placeHolderType,
+			  nlLetStmt, nlExprStmt, nlBindStmt, nlResultStmt, nlVarPat )
 import RdrName		( GlobalRdrEnv, mkGlobalRdrEnv, GlobalRdrElt(..),
 			  Provenance(..), ImportSpec(..),
 			  lookupLocalRdrEnv, extendLocalRdrEnv )