X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=bb67d9bf952f92e96fd358371d63bff641424636;hp=4a3cb5e7a01e4f18f9d5542ac84b94b034fa25bd;hb=e12bd07bcadb0efb1da0b49801a4a43689ee508a;hpb=e97891e69706e84761c6bcac783526f9dafe7f2e

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 4a3cb5e..bb67d9b 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -245,7 +245,7 @@ tcRnImports hsc_env this_mod import_decls
 
 		-- Check type-familily consistency
 	; traceRn (text "rn1: checking family instance consistency")
-	; let { dir_imp_mods = map (\ (mod, _, _) -> mod) 
+	; let { dir_imp_mods = map (\ (mod, _) -> mod) 
 			     . moduleEnvElts 
 			     . imp_mods 
 			     $ imports }