[project @ 2004-02-15 13:29:44 by krasimir]

Remove unused hooks

1 files changed, 0 insertions, 19 deletions

diff --git a/ghc/rts/hooks/ErrorHdr.c b/ghc/rts/hooks/ErrorHdr.c
deleted file mode 100644
index 0f253d3aa4..0000000000
--- a/ghc/rts/hooks/ErrorHdr.c
+++ /dev/null
@@ -1,19 +0,0 @@
-/* -----------------------------------------------------------------------------
- * $Id: ErrorHdr.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
- *
- * User-overridable RTS hooks.
- *
- * ---------------------------------------------------------------------------*/
-
-#include "Rts.h"
-
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-
-void
-ErrorHdrHook (long fd)
-{
-    const char msg[] = "\nFail: ";
-    write(fd, msg, sizeof(msg)-1);
-}