Check that exported modules were actually imported; fixes #1384

[ghc-hetmet.git] / compiler / typecheck / TcRnDriver.lhs

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 4a3cb5e..bb67d9b 100644 (file)
--- 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")
 
                -- 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 }
                             . moduleEnvElts 
                             . imp_mods 
                             $ imports }