From 8731605fb5978844ef63433133fce9e43f7022bf Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 14 Aug 2001 15:27:32 +0000
Subject: [PATCH] [project @ 2001-08-14 15:27:32 by simonpj] Yet another bug
 in lub

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

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
 
-- 
1.7.10.4