add globallyAvailable to remotes

This commit is contained in:
Joey Hess 2013-03-15 19:16:13 -04:00
parent 57e5960758
commit 449520a573
12 changed files with 23 additions and 4 deletions

View file

@ -293,7 +293,10 @@ checkCloudRepos :: UrlRenderer -> Remote -> Assistant ()
-- TODO only display if needed
checkCloudRepos urlrenderer r =
#ifdef WITH_WEBAPP
cloudRepoNeeded urlrenderer (Remote.uuid r)
unlessM (syncingToCloudRemote <$> getDaemonStatus) $
cloudRepoNeeded urlrenderer (Remote.uuid r)
#else
noop
#endif
writeChunk :: Handle -> B.ByteString -> IO ()