Ticket #5297: 0001-Pass-defaultLogAction-to-defaultErrorHandler-in-annr.patch

File 0001-Pass-defaultLogAction-to-defaultErrorHandler-in-annr.patch, 1.2 KB (added by daniel.is.fischer, 4 years ago)
  • tests/ghc-regress/annotations/should_run/annrun01.hs

    From b77dd521f422a4fc4705310b8bfc261b11a81780 Mon Sep 17 00:00:00 2001
    From: Daniel Fischer <[email protected]>
    Date: Sun, 3 Jul 2011 22:54:00 +0200
    Subject: [PATCH] Pass defaultLogAction to defaultErrorHandler in annrun01
    
    ---
     .../ghc-regress/annotations/should_run/annrun01.hs |    4 ++--
     1 files changed, 2 insertions(+), 2 deletions(-)
    
    diff --git a/tests/ghc-regress/annotations/should_run/annrun01.hs b/tests/ghc-regress/annotations/should_run/annrun01.hs
    index 0b4b877..e626dad 100644
    a b module Main where 
    44
    55import GHC
    66import MonadUtils  ( liftIO )
    7 import DynFlags    ( defaultDynFlags )
     7import DynFlags    ( defaultLogAction )
    88import Annotations ( AnnTarget(..), CoreAnnTarget )
    99import Serialized  ( deserializeWithData )
    1010import Panic
    import qualified Language.Haskell.TH as TH 
    1616import Data.List
    1717import Data.Function
    1818
    19 main = defaultErrorHandler (defaultDynFlags (panic "No settings"))
     19main = defaultErrorHandler defaultLogAction
    2020     $ runGhc (Just cTop) $ do
    2121    liftIO $ putStrLn "Initializing Package Database"
    2222    dflags <- getSessionDynFlags