summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-02 13:12:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-02 13:12:32 -0400
commit434a8098037574ddd83e09bbf82a9d5b27181b8e (patch)
tree978ab0f48be492e06939e168cbc2392c4ae91b92 /Assistant
parent94043b612888a0555f630669c6391cb75842b6ea (diff)
Remotes can now be made read-only, by setting remote.<name>.annex-readonly
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Sync.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index f7656f52d..adbe41350 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -123,7 +123,8 @@ reconnectRemotes notifypushes rs = void $ do
pushToRemotes :: Bool -> [Remote] -> Assistant [Remote]
pushToRemotes notifypushes remotes = do
now <- liftIO getCurrentTime
- syncAction remotes (pushToRemotes' now notifypushes)
+ let remotes' = filter (not . remoteAnnexReadOnly . Remote.gitconfig) remotes
+ syncAction remotes' (pushToRemotes' now notifypushes)
pushToRemotes' :: UTCTime -> Bool -> [Remote] -> Assistant [Remote]
pushToRemotes' now notifypushes remotes = do
(g, branch, u) <- liftAnnex $ do