Commit 6bca92c3 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Comments and import trimming

parent e1231b2b
......@@ -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 )
......
......@@ -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 ---------------------------------
......
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