diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-29 17:02:50 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-29 17:02:50 -0400 |
commit | 37d888f9b4a33933b2e894791ed85647c02e6182 (patch) | |
tree | 71e7773f31bb8bdbda31fd1731d543e372a11dae /Assistant/Threads/TransferWatcher.hs | |
parent | 2960a8011484fa3dad1cff55e8e412f4d4b1db84 (diff) |
tweak
Diffstat (limited to 'Assistant/Threads/TransferWatcher.hs')
-rw-r--r-- | Assistant/Threads/TransferWatcher.hs | 6 |
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. -} |