diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-03 09:48:40 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-03 09:48:40 +0000 |
| commit | c9bb9c464e9f1ab778db936cd389e5ab3550da43 (patch) | |
| tree | b5f1ff609f911e67c084d227c07757f1b1815926 /rts/RaiseAsync.c | |
| parent | e9c6b0de1890a66a9ce2e7749eaf7d7317c9dd01 (diff) | |
| download | haskell-c9bb9c464e9f1ab778db936cd389e5ab3550da43.tar.gz | |
throwTo: report the why_blocked value in the barf()
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 3cfb4504ae..7abccde0a5 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -449,7 +449,7 @@ check_target: goto retry; default: - barf("throwTo: unrecognised why_blocked value"); + barf("throwTo: unrecognised why_blocked (%d)", target->why_blocked); } barf("throwTo"); } |