From 77e43ec65fff0aaaa1e08caffeb654971aee0b36 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Mar 2013 17:52:41 -0400
Subject: webapp: Display an alert when there are XMPP remotes, and a cloud
 transfer repository needs to be configured.

---
 Assistant/DaemonStatus.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Assistant/DaemonStatus.hs')

diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs
index ea57176b5..fcfb1a4f3 100644
--- a/Assistant/DaemonStatus.hs
+++ b/Assistant/DaemonStatus.hs
@@ -51,10 +51,14 @@ calcSyncRemotes = do
 	alive <- trustExclude DeadTrusted (map Remote.uuid rs)
 	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 = filter (not . Remote.specialRemote) syncable
-		, syncDataRemotes = filter (not . isXMPPRemote) syncable
+		, syncGitRemotes =
+			filter (not . Remote.specialRemote) syncable
+		, syncDataRemotes = nonxmpp
+		, syncingToCloudRemote =
+			any (Git.repoIsUrl . Remote.repo) nonxmpp
 		}
 
 {- Updates the sycRemotes list from the list of all remotes in Annex state. -}
-- 
cgit v1.2.3