[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 (file)
--- 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