X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcInstDcls.lhs;h=0025ef2d6b747e99b554d7413b81309ac587455d;hp=5d1e63ae0e6f4f38ba1e76e94036568e62aeab21;hb=6bb651084a0ebd572739ab9319c800c6ad83eb56;hpb=0f8aee2a98bdbeacb4eb04e2e280fe956f53c0b6

diff --git a/compiler/typecheck/TcInstDcls.lhs b/compiler/typecheck/TcInstDcls.lhs
index 5d1e63a..0025ef2 100644
--- a/compiler/typecheck/TcInstDcls.lhs
+++ b/compiler/typecheck/TcInstDcls.lhs
@@ -525,7 +525,7 @@ tcInstDecl2 (InstInfo { iSpec = ispec, iBinds = NewTypeDerived })
 	; let dict_bind = noLoc $ VarBind (instToId this_dict) (noLoc body)
 
 	; return (unitBag $ noLoc $
-		  AbsBinds  tvs (map instToId dfun_dicts)
+		  AbsBinds  tvs (map instToVar dfun_dicts)
 		 	    [(tvs, dfun_id, instToId this_dict, [])] 
 		 	    (dict_bind `consBag` sc_binds)) }
   where