+ = tcLookupClassByKey_maybe numClassKey `thenNF_Tc` \ maybe_num ->
+ case maybe_num of {
+ Nothing -> -- Num has not been sucked in, so the defaults will
+ -- never be used; so simply discard the default decl.
+ -- This slightly benefits modules that don't use any
+ -- numeric stuff at all, by avoid the necessity of
+ -- always sucking in Num
+ returnTc [] ;
+
+ Just num -> -- The common case
+
+ tcAddSrcLoc locn $