[project @ 1998-01-23 15:23:07 by sof]

hook function for I/O errors

diff --git a/ghc/runtime/hooks/IOErrorHdr.lc b/ghc/runtime/hooks/IOErrorHdr.lc
new file mode 100644 (file)
index 0000000..73676f5
--- /dev/null
+++ b/ghc/runtime/hooks/IOErrorHdr.lc
@@ -0,0 +1,11 @@
+\begin{code}
+#include "rtsdefs.h"
+
+void
+IOErrorHdrHook (FILE *where)
+{
+    fflush( stdout );                  /* Flush out any pending output */
+
+    fprintf(where, "\nI/O error: ");
+}
+\end{code}