diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-02 13:12:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-02 13:12:32 -0400 |
| commit | 434a8098037574ddd83e09bbf82a9d5b27181b8e (patch) | |
| tree | 978ab0f48be492e06939e168cbc2392c4ae91b92 /Assistant/Sync.hs | |
| parent | 94043b612888a0555f630669c6391cb75842b6ea (diff) | |
Remotes can now be made read-only, by setting remote.<name>.annex-readonly
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 3 |
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 |