X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FHpc.c;h=14f9d80226376a830a6aaefc1c84900c3ae17023;hb=e119cde9caf1f2acbde7ff53feebdc27d6c35f8d;hp=e4323e4a95c468fea08560b54387cfd048356b3c;hpb=55dd028c1dc41c603316dbe843fa13c1cac30720;p=ghc-hetmet.git

diff --git a/rts/Hpc.c b/rts/Hpc.c
index e4323e4..14f9d80 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -432,7 +432,7 @@ exitHpc(void) {
   fclose(f);
 
   if (rixFile != NULL) {
-    fprintf(rixFile,"Finished\n",prog_name);
+    fprintf(rixFile,"Finished\n");
     fclose(rixFile);
   }