[project @ 1996-07-25 20:43:49 by partain]

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

diff --git a/ghc/runtime/hooks/TraceHooks.lc b/ghc/runtime/hooks/TraceHooks.lc
index a64f9cf..67b7ea3 100644 (file)
--- a/ghc/runtime/hooks/TraceHooks.lc
+++ b/ghc/runtime/hooks/TraceHooks.lc
@@ -2,15 +2,13 @@
 #include "rtsdefs.h"
 
 void
-PreTraceHook (where)
-  FILE *where;
+PreTraceHook (FILE *where)
 {
     fprintf(where, "Trace On:\n");
 }
 
 void
-PostTraceHook (where)
-  FILE *where;
+PostTraceHook (FILE *where)
 {
     fprintf(where, "\nTrace Off.\n");
 }