X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FInstEnv.lhs;h=09b9b5337ed6aec16ebf94cc1bb6964a253d5ce3;hb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;hp=49b49b83e15b80af8dd974827030fe6d1122c6df;hpb=0084ab49ab3c0123c4b7f9523d092af45bccfd41;p=ghc-hetmet.git

diff --git a/compiler/types/InstEnv.lhs b/compiler/types/InstEnv.lhs
index 49b49b8..09b9b53 100644
--- a/compiler/types/InstEnv.lhs
+++ b/compiler/types/InstEnv.lhs
@@ -45,7 +45,6 @@ import Data.Maybe	( isJust, isNothing )
 %************************************************************************
 
 \begin{code}
-type DFunId = Id
 data Instance 
   = Instance { is_cls  :: Name		-- Class name