diff options
| author | Daniel Fischer <daniel.is.fischer@googlemail.com> | 2011-07-03 22:54:00 +0200 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-07 08:58:01 +0100 |
| commit | 0fbb62e9f97c79f18c4b5a1406424c3b352eec1e (patch) | |
| tree | b56e7a67861e63f023e61e7815e9ad5fb19c30be /testsuite | |
| parent | 5faed3b31eaca2db336bb2a692bd1734a792734e (diff) | |
| download | haskell-0fbb62e9f97c79f18c4b5a1406424c3b352eec1e.tar.gz | |
Pass defaultLogAction to defaultErrorHandler in annrun01
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs b/testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs index 0b4b87789e..e626dadebc 100644 --- a/testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs +++ b/testsuite/tests/ghc-regress/annotations/should_run/annrun01.hs @@ -4,7 +4,7 @@ module Main where import GHC import MonadUtils ( liftIO ) -import DynFlags ( defaultDynFlags ) +import DynFlags ( defaultLogAction ) import Annotations ( AnnTarget(..), CoreAnnTarget ) import Serialized ( deserializeWithData ) import Panic @@ -16,7 +16,7 @@ import qualified Language.Haskell.TH as TH import Data.List import Data.Function -main = defaultErrorHandler (defaultDynFlags (panic "No settings")) +main = defaultErrorHandler defaultLogAction $ runGhc (Just cTop) $ do liftIO $ putStrLn "Initializing Package Database" dflags <- getSessionDynFlags |