From 6bca92c3f75df35fcb2ec23d56107783373da7e6 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 12 Jul 2006 15:33:06 +0000 Subject: [PATCH] Comments and import trimming --- compiler/codeGen/CodeGen.lhs | 8 ++++---- compiler/typecheck/TcType.lhs | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/codeGen/CodeGen.lhs b/compiler/codeGen/CodeGen.lhs index e8d83a5..48c0cbf 100644 --- a/compiler/codeGen/CodeGen.lhs +++ b/compiler/codeGen/CodeGen.lhs @@ -35,21 +35,21 @@ import CLabel import Cmm import CmmUtils ( zeroCLit, mkIntCLit, mkLblExpr ) import PprCmm ( pprCmms ) -import MachOp ( wordRep, MachHint(..) ) +import MachOp ( wordRep ) import StgSyn -import PrelNames ( gHC_PRIM, rOOT_MAIN, mAIN, pREL_TOP_HANDLER ) +import PrelNames ( gHC_PRIM, rOOT_MAIN, pREL_TOP_HANDLER ) import Packages ( HomeModules ) import DynFlags ( DynFlags(..), DynFlag(..), dopt ) import StaticFlags ( opt_SccProfilingOn ) -import HscTypes ( ForeignStubs(..), TypeEnv, typeEnvTyCons ) +import HscTypes ( ForeignStubs(..) ) import CostCentre ( CollectedCCs ) import Id ( Id, idName, setIdName ) import Name ( nameSrcLoc, nameOccName, nameUnique, isInternalName, mkExternalName ) import OccName ( mkLocalOcc ) import TyCon ( TyCon ) -import Module ( Module, mkModule ) +import Module ( Module ) import ErrUtils ( dumpIfSet_dyn, showPass ) import Panic ( assertPanic ) diff --git a/compiler/typecheck/TcType.lhs b/compiler/typecheck/TcType.lhs index 9cc9170..a4d43dc 100644 --- a/compiler/typecheck/TcType.lhs +++ b/compiler/typecheck/TcType.lhs @@ -814,8 +814,8 @@ mkDictTy clas tys = mkPredTy (ClassP clas tys) isDictTy :: Type -> Bool isDictTy ty | Just ty' <- tcView ty = isDictTy ty' -isDictTy (PredTy p) = isClassPred p -isDictTy other = False +isDictTy (PredTy p) = isClassPred p +isDictTy other = False \end{code} --------------------- Implicit parameters --------------------------------- -- 1.7.10.4