X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2FMain.hs;h=c078cdb389ebf7fe1e7e4f6c54f84ac2e3a6c5b2;hp=bdf9e63e43e6d2e1e6bb3e095286858e4b70fafe;hb=9d0c8f842e35dde3d570580cf62a32779f66a6de;hpb=ab1d5052de53479377c961d1e966f0cf0b82c592

diff --git a/ghc/Main.hs b/ghc/Main.hs
index bdf9e63..c078cdb 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -164,7 +164,7 @@ main =
   liftIO $ showBanner cli_mode dflags2
 
   -- we've finished manipulating the DynFlags, update the session
-  GHC.setSessionDynFlags dflags2
+  _ <- GHC.setSessionDynFlags dflags2
   dflags3 <- GHC.getSessionDynFlags
   hsc_env <- GHC.getSession