Commit d8f55050 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-07-26 09:54:39 by simonmar]

Make the panic case in evalAbsence into another "TELL SIMON" trace.
parent 78045445
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment