ghc/runtime/hooks/NoRunnableThrds.lc


1
2
3
4
5
6
7
8
9
10
11
12
13
14


\begin{code}
#ifdef CONCURRENT /* the whole thing! */
#include "rtsdefs.h"

void
NoRunnableThreadsHook ()
{
    fprintf(stderr, "No runnable threads!\n");
}
#endif /* CONCURRENT */

\end{code}