From 6300924b9081e4670a206fda0e629d2dc217facc Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 30 Jan 2001 10:32:45 +0000
Subject: [PATCH] [project @ 2001-01-30 10:32:45 by simonpj] Fix utter bogon
 in OccurAnal

---
 ghc/compiler/simplCore/OccurAnal.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 7fa1553..eaa3383 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -904,7 +904,8 @@ orOccInfo IAmDead info2 = info2
 orOccInfo info1 IAmDead = info1
 orOccInfo (OneOcc in_lam1 one_branch1)
 	  (OneOcc in_lam2 one_branch2)
-  = OneOcc (in_lam1 || in_lam2) (one_branch1 && one_branch2)
+  = OneOcc (in_lam1 || in_lam2)
+	   False	-- False, because it occurs in both branches
 
 orOccInfo info1 info2 = NoOccInfo
 \end{code}
-- 
1.7.10.4