[commit: ghc] master: DataConIds need to be treated specially in VectInfo (3c67c9a)

[Manuel Chakravarty]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3c67c9aff70298ca9963cc6c8ee48bc29795998a

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

commit 3c67c9aff70298ca9963cc6c8ee48bc29795998a
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
Date:   Mon Jan 16 12:58:42 2012 +1100

    DataConIds need to be treated specially in VectInfo

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

 compiler/main/TidyPgm.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 3107b79..34afd5c 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -513,7 +513,7 @@ tidyVectInfo (_, var_env) info@(VectInfo { vectInfoVar          = vars
                                tidy_var_v = lookup_var var_v
                          , isExportedId tidy_var
                          , isExportedId tidy_var_v
-                         , not $ isImplicitId var
+                         , isDataConWorkId var || not (isImplicitId var)
                          ]
 
     tidy_scalarVars = mkVarSet [ lookup_var var