diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-11 16:36:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-11 16:36:45 -0400 |
| commit | 90f10c58ba491a17d1b59e91d8c730f80cd25bce (patch) | |
| tree | 1a34b0afa10e5896db08f2b06fc3796a83303c4f /Assistant/Threads/TransferPoller.hs | |
| parent | 3defc7e357eae652c0d117d48a6bc0e6a3e58017 (diff) | |
remove debug
Diffstat (limited to 'Assistant/Threads/TransferPoller.hs')
| -rw-r--r-- | Assistant/Threads/TransferPoller.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index eff647447..68075cac8 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 |