X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelInfo.lhs;fp=ghc%2Fcompiler%2Fprelude%2FPrelInfo.lhs;h=31457b2b630e113fd28ab1b40f7480a777eadfa6;hb=e31827c6f8e3dc8aee72500cd224c7bdb4f6a764;hp=5ed26fc2f56da1f94b7eabfc9ba9a2a582fe5d48;hpb=edf6bdfb5dee21f9bc5077083e5350ee64efffbc;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 5ed26fc..31457b2 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -15,7 +15,7 @@ module PrelInfo (
 	maybeCharLikeCon, maybeIntLikeCon,
 
 	-- Class categories
-	isNoDictClass, isNumericClass, isStandardClass
+	isNumericClass, isStandardClass
 
     ) where
 
@@ -23,8 +23,7 @@ module PrelInfo (
 
 import PrelNames	( basicKnownKeyNames, 
 			  hasKey, charDataConKey, intDataConKey,
-			  numericClassKeys, standardClassKeys,
-			  noDictClassKeys )
+			  numericClassKeys, standardClassKeys )
 
 import PrimOp		( PrimOp, allThePrimOps, primOpOcc, primOpTag, maxPrimOpTag )
 import DataCon		( DataCon )
@@ -132,10 +131,9 @@ maybeIntLikeCon  con = con `hasKey` intDataConKey
 %************************************************************************
 
 \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}