diff options
Diffstat (limited to 'compiler/GHC/Utils/Error.hs')
| -rw-r--r-- | compiler/GHC/Utils/Error.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Utils/Error.hs b/compiler/GHC/Utils/Error.hs index 2c7edd30e9..2e47601e8c 100644 --- a/compiler/GHC/Utils/Error.hs +++ b/compiler/GHC/Utils/Error.hs @@ -521,7 +521,7 @@ withTiming' dflags what force_result prtimings action where whenPrintTimings = liftIO . when (prtimings == PrintTimings) - recordAllocs alloc = do + recordAllocs alloc = liftIO $ traceMarkerIO $ "GHC:allocs:" ++ show alloc eventBegins ctx w = do |