From 4c52bb3758b3cf586b236bdf3e57831971d5e4ca Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 19 Oct 1997 22:19:04 +0000
Subject: [PATCH] [project @ 1997-10-19 22:19:04 by sof] Comment on
 let-to-case added (simplNonRec)

---
 ghc/compiler/simplCore/Simplify.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index b08bd2a..758d7a3 100644
--- 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
-- 
1.7.10.4