X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.c;h=f6c28007e9769b65d3ae6a0554f6b097fdd4cc99;hb=e2eebc0d70de13de6d58e2af89f90ec71e54375c;hp=b550cc6aaa706d43e8dda8ad68bea9fac9504468;hpb=b1953bbb1ed3cb16497e5447db7487f0c2d9e41a;p=ghc-hetmet.git

diff --git a/rts/Threads.c b/rts/Threads.c
index b550cc6..f6c2800 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -485,7 +485,7 @@ unblockOne_ (Capability *cap, StgTSO *tso,
 {
   StgTSO *next;
 
-  ASSERT(get_itbl(tso)->type == TSO);
+  // NO, might be a WHITEHOLE: ASSERT(get_itbl(tso)->type == TSO);
   ASSERT(tso->why_blocked != NotBlocked);
 
   tso->why_blocked = NotBlocked;