Commit ba7f5c4d authored by simonpj's avatar simonpj
Browse files

[project @ 2001-11-12 12:18:50 by simonpj]

Remove pprTrace
parent 124690e9
......@@ -286,11 +286,6 @@ lookupInstEnv env key_cls key_tys
Nothing -> find rest
Just _ -> NoMatch (any_match rest)
Just (subst, leftovers) -> ASSERT( null leftovers )
#ifdef DEBUG
pprTrace "lookupInst" (vcat [text "look:" <+> ppr key_cls <+> ppr key_tys,
text "found:" <+> ppr dfun_id,
text "env:" <+> ppr (classInstEnv env key_cls)]) $
#endif
FoundInst subst dfun_id
any_match rest = or [ maybeToBool (matchTys tvs tpl key_tys)
......
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