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 000000000000..73676f5bb577
--- /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}
--
GitLab