[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / runtime / hooks / IOErrorHdr.lc

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

void
IOErrorHdrHook (StgInt fd)
{
    const char msg[]="\nI/O error: ";
    write(fd, msg, sizeof(msg)-1);
}
\end{code}