diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index eff6474475..68075cac8a 100644 --- a/Assistant/Threads/TransferPoller.hs +++ b/Assistant/Threads/TransferPoller.hs @@ -51,7 +51,6 @@ transferPollerThread = namedThread "TransferPoller" $ do maybe noop (newsize t info . bytesComplete) mi newsize t info sz - | bytesComplete info /= sz && isJust sz = do - liftIO $ print ("alterTransferInfo called", sz) + | bytesComplete info /= sz && isJust sz = alterTransferInfo t $ \i -> i { bytesComplete = sz } | otherwise = noop