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