From ebfa35284741fca47719f531f0996261441f75b0 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Tue, 16 Apr 2019 15:19:01 -0400
Subject: [PATCH] Emit GHC timing events to eventlog
---
compiler/main/ErrUtils.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/compiler/main/ErrUtils.hs b/compiler/main/ErrUtils.hs
index ae147829aa3..d036c1f7d90 100644
--- a/compiler/main/ErrUtils.hs
+++ b/compiler/main/ErrUtils.hs
@@ -653,10 +653,12 @@ withTiming getDFlags what force_result action
if verbosity dflags >= 2 || dopt Opt_D_dump_timings dflags
then do liftIO $ logInfo dflags (defaultUserStyle dflags)
$ text "***" <+> what <> colon
+ liftIO $ traceEventIO $ showSDocOneLine dflags $ text "GHC:started:" <+> what
alloc0 <- liftIO getAllocationCounter
start <- liftIO getCPUTime
!r <- action
() <- pure $ force_result r
+ liftIO $ traceEventIO $ showSDocOneLine dflags $ text "GHC:finished:" <+> what
end <- liftIO getCPUTime
alloc1 <- liftIO getAllocationCounter
-- recall that allocation counter counts down
--
GitLab