From 2c365b8b74ab725f05a8dcb38bc891be59b91307 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Apr 2013 16:36:45 -0400 Subject: [PATCH] remove debug --- Assistant/Threads/TransferPoller.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index eff6474475..68075cac8a 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