cleanup daemonStatus accessors
This commit is contained in:
parent
68118b8986
commit
ea8df8fe9f
15 changed files with 29 additions and 29 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue