ghc/runtime/hooks/TraceHooks.lc

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