Support for -fwarn-unused-do-bind and -fwarn-wrong-do-bind, as per #3263

[ghc-hetmet.git] / ghc / Main.hs

diff --git a/ghc/Main.hs b/ghc/Main.hs
index bdf9e63..c078cdb 100644 (file)
--- 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
   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
 
   dflags3 <- GHC.getSessionDynFlags
   hsc_env <- GHC.getSession