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
import SrcLoc
import Util
import Panic
-import MonadUtils ( liftIO )
+-- import MonadUtils ( liftIO )
-- Standard Haskell libraries
import System.IO
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