projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
3c04fec8e3ebacdf8d126cfd6b7682327906bcb6
[ghc-hetmet.git]
/
ghc
/
runtime
/
hooks
/
ErrorHdr.lc
1
\begin{code}
2
#include "rtsdefs.h"
3
4
void
5
ErrorHdrHook (FILE *where)
6
{
7
fflush( stdout ); /* Flush out any pending output */
8
9
fprintf(where, "\nFail: ");
10
}
11
\end{code}