X-Git-Url: https://woffs.de/git/fd/haskell-amqp-utils.git/blobdiff_plain/a0636be0bdc4f776027ef4c3a371ea17885a01e2..edcf69f3fc94db1883be556ef2f427d0da48ae24:/agitprop.hs?ds=sidebyside

diff --git a/agitprop.hs b/agitprop.hs
index 0b6399d..96669e1 100644
--- a/agitprop.hs
+++ b/agitprop.hs
@@ -33,12 +33,15 @@ import           System.FilePath.Posix.ByteString
 import           System.INotify
 #endif
 import qualified System.Posix.Files.ByteString    as F
+import           System.IO
 
 main :: IO ()
 main = do
   hr "starting"
   tid <- myThreadId
   args <- getArgs >>= parseargs 'a'
+  hSetBuffering stdout LineBuffering
+  hSetBuffering stderr LineBuffering
   printparam "client version" ["amqp-utils", showVersion version]
   printparam "routing key" $ rKey args
   printparam "exchange" $ currentExchange args