- GHC.defaultErrorHandler defaultDynFlags $ do
- session <- newSession (Just ghc_topdir)
- dflags <- getSessionDynFlags session
- (pflags, _) <- parseDynamicFlags dflags{ verbosity=1 } ghcArgs
- let dflags2 = pflags { hscTarget = HscNothing } -- don't generate anything
- GHC.defaultCleanupHandler dflags2 $ do
+ GHC.defaultErrorHandler defaultDynFlags $
+ runGhc (Just ghc_topdir) $ do
+ dflags <- getSessionDynFlags
+ (pflags, _, _) <- parseDynamicFlags dflags{ verbosity=1 } (map noLoc ghcArgs)
+ let dflags2 = pflags { hscTarget = HscNothing } -- don't generate anything
+ GHC.defaultCleanupHandler dflags2 $ do