Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • libraries/ghci/GHCi/Server.hs
    ... ... @@ -32,11 +32,12 @@ import Data.Binary
    32 32
     import Text.Printf
    
    33 33
     import System.Environment (getProgName, getArgs)
    
    34 34
     import System.Exit
    
    35
    +import System.IO
    
    35 36
     
    
    36 37
     type MessageHook = Msg -> IO Msg
    
    37 38
     
    
    38 39
     trace :: String -> IO ()
    
    39
    -trace s = getProgName >>= \name -> printf "[%20s] %s\n" name s
    
    40
    +trace s = getProgName >>= \name -> hPrintf stderr "[%20s] %s\n" name s
    
    40 41
     
    
    41 42
     serv :: Bool -> MessageHook -> Pipe -> (forall a .IO a -> IO a) -> IO ()
    
    42 43
     serv verbose hook pipe restore = loop