ghc/runtime/hooks/TraceHooks.lc

   1 \begin{code}
   2 #include "rtsdefs.h"
   3
   4 void
   5 PreTraceHook (FILE *where)
   6 {
   7     fprintf(where, "Trace On:\n");
   8 }
   9
  10 void
  11 PostTraceHook (FILE *where)
  12 {
  13     fprintf(where, "\nTrace Off.\n");
  14 }
  15 \end{code}