fix alterTransferInfo

don't want to stomp over fields other than the ones being changed
This commit is contained in:
Joey Hess 2012-08-31 12:14:16 -04:00
parent 34aeecb78a
commit 4004baafaf
3 changed files with 10 additions and 16 deletions

View file

@ -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