Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/9c6191d4b629400f2dc2ea2759137db141c0455b >--------------------------------------------------------------- commit 9c6191d4b629400f2dc2ea2759137db141c0455b Author: Manuel M T Chakravarty <[email protected]> Date: Tue Dec 13 15:09:54 2011 +1100 Correct tidying of VectInfo; fixes #5613 >--------------------------------------------------------------- compiler/main/TidyPgm.lhs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs index ef17f31..830a352 100644 --- a/compiler/main/TidyPgm.lhs +++ b/compiler/main/TidyPgm.lhs @@ -505,11 +505,13 @@ tidyVectInfo (_, var_env) info@(VectInfo { vectInfoVar = vars , vectInfoScalarVars = tidy_scalarVars } where - -- we only export mappings whose co-domain is exported (otherwise, the iface is inconsistent) + -- we only export mappings whose domain and co-domain is exported (otherwise, the iface is + -- inconsistent) tidy_vars = mkVarEnv [ (tidy_var, (tidy_var, tidy_var_v)) | (var, var_v) <- varEnvElts vars , let tidy_var = lookup_var var tidy_var_v = lookup_var var_v + , isExportedId tidy_var , isExportedId tidy_var_v ] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
