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/DaemonStatus.hs | |
parent | ca03b7fef80cf97e89cd785ec8393a27d5328d99 (diff) |
cleanup daemonStatus accessors
Diffstat (limited to 'Assistant/Threads/DaemonStatus.hs')
-rw-r--r-- | Assistant/Threads/DaemonStatus.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/DaemonStatus.hs b/Assistant/Threads/DaemonStatus.hs index 946bf1b05..07f0986a6 100644 --- a/Assistant/Threads/DaemonStatus.hs +++ b/Assistant/Threads/DaemonStatus.hs @@ -18,7 +18,7 @@ import Utility.NotificationBroadcaster daemonStatusThread :: NamedThread daemonStatusThread = NamedThread "DaemonStatus" $ do notifier <- liftIO . newNotificationHandle - =<< changeNotifier <$> daemonStatus + =<< changeNotifier <$> getDaemonStatus checkpoint runEvery (Seconds tenMinutes) <~> do liftIO $ waitNotification notifier @@ -26,4 +26,4 @@ daemonStatusThread = NamedThread "DaemonStatus" $ do where checkpoint = do file <- liftAnnex $ fromRepo gitAnnexDaemonStatusFile - liftIO . writeDaemonStatusFile file =<< daemonStatus + liftIO . writeDaemonStatusFile file =<< getDaemonStatus |