From c389511d51c2615ea3c221299d91f948c32bb15a Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 24 Oct 2001 13:48:09 +0000
Subject: [PATCH] [project @ 2001-10-24 13:48:09 by simonpj] Comments only

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

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index d748070..90c507f 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -905,6 +905,8 @@ lub (Seq k1 ds1) (Seq k2 ds2)
     lub_ds k1 ds1 k2 ds2		     = ds1 `lubs` ds2
 
 	------------------
+	-- Note that (Keep `lub` Drop) is Drop, not Keep
+	-- Why not?  See the example above with (lub Eval d).
     lub_keep Keep k     = k
 
     lub_keep Drop Defer = Defer
-- 
1.7.10.4