add startingNoMessage
Fixes the last wart in the StartMessage transition. A few commands include other CommandStart actions that generate output, and do not themselves need to display a start/end message.
This commit is contained in:
parent
70bc30acb1
commit
ba2551da6f
6 changed files with 17 additions and 7 deletions
|
@ -630,7 +630,7 @@ seekSyncContent o rs currbranch = do
|
|||
-- Run syncFile as a command action so file transfers run
|
||||
-- concurrently.
|
||||
let ai = OnlyActionOn k (ActionItemKey k)
|
||||
commandAction $ startingCustomOutput ai $ do
|
||||
commandAction $ startingNoMessage ai $ do
|
||||
whenM (syncFile ebloom rs af k) $
|
||||
void $ liftIO $ tryPutMVar mvar ()
|
||||
next $ return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue