X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRaiseAsync.c;fp=rts%2FRaiseAsync.c;h=7abccde0a52a54aaeaf1b74e0413a08f37b00fc8;hp=3cfb4504ae0d392475486f840f40994a91e3d627;hb=c9bb9c464e9f1ab778db936cd389e5ab3550da43;hpb=e9c6b0de1890a66a9ce2e7749eaf7d7317c9dd01

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 3cfb450..7abccde 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");
 }