Fix annrun01; follow changes in GHC API
authorIan Lynagh <igloo@earth.li>
Tue, 10 May 2011 18:01:48 +0000 (19:01 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 10 May 2011 18:01:48 +0000 (19:01 +0100)
testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs

index 55b3884..0b4b877 100644 (file)
@@ -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