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
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
......
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