Kazu, Thanks for the patch. Applied.
On Tue, Oct 1, 2013 at 7:34 PM, Kazu Yamamoto <k...@iij.ad.jp> wrote: >> fwiw, it seems to have been removed back in 2008: >> >> >> http://git.haskell.org/ghc.git/commitdiff/1c7d0ac0a433f85effeb5e9cfb6b303c26b201d1 >> > > Herbert, thank you! > > Austin, would you check the following patch and apply it if it seems OK? > > --Kazu > > diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs > index d52835d..d5c65d9 100644 > --- a/compiler/main/DynFlags.hs > +++ b/compiler/main/DynFlags.hs > @@ -1250,7 +1250,7 @@ dynamicTooMkDynamicDynFlags dflags0 > > ----------------------------------------------------------------------------- > > --- | Used by 'GHC.newSession' to partially initialize a new 'DynFlags' value > +-- | Used by 'GHC.runGhc' and 'GHC.runGhcT' to partially initialize a new > 'DynFlags' value > initDynFlags :: DynFlags -> IO DynFlags > initDynFlags dflags = do > let -- We can't build with dynamic-too on Windows, as labels before > @@ -1287,7 +1287,7 @@ initDynFlags dflags = do > } > > -- | The normal 'DynFlags'. Note that they is not suitable for use in this > form > --- and must be fully initialized by 'GHC.newSession' first. > +-- and must be fully initialized by 'GHC.runGhc' or 'GHC.runGhcT' first. > defaultDynFlags :: Settings -> DynFlags > defaultDynFlags mySettings = > DynFlags { > diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs > index 1eb01ca..8b82f17 100644 > --- a/compiler/main/StaticFlags.hs > +++ b/compiler/main/StaticFlags.hs > @@ -81,7 +81,7 @@ parseStaticFlagsFull :: [Flag IO] -> [Located String] > -> IO ([Located String], [Located String]) > parseStaticFlagsFull flagsAvailable args = do > ready <- readIORef v_opt_C_ready > - when ready $ throwGhcExceptionIO (ProgramError "Too late for > parseStaticFlags: call it before newSession") > + when ready $ throwGhcExceptionIO (ProgramError "Too late for > parseStaticFlags: call it before runGhc or runGhcT") > > (leftover, errs, warns) <- processArgs flagsAvailable args > when (not (null errs)) $ throwGhcExceptionIO $ errorsToGhcException errs > @@ -100,7 +100,7 @@ staticFlags :: [String] > staticFlags = unsafePerformIO $ do > ready <- readIORef v_opt_C_ready > if (not ready) > - then panic "Static flags have not been initialised!\n Please > call GHC.newSession or GHC.parseStaticFlags early enough." > + then panic "Static flags have not been initialised!\n Please > call GHC.parseStaticFlags early enough." > else readIORef v_opt_C > > -- All the static flags should appear in this list. It describes how each > _______________________________________________ > ghc-devs mailing list > ghc-devs@haskell.org > http://www.haskell.org/mailman/listinfo/ghc-devs > -- Austin Seipp, Haskell Consultant Well-Typed LLP, http://www.well-typed.com/ _______________________________________________ ghc-devs mailing list ghc-devs@haskell.org http://www.haskell.org/mailman/listinfo/ghc-devs