X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=a9e652d01f82a89846583a8532f0c101e66e0259;hp=ca2e14cee2ecc7930efb3023c2ee6f3d5d6048f9;hb=bfa0c2ed1e4cd07c7934901520cb04db6b79cd9d;hpb=a52ff7619e8b7d74a9d933d922eeea49f580bca8

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index ca2e14c..a9e652d 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -431,8 +431,8 @@ initGhcMonad mb_top_dir = do
 
   liftIO $ StaticFlags.initStaticOpts
 
-  dflags0 <- liftIO $ initDynFlags defaultDynFlags
-  dflags <- liftIO $ initSysTools mb_top_dir dflags0
+  mySettings <- liftIO $ initSysTools mb_top_dir
+  dflags <- liftIO $ initDynFlags (defaultDynFlags mySettings)
   env <- liftIO $ newHscEnv dflags
   setSession env