diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-31 12:14:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-31 12:14:16 -0400 |
| commit | 4004baafaf4297e77ca7bd23bb5b0de7fc8efb3e (patch) | |
| tree | 9511ac5035da43605c4a9305ca42e903550bd127 /Assistant/Threads/TransferPoller.hs | |
| parent | 34aeecb78a40229b0a82638ec93f2feeb15bba27 (diff) | |
fix alterTransferInfo
don't want to stomp over fields other than the ones being changed
Diffstat (limited to 'Assistant/Threads/TransferPoller.hs')
| -rw-r--r-- | Assistant/Threads/TransferPoller.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index 8839045df..79bcb98b5 100644 --- a/Assistant/Threads/TransferPoller.hs +++ b/Assistant/Threads/TransferPoller.hs @@ -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 |