+ ; let n_value_preds = count (not . isEqPred) sc_theta
+ all_value_preds = n_value_preds == length sc_theta
+ -- We only make selectors for the *value* superclasses,
+ -- not equality predicates
+
+ ; sc_sel_names <- mapM (newImplicitBinder class_name . mkSuperDictSelOcc)
+ [1..n_value_preds]
+ ; let sc_sel_ids = [mkDictSelId no_unf sc_name rec_clas | sc_name <- sc_sel_names]
+ -- We number off the Dict superclass selectors, 1, 2, 3 etc so that we
+ -- can construct names for the selectors. Thus
+ -- class (C a, C b) => D a b where ...
+ -- gives superclass selectors
+ -- D_sc1, D_sc2
+ -- (We used to call them D_C, but now we can have two different
+ -- superclasses both called C!)
+ --
+
+ ; let use_newtype = (n_value_preds + length sig_stuff == 1) && all_value_preds
+ -- Use a newtype if the data constructor has
+ -- (a) exactly one value field
+ -- (b) no existential or equality-predicate fields
+ -- i.e. exactly one operation or superclass taken together
+ -- See note [Class newtypes and equality predicates]
+
+ ; rhs <- if use_newtype
+ then mkNewTyConRhs tycon_name rec_tycon dict_con
+ else return (mkDataTyConRhs [dict_con])