ErrUtils: Emit progress messages to eventlog
authorBen Gamari <ben@smart-cactus.org>
Sun, 14 Apr 2019 21:05:50 +0000 (17:05 -0400)
committerBen Gamari <ben@well-typed.com>
Sun, 16 Jun 2019 15:32:08 +0000 (11:32 -0400)
(cherry picked from commit 1bef62c38d3737b5f5d7ebbb479f3c1a12b1aa09)

compiler/main/ErrUtils.hs

index ac97f17..32e3829 100644 (file)
@@ -80,6 +80,7 @@ import Data.IORef
 import Data.Maybe       ( fromMaybe )
 import Data.Ord
 import Data.Time
+import Debug.Trace
 import Control.Monad
 import Control.Monad.IO.Class
 import System.IO
@@ -598,9 +599,10 @@ fatalErrorMsg'' :: FatalMessager -> String -> IO ()
 fatalErrorMsg'' fm msg = fm msg
 
 compilationProgressMsg :: DynFlags -> String -> IO ()
-compilationProgressMsg dflags msg
-  = ifVerbose dflags 1 $
-    logOutput dflags (defaultUserStyle dflags) (text msg)
+compilationProgressMsg dflags msg = do
+    traceEventIO $ "GHC progress: " ++ msg
+    ifVerbose dflags 1 $
+        logOutput dflags (defaultUserStyle dflags) (text msg)
 
 showPass :: DynFlags -> String -> IO ()
 showPass dflags what