From 0a277a7671265265e819136280a8aec58727b364 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Wed, 12 Sep 2001 11:05:34 +0000
Subject: [PATCH] [project @ 2001-09-12 11:05:34 by qrczak] Fix comment.

---
 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 ff64455..34fc015 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -746,7 +746,7 @@ simplRhs top_lvl float_ubx rhs_ty rhs rhs_se thing_inside
  	-- Float lets if (a) we're at the top level
 	-- or 		 (b) the resulting RHS is one we'd like to expose
 	--
-	-- NB: the test used to say "exprIsValue", but that caused a strictness bug.
+	-- NB: the test used to say "exprIsCheap", but that caused a strictness bug.
 	--     	   x = let y* = E in case (scc y) of { T -> F; F -> T}
 	-- The case expression is 'cheap', but it's wrong to transform to
 	-- 	   y* = E; x = case (scc y) of {...}
-- 
1.7.10.4