diff options
| -rw-r--r-- | Assistant/DaemonStatus.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index fcfb1a4f3..5df2267f7 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -43,7 +43,8 @@ modifyDaemonStatus a = do sendNotification $ changeNotifier s return b -{- Returns a function that updates the lists of syncable remotes. -} +{- Returns a function that updates the lists of syncable remotes + - and other associated information. -} calcSyncRemotes :: Annex (DaemonStatus -> DaemonStatus) calcSyncRemotes = do rs <- filter (remoteAnnexSync . Remote.gitconfig) . @@ -52,6 +53,7 @@ calcSyncRemotes = do let good r = Remote.uuid r `elem` alive let syncable = filter good rs let nonxmpp = filter (not . isXMPPRemote) syncable + return $ \dstatus -> dstatus { syncRemotes = syncable , syncGitRemotes = @@ -65,7 +67,12 @@ calcSyncRemotes = do updateSyncRemotes :: Assistant () updateSyncRemotes = do modifyDaemonStatus_ =<< liftAnnex calcSyncRemotes - liftIO . sendNotification =<< syncRemotesNotifier <$> getDaemonStatus + status <- getDaemonStatus + liftIO $ sendNotification $ syncRemotesNotifier status + when (syncingToCloudRemote status) $ + updateAlertMap $ + M.filter $ \alert -> + alertName alert /= Just CloudRepoNeededAlert {- Load any previous daemon status file, and store it in a MVar for this - process to use as its DaemonStatus. Also gets current transfer status. -} |