ErrUtils: Emit progress messages to eventlog
authorBen Gamari <ben@smart-cactus.org>
Sun, 14 Apr 2019 21:05:50 +0000 (17:05 -0400)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Wed, 1 May 2019 00:41:42 +0000 (20:41 -0400)
compiler/main/ErrUtils.hs

index 4f19437..ae14782 100644 (file)
@@ -81,6 +81,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
@@ -608,9 +609,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