X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2Fcbits%2FwriteError.c;h=591f5ad3a455701cd65f51ce62fb5a54a4e91150;hb=ba312921049033fdff76df73be358df8f9bd26ae;hp=078f2245ac336f530814daf07437aae81e6d06c3;hpb=d9af408e5c512501cfa991f5e4a76c9154bca917;p=ghc-hetmet.git

diff --git a/ghc/lib/std/cbits/writeError.c b/ghc/lib/std/cbits/writeError.c
index 078f224..591f5ad 100644
--- a/ghc/lib/std/cbits/writeError.c
+++ b/ghc/lib/std/cbits/writeError.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1998
  *
- * $Id: writeError.c,v 1.6 2001/05/18 16:54:07 simonmar Exp $
+ * $Id: writeError.c,v 1.7 2001/07/12 10:34:54 rrt Exp $
  *
  * hPutStr Runtime Support
  */
@@ -20,12 +20,6 @@ implementation in one or two places.)
 #include "RtsUtils.h"
 #include "HsStd.h"
 
-HsAddr
-addrOf_ErrorHdrHook(void)
-{
-  return &ErrorHdrHook;
-}
-
 void
 writeErrString__ (HsAddr msg_hdr, HsAddr msg, HsInt len)
 {