diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-30 14:44:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-30 14:44:18 -0400 |
| commit | bab7e83221468905b76e28bb123ebe26e146b97b (patch) | |
| tree | 19b3bf6d56f936a81c09be7b552c3a8616d45e27 /Assistant/Threads/TransferPoller.hs | |
| parent | ca03b7fef80cf97e89cd785ec8393a27d5328d99 (diff) | |
cleanup daemonStatus accessors
Diffstat (limited to 'Assistant/Threads/TransferPoller.hs')
| -rw-r--r-- | Assistant/Threads/TransferPoller.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index e28c24364..c9e20757d 100644 --- a/Assistant/Threads/TransferPoller.hs +++ b/Assistant/Threads/TransferPoller.hs @@ -22,10 +22,10 @@ transferPollerThread :: NamedThread transferPollerThread = NamedThread "TransferPoller" $ do g <- liftAnnex gitRepo tn <- liftIO . newNotificationHandle =<< - transferNotifier <$> daemonStatus + transferNotifier <$> getDaemonStatus forever $ do liftIO $ threadDelay 500000 -- 0.5 seconds - ts <- currentTransfers <$> daemonStatus + ts <- currentTransfers <$> getDaemonStatus if M.null ts -- block until transfers running then liftIO $ waitNotification tn |