[project @ 1996-01-08 20:28:12 by partain]

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

diff --git a/ghc/runtime/hooks/ErrorHdr.lc b/ghc/runtime/hooks/ErrorHdr.lc
new file mode 100644 (file)
index 0000000..87435f9
--- /dev/null
+++ b/ghc/runtime/hooks/ErrorHdr.lc
@@ -0,0 +1,10 @@
+\begin{code}
+#include "rtsdefs.h"
+
+void
+ErrorHdrHook (where)
+  FILE *where;
+{
+    fprintf(where, "\nFail: ");
+}
+\end{code}