+ dflags = hsc_dflags hsc_env
+ hpt = hsc_HPT hsc_env
+ pte = eps_PTE (pcs_EPS pcs)
+ lookup n = lookupNameEnv type_env n `orElse` -- Look in the type env of the
+ -- current module first
+ lookupType hpt pte n `orElse` -- Then other modules
+ pprPanic "Desugar: lookup:" (ppr n)
+
+ mk_warn :: (SrcLoc,SDoc) -> (SrcLoc, Pretty.Doc)
+ mk_warn (loc,sdoc) = addShortWarnLocLine loc print_unqual sdoc