X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FGHC.hs;h=2480e28255743886f6c500f4bdad8c595e0edc72;hb=6f9127b3a48638a1230935d94046084db567699e;hp=ca2e14cee2ecc7930efb3023c2ee6f3d5d6048f9;hpb=f3a77b2f46ebc27716f45ae426a3b33b853d52f5;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index ca2e14c..2480e28 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -432,7 +432,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
+  let dflags = dflags0 { settings = mySettings }
   env <- liftIO $ newHscEnv dflags
   setSession env