[commit: ghc] cpr-sum-types: Temporarily, revert to products only for CPR (e404878)

[Simon Peyton Jones]

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

On branch  : cpr-sum-types

http://hackage.haskell.org/trac/ghc/changeset/e4048785bc127077bee028fa48ea880c873b6bf5

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

commit e4048785bc127077bee028fa48ea880c873b6bf5
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Oct 28 20:27:05 2011 +0100

    Temporarily, revert to products only for CPR
    so that we can compare performance like-for-like
    with the previous stuff

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

 compiler/basicTypes/MkId.lhs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index cd15319..1464e29 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -264,7 +264,8 @@ mkDataConIds wrap_name wkr_name data_con
         -- but that's fine... dataConRepStrictness comes from the data con
         -- not from the worker Id.
 
-    cpr_info | isDataTyCon tycon    &&
+    cpr_info | isProductTyCon tycon &&  -- Just for now, stick to product only
+               isDataTyCon tycon    &&
                wkr_arity > 0        &&
                wkr_arity <= mAX_CPR_SIZE        = retCPR data_con
              | otherwise                        = TopRes