From aecd7635333cad4bf52649171f629b5172fb8281 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 27 Dec 2013 13:22:06 -0400 Subject: flush handle after writing message --- Remote/External.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Remote') diff --git a/Remote/External.hs b/Remote/External.hs index 250719641..3dad99022 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 -- cgit v1.2.3