X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfiling.c;h=96a94e4e2ea308e681390d28a5a826ac96b4ec86;hb=afdbaf48894b74eee5b6cc5c17c477d9e517f389;hp=33301a91c1ce84804a91968dd59546cbd9e59d9c;hpb=5a2769f0273dd389977e8283375e7920d183bdd4;p=ghc-hetmet.git

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 33301a9..96a94e4 100644
--- 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