#807: Removed double fclose of prof_file

[ghc-hetmet.git] / rts / Profiling.c

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 33301a9..96a94e4 100644 (file)
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -882,8 +882,6 @@ gen_XML_logfile( void )
   reportCCS_XML(pruneCCSTree(CCS_MAIN));
 
   fprintf(prof_file, " 0\n");
-
-  fclose(prof_file);
 }
 
 static void