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, 3 years ago)
  • tests/ghc-regress/annotations/should_run/annrun01.hs

    From b77dd521f422a4fc4705310b8bfc261b11a81780 Mon Sep 17 00:00:00 2001
    From: Daniel Fischer <daniel.is.fischer@googlemail.com>
    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