summaryrefslogtreecommitdiff
path: root/Assistant/Threads/TransferWatcher.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-29 17:02:50 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-29 17:02:50 -0400
commit37d888f9b4a33933b2e894791ed85647c02e6182 (patch)
tree71e7773f31bb8bdbda31fd1731d543e372a11dae /Assistant/Threads/TransferWatcher.hs
parent2960a8011484fa3dad1cff55e8e412f4d4b1db84 (diff)
tweak
Diffstat (limited to 'Assistant/Threads/TransferWatcher.hs')
-rw-r--r--Assistant/Threads/TransferWatcher.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs
index ad341b00a..a9925c9e5 100644
--- a/Assistant/Threads/TransferWatcher.hs
+++ b/Assistant/Threads/TransferWatcher.hs
@@ -79,9 +79,9 @@ onModify file = do
Just t -> go t =<< liftIO (readTransferInfoFile Nothing file)
where
go _ Nothing = noop
- go t (Just newinfo) = alterTransferInfo t
- (\i -> i { bytesComplete = bytesComplete newinfo })
- <<~ daemonStatusHandle
+ go t (Just newinfo) = withAssistant daemonStatusHandle $ \h ->
+ alterTransferInfo h t $
+ \i -> i { bytesComplete = bytesComplete newinfo }
{- This thread can only watch transfer sizes when the DirWatcher supports
- tracking modificatons to files. -}