maybeCharLikeCon, maybeIntLikeCon,
-- Class categories
- isNoDictClass, isNumericClass, isStandardClass
+ isNumericClass, isStandardClass
) where
import PrelNames ( basicKnownKeyNames,
hasKey, charDataConKey, intDataConKey,
- numericClassKeys, standardClassKeys,
- noDictClassKeys )
+ numericClassKeys, standardClassKeys )
import PrimOp ( PrimOp, allThePrimOps, primOpOcc, primOpTag, maxPrimOpTag )
import DataCon ( DataCon )
\begin{code}
ghcPrimExports :: [RdrAvailInfo]
+ghcPrimExports
= map (Avail . nameOccName . idName) ghcPrimIds ++
map (Avail . primOpOcc) allThePrimOps ++
[ AvailTC occ [occ] |
%************************************************************************
\begin{code}
-isNoDictClass, isNumericClass, isStandardClass :: Class -> Bool
+isNumericClass, isStandardClass :: Class -> Bool
isNumericClass clas = classKey clas `is_elem` numericClassKeys
isStandardClass clas = classKey clas `is_elem` standardClassKeys
-isNoDictClass clas = classKey clas `is_elem` noDictClassKeys
is_elem = isIn "is_X_Class"
\end{code}