diff options
| -rw-r--r-- | Remote/External.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |