5 PreTraceHook (StgInt fd)
7 /* By default, a trace msg doesn't have a header (nor a footer) */
9 const char msg[]="Trace On:\n";
10 write(fd,msg,sizeof(msg)-1);
15 PostTraceHook (StgInt fd)
18 const char msg[]="\nTrace Off.\n";
19 write(fd,msg,sizeof(msg)-1);