[project @ 1997-10-19 22:19:04 by sof]

Comment on let-to-case added (simplNonRec)

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index b08bd2a..758d7a3 100644 (file)
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -930,7 +930,7 @@ simplNonRec env binder@(id,occ_info) rhs body_c body_ty
     simpl_bind env rhs | try_let_to_case &&
                         will_be_demanded &&
                         (rhs_is_bot ||
-                         not rhs_is_whnf &&
+                         not rhs_is_whnf &&    -- Don't do it if RHS is a constr applicn 
                          singleConstructorType rhs_ty
                                -- Only do let-to-case for single constructor types. 
                                -- For other types we defer doing it until the tidy-up phase at