diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Bup.hs | 1 | ||||
| -rw-r--r-- | Remote/Directory.hs | 1 | ||||
| -rw-r--r-- | Remote/Git.hs | 1 | ||||
| -rw-r--r-- | Remote/Hook.hs | 1 | ||||
| -rw-r--r-- | Remote/Rsync.hs | 1 | ||||
| -rw-r--r-- | Remote/S3.hs | 1 | ||||
| -rw-r--r-- | Remote/Web.hs | 1 |
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 } |