extend transferrer protocol to send progress bar total size updates
New protocol is not back-compat with old one, but it's never been released so that's ok.
This commit is contained in:
parent
94b323a8e8
commit
095cdc7e83
6 changed files with 44 additions and 22 deletions
|
@ -317,7 +317,7 @@ mkPrompter = getConcurrency >>= \case
|
|||
let (run, cleanup) = case outputType s of
|
||||
SerializedOutput h hr ->
|
||||
( \a -> do
|
||||
liftIO $ outputSerialized h StartPrompt
|
||||
liftIO $ outputSerialized h BeginPrompt
|
||||
liftIO $ waitOutputSerializedResponse hr ReadyPrompt
|
||||
a
|
||||
, liftIO $ outputSerialized h EndPrompt
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue