bugfix
This commit is contained in:
parent
8939ef3121
commit
c8691d76aa
1 changed files with 3 additions and 1 deletions
|
@ -57,7 +57,9 @@ onAdd st dstatus _ file _ = case parseTransferFile file of
|
|||
where
|
||||
go _ Nothing = noop -- transfer already finished
|
||||
go t (Just info) = adjustTransfers dstatus $
|
||||
M.insertWith' const t info
|
||||
M.insertWith' merge t info
|
||||
-- preseve shouldWait flag, which is not written to disk
|
||||
merge new old = new { shouldWait = shouldWait old }
|
||||
|
||||
{- Called when a transfer information file is removed.
|
||||
-
|
||||
|
|
Loading…
Reference in a new issue