[project @ 1998-08-14 10:50:30 by sof]

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

diff --git a/ghc/runtime/hooks/IOErrorHdr.lc b/ghc/runtime/hooks/IOErrorHdr.lc
index 73676f5..1c8e545 100644 (file)
--- a/ghc/runtime/hooks/IOErrorHdr.lc
+++ b/ghc/runtime/hooks/IOErrorHdr.lc
@@ -2,10 +2,9 @@
 #include "rtsdefs.h"
 
 void
-IOErrorHdrHook (FILE *where)
+IOErrorHdrHook (StgInt fd)
 {
-    fflush( stdout );                  /* Flush out any pending output */
-
-    fprintf(where, "\nI/O error: ");
+    const char msg[]="\nI/O error: ";
+    write(fd, msg, sizeof(msg)-1);
 }
 \end{code}