diff options
author | Sergej Jaskiewicz <jaskiewiczs@icloud.com> | 2020-03-18 05:18:52 +0300 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-20 20:44:55 -0400 |
commit | 7e0451c6ce78b08b5f7564aa03a9a86051b35163 (patch) | |
tree | 39dd3455cbe9d114408ae2691829bec0ea14922a | |
parent | 9a96ff6b1c19c9d0af9c9a39fb2c086f311c7239 (diff) | |
download | haskell-7e0451c6ce78b08b5f7564aa03a9a86051b35163.tar.gz |
Fix event message in withTiming'
This typo caused generating 'end' events without the corresponding 'begin' events.
-rw-r--r-- | compiler/main/ErrUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.hs b/compiler/main/ErrUtils.hs index 839ef19b81..118c5a70ba 100644 --- a/compiler/main/ErrUtils.hs +++ b/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) |