LineBuffering

[fd/haskell-amqp-utils.git] / plane.hs

diff --git a/plane.hs b/plane.hs
index a95e90298e2c685cb99c153710094afbda5520e9..52266a75fe4048eb46bc9decb5058fdaa30e5001 100644 (file)
--- 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")