\begin{code}
module Class (
- Class, ClassOpItem,
+ Class, ClassOpItem, ClassPred, ClassContext, FunDep,
mkClass, classTyVars,
classKey, className, classSelIds, classTyCon,
className :: Name,
classTyVars :: [TyVar], -- The class type variables
- classFunDeps :: [([TyVar], [TyVar])], -- The functional dependencies
+ classFunDeps :: [FunDep TyVar], -- The functional dependencies
classSCTheta :: [(Class,[Type])], -- Immediate superclasses, and the
classSCSels :: [Id], -- corresponding selector functions to
classTyCon :: TyCon -- The data type constructor for dictionaries
} -- of this class
+type ClassPred = (Class, [Type])
+type ClassContext = [ClassPred]
+
+type FunDep a = ([a],[a]) -- e.g. class C a b c | a b -> c, a c -> b where ...
+ -- Here fun-deps are [([a,b],[c]), ([a,c],[b])]
+
type ClassOpItem = (Id, -- Selector function; contains unfolding
Id, -- Default methods
Bool) -- True <=> an explicit default method was