diff options
Diffstat (limited to 'Assistant/Threads/TransferPoller.hs')
| -rw-r--r-- | Assistant/Threads/TransferPoller.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index 68075cac8..eff647447 100644 --- a/Assistant/Threads/TransferPoller.hs +++ b/Assistant/Threads/TransferPoller.hs @@ -51,6 +51,7 @@ transferPollerThread = namedThread "TransferPoller" $ do maybe noop (newsize t info . bytesComplete) mi newsize t info sz - | bytesComplete info /= sz && isJust sz = + | bytesComplete info /= sz && isJust sz = do + liftIO $ print ("alterTransferInfo called", sz) alterTransferInfo t $ \i -> i { bytesComplete = sz } | otherwise = noop |