Commit beaf7725 authored by Simon Marlow's avatar Simon Marlow

follow changes in the GHC API

parent a8a0071d
......@@ -4,7 +4,7 @@ module Main where
import GHC
import MonadUtils ( liftIO )
import DynFlags ( defaultLogAction )
import DynFlags ( defaultLogAction, defaultFlushOut )
import Annotations ( AnnTarget(..), CoreAnnTarget )
import Serialized ( deserializeWithData )
import Panic
......@@ -17,7 +17,7 @@ import Data.List
import Data.Function
main :: IO ()
main = defaultErrorHandler defaultLogAction
main = defaultErrorHandler defaultLogAction defaultFlushOut
$ 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