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

\begin{code}
#include "rtsdefs.h"

void
PatErrorHdrHook (where)
  FILE *where;
{
    fprintf(where, "\nFail: ");
}
\end{code}