--- generic functions for them. (This info is recorded in the interface file for
--- imported data types.)
-
-canDoGenerics stupid_theta data_cs
- = not (any bad_con data_cs) -- See comment below
-
- -- && not (null data_cs) -- No values of the type
- -- JPM: we now support empty datatypes
-
- && null stupid_theta -- We do not support datatypes with context (for now)
+-- generic functions for them.
+
+canDoGenerics tycon
+ = let result = not (any bad_con (tyConDataCons tycon)) -- See comment below
+ -- We do not support datatypes with context (for now)
+ && null (tyConStupidTheta tycon)
+{-
+ -- Primitives are (probably) not representable either
+ && not (isPrimTyCon tycon)
+ -- Foreigns are (probably) not representable either
+ && not (isForeignTyCon tycon)
+-}
+ -- We don't like type families
+ && not (isFamilyTyCon tycon)
+
+ in {- pprTrace "canDoGenerics" (ppr (tycon,result)) -} result