Commit 0fbb62e9 authored by daniel.is.fischer's avatar daniel.is.fischer Committed by Simon Marlow
Browse files

Pass defaultLogAction to defaultErrorHandler in annrun01

parent 5faed3b3
...@@ -4,7 +4,7 @@ module Main where ...@@ -4,7 +4,7 @@ module Main where
import GHC import GHC
import MonadUtils ( liftIO ) import MonadUtils ( liftIO )
import DynFlags ( defaultDynFlags ) import DynFlags ( defaultLogAction )
import Annotations ( AnnTarget(..), CoreAnnTarget ) import Annotations ( AnnTarget(..), CoreAnnTarget )
import Serialized ( deserializeWithData ) import Serialized ( deserializeWithData )
import Panic import Panic
...@@ -16,7 +16,7 @@ import qualified Language.Haskell.TH as TH ...@@ -16,7 +16,7 @@ import qualified Language.Haskell.TH as TH
import Data.List import Data.List
import Data.Function import Data.Function
main = defaultErrorHandler (defaultDynFlags (panic "No settings")) main = defaultErrorHandler defaultLogAction
$ runGhc (Just cTop) $ do $ runGhc (Just cTop) $ do
liftIO $ putStrLn "Initializing Package Database" liftIO $ putStrLn "Initializing Package Database"
dflags <- getSessionDynFlags dflags <- getSessionDynFlags
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment