summaryrefslogtreecommitdiff
path: root/Assistant/Threads/TransferPoller.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-11 16:36:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-11 16:36:45 -0400
commit90f10c58ba491a17d1b59e91d8c730f80cd25bce (patch)
tree1a34b0afa10e5896db08f2b06fc3796a83303c4f /Assistant/Threads/TransferPoller.hs
parent3defc7e357eae652c0d117d48a6bc0e6a3e58017 (diff)
remove debug
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 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