[commit: ghc] ghc-7.4: Correct tidying of VectInfo; fixes #5613 (746e541)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/746e5416a511fdf5f669b13fdd4a7b15a6f8e6ad

>---------------------------------------------------------------

commit 746e5416a511fdf5f669b13fdd4a7b15a6f8e6ad
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
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
                          ]