mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

push when git-annex branch changed

Browse source 
I was too heavy-handed in optimising away pushes
This commit is contained in:
Joey Hess 2011-12-30 19:38:46 -04:00
parent 79872e360e
commit a31b7d93c8
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Command/Sync.hs
View file

@ -129,12 +129,16 @@ mergeRemote remote branch = all (== True) <$> mapM go [branch, syncBranch branch
remotebranch = Git.Ref.under $ "refs/remotes/" ++ Remote.name remote
pushRemote :: Remote.Remote Annex -> Git.Ref -> CommandStart
pushRemote remote branch = go =<< newer
pushRemote remote branch = go =<< needpush
where
newer = do
e <- inRepo (Git.Ref.exists syncbranchRemote)
needpush = (||)
<$> newer syncbranch
<*> newer Annex.Branch.name
newer b = do
let r = remotebranch b
e <- inRepo (Git.Ref.exists r)
if e
then inRepo $ Git.Branch.changed syncbranchRemote syncbranch
then inRepo $ Git.Branch.changed r b
else return True
go False = stop
go True = do
@ -148,8 +152,7 @@ pushRemote remote branch = go =<< newer
]
refspec = show (Git.Ref.base branch) ++ ":" ++ show (Git.Ref.base syncbranch)
syncbranch = syncBranch branch
syncbranchRemote = Git.Ref.under
("refs/remotes/" ++ Remote.name remote) syncbranch
remotebranch = Git.Ref.under $ "refs/remotes/" ++ Remote.name remote
currentBranch :: Annex Git.Ref
currentBranch = Git.Ref . firstLine . L.unpack <$>