Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
-
9788c0ec
by Cheng Shao at 2026-01-21T16:10:24-05:00
1 changed file:
Changes:
| ... | ... | @@ -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
|