From e37893cbe8c289dc56cecf6dff5c8b64ed8c3485 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 14 Nov 2011 15:13:33 +0000 Subject: +RTS -xc: print a the closure type of the exception too --- rts/RaiseAsync.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'rts/RaiseAsync.c') diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index acc87b1938..c7b10b856e 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -739,7 +739,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, */ if (RtsFlags.ProfFlags.showCCSOnException) { - fprintCCS_stderr(tso->prof.CCCS,tso); + fprintCCS_stderr(tso->prof.CCCS,exception,tso); } #endif // ASSUMES: the thread is not already complete or dead -- cgit v1.2.1