ghc/rts/hooks/PatErrorHdr.c

   1 /* -----------------------------------------------------------------------------
   2  * $Id: PatErrorHdr.c,v 1.2 1998/12/02 13:29:15 simonm Exp $
   3  *
   4  * User-overridable RTS hooks.
   5  *
   6  * ---------------------------------------------------------------------------*/
   7
   8 #include "Rts.h"
   9
  10 void
  11 PatErrorHdrHook (long fd)
  12 {
  13     const char msg[] = "\nFail: ";
  14     write(fd,msg,sizeof(msg)-1);
  15 }
  16