X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;h=8bd9c8b5eae9525421e4f5d43d3c0bee3260005b;hb=39a924f10cb4fed95d8fc0caf209876a693ab1f9;hp=df90857fbbb457805cd15d4849a7aa9a0e011b53;hpb=9a4607c35c107bca78f08f7e57896044c66118be;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index df90857..8bd9c8b 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -10,13 +10,11 @@
 
 module Main (main) where
 
-#include "HsVersions.h"
-
 -- The official GHC API
 import qualified GHC
-import GHC		( DynFlags(..), HscTarget(..),
-                          GhcMode(..), GhcLink(..),
-			  LoadHowMuch(..), dopt, DynFlag(..),
+import GHC		( -- DynFlags(..), HscTarget(..),
+                          -- GhcMode(..), GhcLink(..),
+			  LoadHowMuch(..), -- dopt, DynFlag(..),
                           defaultCallbacks )
 import CmdLineParser
 
@@ -45,7 +43,7 @@ import Outputable
 import SrcLoc
 import Util
 import Panic
-import MonadUtils       ( liftIO )
+-- import MonadUtils       ( liftIO )
 
 -- Standard Haskell libraries
 import System.IO
@@ -166,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