From 21342cae635c4f72a3838c5d81c1237e96568050 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 27 Dec 2013 13:22:06 -0400 Subject: [PATCH] flush handle after writing message --- Remote/External.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Remote/External.hs b/Remote/External.hs index 2507196417..3dad99022c 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -222,6 +222,7 @@ sendMessage lck external m = liftIO $ do protocolDebug external True line hPutStrLn h line + hFlush h where line = unwords $ formatMessage m