summaryrefslogtreecommitdiff
path: root/rts/eventlog/EventLogWriter.c
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2019-09-06 05:28:56 -0400
committerBen Gamari <ben@smart-cactus.org>2019-11-22 13:45:07 -0500
commitf9f9650e142fc3ec42001b08f81509461a09aa68 (patch)
treed160d3c3dfe0ee95f367781a5cc04802f3b4ecd4 /rts/eventlog/EventLogWriter.c
parent2f5ed225b78b32c65d023072d78ae5d176e2f04b (diff)
downloadhaskell-wip/init-eventlogging.tar.gz
rts: Expose interface for configuring EventLogWriterswip/init-eventlogging
This exposes a set of interfaces from the GHC API for configuring EventLogWriters. These can be used by consumers like [ghc-eventlog-socket](https://github.com/bgamari/ghc-eventlog-socket).
Diffstat (limited to 'rts/eventlog/EventLogWriter.c')
-rw-r--r--rts/eventlog/EventLogWriter.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/eventlog/EventLogWriter.c b/rts/eventlog/EventLogWriter.c
index 4b486926a7..b19e617a4c 100644
--- a/rts/eventlog/EventLogWriter.c
+++ b/rts/eventlog/EventLogWriter.c
@@ -122,6 +122,7 @@ stopEventLogFileWriter(void)
{
if (event_log_file != NULL) {
fclose(event_log_file);
+ event_log_file = NULL;
}
}