Commit b1a7a4d5 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-02-08 09:41:21 by simonpj]

Remove trace in mkGenericRhs (merge to STABLE)
parent 9803f480
......@@ -457,7 +457,7 @@ By the time the type checker has done its stuff we'll get
mkGenericRhs :: Id -> TyVar -> TyCon -> LHsExpr RdrName
mkGenericRhs sel_id tyvar tycon
= ASSERT( isSingleton ctxt ) -- Checks shape of selector-id context
pprTrace "mkGenericRhs" (vcat [ppr sel_id, ppr (idType sel_id), ppr tyvar, ppr tycon, ppr local_tvs, ppr final_ty]) $
-- pprTrace "mkGenericRhs" (vcat [ppr sel_id, ppr (idType sel_id), ppr tyvar, ppr tycon, ppr local_tvs, ppr final_ty]) $
mkHsApp (toEP bimap) (nlHsVar (getRdrName sel_id))
where
-- Initialising the "Environment" with the from/to functions
......
Supports Markdown
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