diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-03 03:11:32 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-03 13:57:53 +0100 |
| commit | e01fffc60ba6a71487f0402f6c79ba2f0a684765 (patch) | |
| tree | 32f0e93f4f3737963bec303e420b3f72a44f8f47 /ghc/Main.hs | |
| parent | 8837193a1235a050581067a227a98a4b339ee6a0 (diff) | |
| download | haskell-e01fffc60ba6a71487f0402f6c79ba2f0a684765.tar.gz | |
defaultErrorHandler now only takes LogAction
It used to take a whole DynFlags, but that meant we had to
create a DynFlags with (panic "No settings") for settings, as
we didn't have any real settings.
Now we just pass the LogAction, which is all that it actually needed.
The default is exported from DynFlags as defaultLogAction.
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 71a45f8a9a..4a91acd3b9 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -78,8 +78,7 @@ import Data.Maybe main :: IO () main = do hSetBuffering stdout NoBuffering - let defaultErrorHandlerDynFlags = defaultDynFlags (panic "No settings") - GHC.defaultErrorHandler defaultErrorHandlerDynFlags $ do + GHC.defaultErrorHandler defaultLogAction $ do -- 1. extract the -B flag from the args argv0 <- getArgs |