diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-11 16:14:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-11 16:14:17 -0400 |
| commit | 3defc7e357eae652c0d117d48a6bc0e6a3e58017 (patch) | |
| tree | d0167ea68042c04d91f4f8fbed17614ce9f90b4a /Assistant/Threads/TransferPoller.hs | |
| parent | 423d2bd2e28dad3d2302b2a5660711228d2e38c9 (diff) | |
addurl: Register transfer so the webapp can see it.
* addurl: Register transfer so the webapp can see it.
* addurl: Automatically retry downloads that fail, as long as some
additional content was downloaded.
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 |