diff options
author | Ben Gamari <ben@smart-cactus.org> | 2019-04-14 17:05:50 -0400 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-04-30 20:41:42 -0400 |
commit | 1bef62c38d3737b5f5d7ebbb479f3c1a12b1aa09 (patch) | |
tree | 151d36d1ecc7dda0258aefd50c1177b21831e5f5 | |
parent | 37a4fd9715de4dad8033ea74483432c77818abf5 (diff) | |
download | haskell-1bef62c38d3737b5f5d7ebbb479f3c1a12b1aa09.tar.gz |
ErrUtils: Emit progress messages to eventlog
-rw-r--r-- | compiler/main/ErrUtils.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/main/ErrUtils.hs b/compiler/main/ErrUtils.hs index 4f19437ce9..ae147829aa 100644 --- a/compiler/main/ErrUtils.hs +++ b/compiler/main/ErrUtils.hs @@ -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 |