ghc/rts/hooks/ErrorHdr.c

   1 /* -----------------------------------------------------------------------------
   2  * $Id: ErrorHdr.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
   3  *
   4  * User-overridable RTS hooks.
   5  *
   6  * ---------------------------------------------------------------------------*/
   7
   8 #include "Rts.h"
   9
  10 #ifdef HAVE_UNISTD_H
  11 #include <unistd.h>
  12 #endif
  13
  14 void
  15 ErrorHdrHook (long fd)
  16 {
  17     const char msg[] = "\nFail: ";
  18     write(fd, msg, sizeof(msg)-1);
  19 }