flush handle after writing message

This commit is contained in:
Joey Hess 2013-12-27 13:22:06 -04:00
parent fa6f404a5f
commit 21342cae63

View file

@ -222,6 +222,7 @@ sendMessage lck external m =
liftIO $ do
protocolDebug external True line
hPutStrLn h line
hFlush h
where
line = unwords $ formatMessage m