Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0449754055f44e87331b1843d3d1ef81bee96452 >--------------------------------------------------------------- commit 0449754055f44e87331b1843d3d1ef81bee96452 Author: Ian Lynagh <ig...@earth.li> Date: Tue May 10 19:01:48 2011 +0100 Fix annrun01; follow changes in GHC API >--------------------------------------------------------------- .../ghc-regress/annotations/should_run/annrun01.hs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/tests/ghc-regress/annotations/should_run/annrun01.hs b/tests/ghc-regress/annotations/should_run/annrun01.hs index 55b3884..0b4b877 100644 --- a/tests/ghc-regress/annotations/should_run/annrun01.hs +++ b/tests/ghc-regress/annotations/should_run/annrun01.hs @@ -7,6 +7,7 @@ import MonadUtils ( liftIO ) import DynFlags ( defaultDynFlags ) import Annotations ( AnnTarget(..), CoreAnnTarget ) import Serialized ( deserializeWithData ) +import Panic import Config import Annrun01_Help @@ -15,7 +16,8 @@ import qualified Language.Haskell.TH as TH import Data.List import Data.Function -main = defaultErrorHandler defaultDynFlags $ runGhc (Just cTop) $ do +main = defaultErrorHandler (defaultDynFlags (panic "No settings")) + $ runGhc (Just cTop) $ do liftIO $ putStrLn "Initializing Package Database" dflags <- getSessionDynFlags let dflags' = dflags _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
