ghc/runtime/hooks/IOErrorHdr.lc

   1 \begin{code}
   2 #include "rtsdefs.h"
   3
   4 void
   5 IOErrorHdrHook (StgInt fd)
   6 {
   7     const char msg[]="\nI/O error: ";
   8     write(fd, msg, sizeof(msg)-1);
   9 }
  10 \end{code}