diff options
| author | Flaviu Andrei Csernik <fcsernik@gmail.com> | 2016-03-23 16:18:11 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-03-24 10:53:27 +0100 |
| commit | 2708c22b8c8a415446d963575c0396a038b43a93 (patch) | |
| tree | b19e6bffe5fca316108a7437c874447c10787a92 /rts/RtsFlags.c | |
| parent | 997312b04c56017197250096d61f3e8fab502319 (diff) | |
| download | haskell-2708c22b8c8a415446d963575c0396a038b43a93.tar.gz | |
Close ticky profiling file stream after printing (#9405)
Test Plan: T9405
Reviewers: simonmar, austin, bgamari
Reviewed By: simonmar, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2008
GHC Trac Issues: #9405
Diffstat (limited to 'rts/RtsFlags.c')
| -rw-r--r-- | rts/RtsFlags.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index 3d0d7a45dc..cce799e139 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -590,9 +590,11 @@ void setupRtsFlags (int *argc, char *argv[], RtsConfig rts_config) if (RtsFlags.GcFlags.statsFile != NULL) { initStatsFile (RtsFlags.GcFlags.statsFile); } +#ifdef TICKY_TICKY if (RtsFlags.TickyFlags.tickyFile != NULL) { - initStatsFile (RtsFlags.GcFlags.statsFile); + initStatsFile (RtsFlags.TickyFlags.tickyFile); } +#endif } /* ----------------------------------------------------------------------------- |