From: simonpj <unknown>
Date: Tue, 14 Aug 2001 15:27:32 +0000 (+0000)
Subject: [project @ 2001-08-14 15:27:32 by simonpj]
X-Git-Tag: Approximately_9120_patches~1262
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8731605fb5978844ef63433133fce9e43f7022bf;p=ghc-hetmet.git

[project @ 2001-08-14 15:27:32 by simonpj]
Yet another bug in lub
---

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index f7cef99..aa26c74 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -629,7 +629,7 @@ lub Abs d 	     = Lazy
 
 lub Eval Abs	          = Lazy
 lub Eval Lazy	          = Lazy
-lub Eval (Seq k Now   ds) = Seq Keep Now ds
+lub Eval (Seq k Now   ds) = Eval	-- Was (incorrectly): Seq Keep Now ds
 lub Eval (Seq k Defer ds) = Lazy
 lub Eval d    	          = Eval