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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-12-31 02:15:13 -04:00
parent f2b584ad74
commit 0396f9c795
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Sync.hs
View file

@ -140,9 +140,7 @@ mergeRemote remote branch = all id <$> mapM go [branch, syncBranch branch]
pushRemote :: Remote.Remote Annex -> Git.Ref -> CommandStart pushRemote :: Remote.Remote Annex -> Git.Ref -> CommandStart
pushRemote remote branch = go =<< needpush pushRemote remote branch = go =<< needpush
where where
needpush = (||) needpush = anyM newer [syncbranch, Annex.Branch.name]
<$> newer syncbranch
<*> newer Annex.Branch.name
newer b = do newer b = do
let r = remotebranch b let r = remotebranch b
e <- inRepo (Git.Ref.exists r) e <- inRepo (Git.Ref.exists r)