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); }