flush handle after writing message
This commit is contained in:
parent
fa6f404a5f
commit
21342cae63
1 changed files with 1 additions and 0 deletions
|
@ -222,6 +222,7 @@ sendMessage lck external m =
|
|||
liftIO $ do
|
||||
protocolDebug external True line
|
||||
hPutStrLn h line
|
||||
hFlush h
|
||||
where
|
||||
line = unwords $ formatMessage m
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue