[project @ 2001-10-23 08:58:30 by simonpj]

------------------------------- Correct a nasty lub bug ------------------------------- MERGE WITH STABLE BRANCH Peter Sestoft discovered that lub wasn't commutative. We certainly want that Err `lub` Abs = Lazy This is a Real Bug.

[project @ 2001-10-23 08:58:30 by simonpj]
------------------------------- Correct a nasty lub bug ------------------------------- MERGE WITH STABLE BRANCH Peter Sestoft discovered that lub wasn't commutative. We certainly want that Err `lub` Abs = Lazy This is a Real Bug.
32eebc97 · simonpj · f8a58611 · 32eebc97
Commit 32eebc97 authored Oct 23, 2001 by simonpj
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -791,6 +791,7 @@ lub :: Demand -> Demand -> Demand
 lub Bot d = d

 lub Err Bot = Err 
+lub Err Abs = Lazy	-- E.g. f x = if ... then True else error x
 lub Err d   = d 

 lub Lazy d = Lazy