remove debug

This commit is contained in:
Joey Hess 2013-04-11 16:36:45 -04:00
parent 1eb3fff787
commit 2c365b8b74

View file

@ -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