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

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 6c197cc..68abd23 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) -> 
+		  Nothing                -> return Nothing
+		  Just (fam, tys, index) -> 
 		    do { famTyCon <- tcIfaceTyCon fam
 		       ; insttys <- mapM tcIfaceType tys
-		       ; return $ Just (famTyCon, insttys)
+		       ; return $ Just (famTyCon, insttys, index)
 		       }
 	    ; cons <- tcIfaceDataCons tc_name tycon tyvars rdr_cons
 	    ; buildAlgTyCon tc_name tyvars stupid_theta