X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRaiseAsync.c;h=d562e33680c278c3eb44899db498409d3e2c88aa;hb=fcf5ff34649982a99bc1e4a4940453a181a8d899;hp=73c4429048eb093a43b3200c36bdaf22d27a4117;hpb=52b8502061b35d576185cd384f6e5805315db927;p=ghc-hetmet.git

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 73c4429..d562e33 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -715,7 +715,7 @@ removeFromQueues(Capability *cap, StgTSO *tso)
     }
 
   default:
-    barf("removeFromQueues");
+    barf("removeFromQueues: %d", tso->why_blocked);
   }
 
  done:
@@ -788,7 +788,7 @@ removeFromQueues(Capability *cap, StgTSO *tso)
 #endif
 
   default:
-      barf("removeFromQueues");
+      barf("removeFromQueues: %d", tso->why_blocked);
   }
 
  done: