summaryrefslogtreecommitdiff
path: root/Assistant/Threads/TransferPoller.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-08-28 14:19:11 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-08-28 14:19:11 -0400
commit1296cfb09a763878e7b9376f59aabf60fb8d7314 (patch)
tree01123e18dd0ae4419100f75cca2036387179e0c8 /Assistant/Threads/TransferPoller.hs
parent7024a973b222c32f44a7168532afae520e7474ed (diff)
avoid possibly re-adding a removed transfer when updating its info
Doesn't fix the bug I thought it'd fix, but is clearly correct.
Diffstat (limited to 'Assistant/Threads/TransferPoller.hs')
-rw-r--r--Assistant/Threads/TransferPoller.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs
index d720bcc45..12394373f 100644
--- a/Assistant/Threads/TransferPoller.hs
+++ b/Assistant/Threads/TransferPoller.hs
@@ -41,8 +41,7 @@ transferPollerThread st dstatus = do
sz <- catchMaybeIO $
fromIntegral . fileSize
<$> getFileStatus f
- when (bytesComplete info /= sz && isJust sz) $ do
- putStrLn $ "download size " ++ show sz
+ when (bytesComplete info /= sz && isJust sz) $
updateTransferInfo dstatus t info
{ bytesComplete = sz }
{- can't poll uploads -}