X-Git-Url: https://woffs.de/git/fd/haskell-amqp-utils.git/blobdiff_plain/a0636be0bdc4f776027ef4c3a371ea17885a01e2..edcf69f3fc94db1883be556ef2f427d0da48ae24:/plane.hs diff --git a/plane.hs b/plane.hs index a95e902..52266a7 100644 --- a/plane.hs +++ b/plane.hs @@ -27,6 +27,8 @@ main = do hr "starting" tid <- myThreadId args <- getArgs >>= parseargs 'p' + hSetBuffering stdout LineBuffering + hSetBuffering stderr LineBuffering X.onException (printparam "rpc_timeout" [show (rpc_timeout args), "s"]) (error $ "invalid rpc_timeout")