path: root/ghc/runtime/hooks/ErrorHdr.lc

\begin{code}
#include "rtsdefs.h"

void
ErrorHdrHook (FILE *where)
{
    fprintf(where, "\nFail: ");
}
\end{code}