X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=88dfe81f9eb7adb9cc561139c18381af91accf23;hb=2423c249f5ca7785d0ec89eb33e72662da7561c1;hp=f20de555b332b9eccbf2b4636c9f95dd09e58b83;hpb=344eb6d9a478a903a4bf6c35bbd76e609c7924dc;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index f20de55..88dfe81 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -173,6 +173,7 @@ tcRnModule hsc_env hsc_src save_rn_syntax
 	loadOrphanModules (imp_orphs  imports) False ;
 	loadOrphanModules (imp_finsts imports) True  ;
 
+	traceRn (text "rn1: checking family instance consistency") ;
 	let { directlyImpMods =   map (\(mod, _, _) -> mod) 
 			        . moduleEnvElts 
 			        . imp_mods