Commit 7e0451c6 authored by Sergej Jaskiewicz's avatar Sergej Jaskiewicz Committed by Marge Bot
Browse files

Fix event message in withTiming'

This typo caused generating 'end' events without the corresponding 'begin' events.
parent 9a96ff6b
Pipeline #16971 failed with stages
in 407 minutes and 15 seconds
...@@ -764,7 +764,7 @@ withTiming' dflags what force_result prtimings action ...@@ -764,7 +764,7 @@ withTiming' dflags what force_result prtimings action
where whenPrintTimings = liftIO . when (prtimings == PrintTimings) where whenPrintTimings = liftIO . when (prtimings == PrintTimings)
eventBegins dflags w = do eventBegins dflags w = do
whenPrintTimings $ traceMarkerIO (eventBeginsDoc dflags w) whenPrintTimings $ traceMarkerIO (eventBeginsDoc dflags w)
liftIO $ traceEventIO (eventEndsDoc dflags w) liftIO $ traceEventIO (eventBeginsDoc dflags w)
eventEnds dflags w = do eventEnds dflags w = do
whenPrintTimings $ traceMarkerIO (eventEndsDoc dflags w) whenPrintTimings $ traceMarkerIO (eventEndsDoc dflags w)
liftIO $ traceEventIO (eventEndsDoc dflags w) liftIO $ traceEventIO (eventEndsDoc dflags w)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment