diff options
| -rw-r--r-- | compiler/codeGen/CodeGen.lhs | 8 | ||||
| -rw-r--r-- | 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 e8d83a5a43..48c0cbfbb9 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 9cc9170ea8..a4d43dc448 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 --------------------------------- |