From 44aef9fe919572b439d1bb28eab9cf2c254b7d03 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Sat, 13 Jul 2019 10:25:10 -0400
Subject: Add timing of native code generator

Hopefully this will help pin down the remaining questions in #16822.
---
 compiler/nativeGen/AsmCodeGen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs
index 6e9450fd85..8f308adcd2 100644
--- a/compiler/nativeGen/AsmCodeGen.hs
+++ b/compiler/nativeGen/AsmCodeGen.hs
@@ -317,7 +317,7 @@ nativeCodeGen' :: (Outputable statics, Outputable instr,Outputable jumpDest,
                -> Stream IO RawCmmGroup ()
                -> IO UniqSupply
 nativeCodeGen' dflags this_mod modLoc ncgImpl h us cmms
- = do
+ = withTiming (pure dflags) (text "native code generator") (const ()) $ do
         -- BufHandle is a performance hack.  We could hide it inside
         -- Pretty if it weren't for the fact that we do lots of little
         -- printDocs here (in order to do codegen in constant space).
-- 
cgit v1.2.1