add globallyAvailable to remotes

Remote/Bup.hs

@@ -67,6 +67,7 @@ gen r u c gc = do
 			then Just buprepo
 			else Nothing
 		, remotetype = remote
+		, globallyAvailable = not $ bupLocal buprepo
 		, readonly = False
 		}
 	return $ encryptableRemote c

Remote/Directory.hs

@@ -57,6 +57,7 @@ gen r u c gc = do
 			gitconfig = gc,
 			localpath = Just dir,
 			readonly = False,
+			globallyAvailable = False,
 			remotetype = remote
 		}
   where

Remote/Git.hs

@@ -111,6 +111,7 @@ gen r u _ gc = go <$> remoteCost gc defcst
 			, repo = r
 			, gitconfig = gc
 			, readonly = Git.repoIsHttp r
+			, globallyAvailable = not $ Git.repoIsLocal r || Git.repoIsLocalUnknown r
 			, remotetype = remote
 			}
 

Remote/Glacier.hs

@@ -63,6 +63,7 @@ gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost
 			gitconfig = gc,
 			localpath = Nothing,
 			readonly = False,
+			globallyAvailable = True,
 			remotetype = remote
 		}
 

Remote/Hook.hs

@@ -52,6 +52,7 @@ gen r u c gc = do
 			repo = r,
 			gitconfig = gc,
 			readonly = False,
+			globallyAvailable = False,
 			remotetype = remote
 		}
   where

Remote/Rsync.hs

@@ -60,14 +60,16 @@ gen r u c gc = do
 			, config = M.empty
 			, repo = r
 			, gitconfig = gc
-			, localpath = if rsyncUrlIsPath $ rsyncUrl o
+			, localpath = if islocal
 				then Just $ rsyncUrl o
 				else Nothing
 			, readonly = False
+			, globallyAvailable = not $ islocal
 			, remotetype = remote
 			}
   where
 	o = RsyncOpts url opts escape
+	islocal = rsyncUrlIsPath $ rsyncUrl o
 	url = fromMaybe (error "missing rsyncurl") $ remoteAnnexRsyncUrl gc
 	opts = map Param $ filter safe $ remoteAnnexRsyncOptions gc
 	escape = M.lookup "shellescape" c /= Just "no"

Remote/S3.hs

@@ -62,6 +62,7 @@ gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
 			gitconfig = gc,
 			localpath = Nothing,
 			readonly = False,
+			globallyAvailable = True,
 			remotetype = remote
 		}
 

Remote/Web.hs

@@ -54,6 +54,7 @@ gen r _ _ gc =
 		localpath = Nothing,
 		repo = r,
 		readonly = True,
+		globallyAvailable = True,
 		remotetype = remote
 	}
 

Remote/WebDAV.hs

@@ -69,6 +69,7 @@ gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
 			gitconfig = gc,
 			localpath = Nothing,
 			readonly = False,
+			globallyAvailable = True,
 			remotetype = remote
 		}