From 8a40130c7ab9c175c707e55060ec8d441851e82a Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 5 Apr 2004 10:11:34 +0000 Subject: [PATCH] [project @ 2004-04-05 10:11:34 by simonpj] Import trimming --- ghc/compiler/typecheck/TcRnDriver.lhs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 ) -- 1.7.10.4