fix alterTransferInfo
don't want to stomp over fields other than the ones being changed
This commit is contained in:
parent
34aeecb78a
commit
4004baafaf
3 changed files with 10 additions and 16 deletions
|
@ -42,7 +42,7 @@ transferPollerThread st dstatus = do
|
|||
fromIntegral . fileSize
|
||||
<$> getFileStatus f
|
||||
when (bytesComplete info /= sz && isJust sz) $
|
||||
alterTransferInfo dstatus t info
|
||||
{ bytesComplete = sz }
|
||||
alterTransferInfo dstatus t $
|
||||
\i -> i { bytesComplete = sz }
|
||||
{- can't poll uploads -}
|
||||
| otherwise = noop
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue