X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;h=12d8dd202b4bbe07f139bec9881e7f3ac177950a;hb=4564ccb752ff2dd28176ff1b567b8475fdb8b403;hp=15327f81bce3f5430867020c94151e28c0854782;hpb=f3a77b2f46ebc27716f45ae426a3b33b853d52f5;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index 15327f8..12d8dd2 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -78,7 +78,8 @@ import Data.Maybe
 main :: IO ()
 main = do
    hSetBuffering stdout NoBuffering
-   GHC.defaultErrorHandler defaultDynFlags $ do
+   let defaultErrorHandlerDynFlags = defaultDynFlags (panic "No settings")
+   GHC.defaultErrorHandler defaultErrorHandlerDynFlags $ do
     -- 1. extract the -B flag from the args
     argv0 <- getArgs