Remotes can now be made read-only, by setting remote.<name>.annex-readonly

This commit is contained in:
Joey Hess 2014-01-02 13:12:32 -04:00
parent 7d5568485f
commit f7727d2df1
7 changed files with 45 additions and 3 deletions

View file

@ -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