[Git][ghc/ghc][master] Fix event message in withTiming'

[Marge Bot]

 Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
7e0451c6 by Sergej Jaskiewicz at 2020-03-21T00:44:55Z
Fix event message in withTiming'

This typo caused generating 'end' events without the corresponding 'begin' events.

- - - - -


1 changed file:

- compiler/main/ErrUtils.hs


Changes:

=====================================
compiler/main/ErrUtils.hs
=====================================
@@ -764,7 +764,7 @@ withTiming' dflags what force_result prtimings action
     where whenPrintTimings = liftIO . when (prtimings == PrintTimings)
           eventBegins dflags w = do
             whenPrintTimings $ traceMarkerIO (eventBeginsDoc dflags w)
-            liftIO $ traceEventIO (eventEndsDoc dflags w)
+            liftIO $ traceEventIO (eventBeginsDoc dflags w)
           eventEnds dflags w = do
             whenPrintTimings $ traceMarkerIO (eventEndsDoc dflags w)
             liftIO $ traceEventIO (eventEndsDoc dflags w)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/commit/7e0451c6ce78b08b5f7564aa03a9a86051b35163

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/commit/7e0451c6ce78b08b5f7564aa03a9a86051b35163
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200320/1eb618a1/attachment-0001.html>