From d8f550509fe8eaff29424e19250c0187d6e9c3b7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 26 Jul 2001 09:54:39 +0000
Subject: [PATCH] [project @ 2001-07-26 09:54:39 by simonmar] Make the panic
 case in evalAbsence into another "TELL SIMON" trace.

---
 ghc/compiler/stranal/SaAbsInt.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 8cab167..14bb2df 100644
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -326,7 +326,9 @@ evalAbsence (WwUnpack _ demand_info) val
 	   | length vals /= length demand_info -> pprTrace "TELL SIMON: evalAbsence" (ppr demand_info $$ ppr val)
 						  True
 	   | otherwise -> or (zipWithEqual "evalAbsence" evalAbsence demand_info vals)
-	_	       -> panic "evalAbsence: other"
+	_	       -> pprTrace "TELL SIMON: evalAbsence" 
+				(ppr demand_info $$ ppr val)
+			  True
 
 evalAbsence other val = anyBot val
   -- The demand is conservative; even "Lazy" *might* evaluate the
-- 
1.7.10.4