From: sof <unknown>
Date: Fri, 23 Jan 1998 15:23:07 +0000 (+0000)
Subject: [project @ 1998-01-23 15:23:07 by sof]
X-Git-Tag: Approx_2487_patches~1061
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cd232e82bb4443907bb473e8ca5696a276526e9e;p=ghc-hetmet.git

[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
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}