From: qrczak <unknown>
Date: Wed, 12 Sep 2001 11:05:34 +0000 (+0000)
Subject: [project @ 2001-09-12 11:05:34 by qrczak]
X-Git-Tag: Approximately_9120_patches~991
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0a277a7671265265e819136280a8aec58727b364;hp=e4f6c05076a178ba867ed253b45d020faffacb39;p=ghc-hetmet.git

[project @ 2001-09-12 11:05:34 by qrczak]
Fix comment.
---

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 {...}