From cd232e82bb4443907bb473e8ca5696a276526e9e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 23 Jan 1998 15:23:07 +0000
Subject: [PATCH] [project @ 1998-01-23 15:23:07 by sof] hook function for I/O
 errors

---
 ghc/runtime/hooks/IOErrorHdr.lc |   11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 ghc/runtime/hooks/IOErrorHdr.lc

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