X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FClass.lhs;fp=ghc%2Fcompiler%2Ftypes%2FClass.lhs;h=a04cdcc3ac7feddcfc55f752016ed377441e87c4;hb=7bb069508f094825ca136ed97606651f3e093123;hp=781e342628369fb5646177960666bb63a362008b;hpb=ec459c238894ee4e2f7d1a30875a4d5446131c5d;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Class.lhs b/ghc/compiler/types/Class.lhs
index 781e342..a04cdcc 100644
--- a/ghc/compiler/types/Class.lhs
+++ b/ghc/compiler/types/Class.lhs
@@ -9,14 +9,13 @@ module Class (
 
 	mkClass, classTyVars,
 	classKey, className, classSelIds, classTyCon,
-	classBigSig, classExtraBigSig, classInstEnv, classTvsFds
+	classBigSig, classExtraBigSig, classTvsFds
     ) where
 
 #include "HsVersions.h"
 
 import {-# SOURCE #-} TyCon	( TyCon )
 import {-# SOURCE #-} TypeRep	( Type )
-import {-# SOURCE #-} InstEnv	( InstEnv )
 
 import Var		( Id, TyVar )
 import Name		( NamedThing(..), Name )
@@ -49,8 +48,6 @@ data Class
 
 	classOpStuff :: [ClassOpItem],		-- Ordered by tag
 
-	classInstEnv :: InstEnv,	-- All the instances of this class
-
 	classTyCon :: TyCon		-- The data type constructor for dictionaries
   }					-- of this class
 
@@ -74,11 +71,10 @@ mkClass :: Name -> [TyVar]
 	-> [(Class,[Type])] -> [Id]
 	-> [(Id, Id, Bool)]
 	-> TyCon
-	-> InstEnv
 	-> Class
 
 mkClass name tyvars fds super_classes superdict_sels
-	op_stuff tycon class_insts
+	op_stuff tycon
   = Class {	classKey = getUnique name, 
 		className = name,
 		classTyVars = tyvars,
@@ -86,7 +82,6 @@ mkClass name tyvars fds super_classes superdict_sels
 		classSCTheta = super_classes,
 		classSCSels = superdict_sels,
 		classOpStuff = op_stuff,
-		classInstEnv = class_insts,
 		classTyCon = tycon }
 \end{code}