Commit d1675fe0 authored by simonpj's avatar simonpj
Browse files

[project @ 2004-11-29 16:24:16 by simonpj]

Trim imports
parent 05eae534
......@@ -1049,7 +1049,6 @@ eqExpr e1 e2
where
env' = extendVarEnvList env [(v1,v2) | ((v1,_),(v2,_)) <- zip ps1 ps2]
eq_rhs (_,r1) (_,r2) = eq env' r1 r2
-- gaw 2004
eq env (Case e1 v1 t1 a1)
(Case e2 v2 t2 a2) = eq env e1 e2 &&
t1 `eqType` t2 &&
......
......@@ -10,7 +10,7 @@ module Desugar ( deSugar, deSugarExpr ) where
import CmdLineOpts ( DynFlag(..), DynFlags(..), dopt, opt_SccProfilingOn )
import HscTypes ( ModGuts(..), ModGuts, HscEnv(..), GhciMode(..),
Dependencies(..), TypeEnv, IsBootInterface, unQualInScope )
Dependencies(..), TypeEnv, IsBootInterface )
import HsSyn ( RuleDecl(..), RuleBndr(..), HsExpr(..), LHsExpr,
HsBindGroup(..), LRuleDecl, HsBind(..) )
import TcRnTypes ( TcGblEnv(..), ImportAvails(..) )
......@@ -32,16 +32,16 @@ import RdrName ( GlobalRdrEnv )
import NameSet
import VarEnv
import VarSet
import Bag ( Bag, isEmptyBag, mapBag, emptyBag, bagToList )
import Bag ( Bag, isEmptyBag, emptyBag, bagToList )
import CoreLint ( showPass, endPass )
import CoreFVs ( ruleRhsFreeVars )
import Packages ( PackageState(thPackageId) )
import ErrUtils ( doIfSet, dumpIfSet_dyn, pprBagOfWarnings,
mkWarnMsg, errorsFound, WarnMsg )
errorsFound, WarnMsg )
import ListSetOps ( insertList )
import Outputable
import UniqSupply ( mkSplitUniqSupply )
import SrcLoc ( Located(..), SrcSpan, unLoc )
import SrcLoc ( Located(..), unLoc )
import DATA_IOREF ( readIORef )
import FastString
import Util ( sortLe )
......
......@@ -30,7 +30,7 @@ import Name ( Name, nameUnique, nameModule,
import OccName ( OccName, isTupleOcc_maybe, tcName, dataName,
lookupOccEnv, unitOccEnv, extendOccEnv, extendOccEnvList )
import PrelNames ( gHC_PRIM, pREL_TUP )
import Module ( Module, mkModule, emptyModuleEnv,
import Module ( Module, emptyModuleEnv,
lookupModuleEnv, extendModuleEnv_C )
import UniqSupply ( UniqSupply, splitUniqSupply, uniqFromSupply, uniqsFromSupply )
import FiniteMap ( emptyFM, lookupFM, addToFM )
......
......@@ -183,7 +183,7 @@ import IfaceSyn ( IfaceDecl(..), IfaceClassOp(..), IfaceConDecl(..),
import LoadIface ( readIface, loadInterface, ifaceInstGates )
import BasicTypes ( Version, initialVersion, bumpVersion )
import TcRnMonad
import TcRnTypes ( ImportAvails(..), mkModDeps )
import TcRnTypes ( mkModDeps )
import TcType ( isFFITy )
import HscTypes ( ModIface(..), TyThing(..), IfacePackage(..),
ModGuts(..), ModGuts, IfaceExport,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment