X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=6c197cc0cf28e4b592ae0486e249e310161d730b;hb=0cb269be72ffe42498c74d5be845eb27d8818423;hp=68abd23d542bc7cdd83081c3c9442c1a584c1d16;hpb=129e40f1ba90cdccee79009a33482dcfd537fd88;p=ghc-hetmet.git

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 68abd23..6c197cc 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -371,11 +371,11 @@ tcIfaceDecl (IfaceData {ifName = occ_name,
 	    { stupid_theta <- tcIfaceCtxt ctxt
 	    ; famInst <- 
 	        case mb_family of
-		  Nothing                -> return Nothing
-		  Just (fam, tys, index) -> 
+		  Nothing         -> return Nothing
+		  Just (fam, tys) -> 
 		    do { famTyCon <- tcIfaceTyCon fam
 		       ; insttys <- mapM tcIfaceType tys
-		       ; return $ Just (famTyCon, insttys, index)
+		       ; return $ Just (famTyCon, insttys)
 		       }
 	    ; cons <- tcIfaceDataCons tc_name tycon tyvars rdr_cons
 	    ; buildAlgTyCon tc_name tyvars stupid_theta