[project @ 1998-01-23 15:23:07 by sof]
[ghc-hetmet.git] / ghc / runtime / hooks / IOErrorHdr.lc
1 \begin{code}
2 #include "rtsdefs.h"
3
4 void
5 IOErrorHdrHook (FILE *where)
6 {
7     fflush( stdout );                   /* Flush out any pending output */
8
9     fprintf(where, "\nI/O error: ");
10 }
11 \end{code}