add support for readonly remotes

Currently only the web special remote is readonly, but it'd be possible to
also have readonly drives, or other remotes. These are handled in the
assistant by only downloading from them, and never trying to upload to
them.

7 files changed, 7 insertions, 0 deletions

diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index 3dfedfec6..e3ba7fe9b 100644
--- a/Remote/Bup.hs
+++ b/Remote/Bup.hs
@@ -64,6 +64,7 @@ gen r u c = do
 				then Just buprepo
 				else Nothing
 			, remotetype = remote
+			, readonly = False
 			}
 
 bupSetup :: UUID -> RemoteConfig -> Annex RemoteConfig
diff --git a/Remote/Directory.hs b/Remote/Directory.hs
index 2e7d8c6ad..0ec564ca1 100644
--- a/Remote/Directory.hs
+++ b/Remote/Directory.hs
@@ -54,6 +54,7 @@ gen r u c = do
 			config = Nothing,
 			repo = r,
 			localpath = Just dir,
+			readonly = False,
 			remotetype = remote
 		}
 	where
diff --git a/Remote/Git.hs b/Remote/Git.hs
index 9f81c689d..a9e3c3c9f 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -98,6 +98,7 @@ gen r u _ = new <$> remoteCost r defcst
 				then Just $ Git.repoPath r
 				else Nothing
 			, repo = r
+			, readonly = False
 			, remotetype = remote
 			}
 		
diff --git a/Remote/Hook.hs b/Remote/Hook.hs
index 5bd091efa..c73a8deb8 100644
--- a/Remote/Hook.hs
+++ b/Remote/Hook.hs
@@ -50,6 +50,7 @@ gen r u c = do
 			config = Nothing,
 			localpath = Nothing,
 			repo = r,
+			readonly = False,
 			remotetype = remote
 		}
 
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs
index 86e9771f9..ff3b473fa 100644
--- a/Remote/Rsync.hs
+++ b/Remote/Rsync.hs
@@ -61,6 +61,7 @@ gen r u c = do
 			, localpath = if rsyncUrlIsPath $ rsyncUrl o
 				then Just $ rsyncUrl o
 				else Nothing
+			, readonly = False
 			, remotetype = remote
 			}
 
diff --git a/Remote/S3.hs b/Remote/S3.hs
index d1e592b0d..4efdb3071 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -61,6 +61,7 @@ gen' r u c cst =
 			config = c,
 			repo = r,
 			localpath = Nothing,
+			readonly = False,
 			remotetype = remote
 		}
 
diff --git a/Remote/Web.hs b/Remote/Web.hs
index 54b93c1fe..2001e6ce8 100644
--- a/Remote/Web.hs
+++ b/Remote/Web.hs
@@ -49,6 +49,7 @@ gen r _ _ =
 		config = Nothing,
 		localpath = Nothing,
 		repo = r,
+		readonly = True,
 		remotetype = remote
 	}