[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / runtime / hooks / ErrorHdr.lc

diff --git a/ghc/runtime/hooks/ErrorHdr.lc b/ghc/runtime/hooks/ErrorHdr.lc
index d71a3a9..9e32f4b 100644 (file)
--- a/ghc/runtime/hooks/ErrorHdr.lc
+++ b/ghc/runtime/hooks/ErrorHdr.lc
@@ -2,8 +2,9 @@
 #include "rtsdefs.h"
 
 void
-ErrorHdrHook (FILE *where)
+ErrorHdrHook (StgInt fd)
 {
-    fprintf(where, "\nFail: ");
+    const char msg[]="\nFail: ";
+    write(fd,msg,sizeof(msg)-1);
 }
 \end{code}