X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;fp=ghc%2FMain.hs;h=12d8dd202b4bbe07f139bec9881e7f3ac177950a;hb=bfa0c2ed1e4cd07c7934901520cb04db6b79cd9d;hp=15327f81bce3f5430867020c94151e28c0854782;hpb=e550494a8e6d28274fa124bdb10d4c7f40fe074b;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