diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 20:58:33 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 20:58:33 +0100 |
| commit | 5716a2f849a53c48f6171101fed7a473107f0756 (patch) | |
| tree | 4976930751c8ce9ea1dad166cce126ce282ab8b8 /ghc/Main.hs | |
| parent | 65152943e6fe80dc5314e897dbf910137b01c47b (diff) | |
| download | haskell-5716a2f849a53c48f6171101fed7a473107f0756.tar.gz | |
Pass DynFlags to the LogAction
A side-effect is that we can no longer use the LogAction in
defaultErrorHandler, as we don't have DynFlags at that point.
But all that defaultErrorHandler did is to print Strings as
SevFatal, so now it takes a 'FatalMessager' instead.
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 5a51c38d92..616309009b 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -79,7 +79,7 @@ main :: IO () main = do hSetBuffering stdout NoBuffering hSetBuffering stderr NoBuffering - GHC.defaultErrorHandler defaultLogAction defaultFlushOut $ do + GHC.defaultErrorHandler defaultFatalMessager defaultFlushOut $ do -- 1. extract the -B flag from the args argv0 <- getArgs |