diff options
| -rw-r--r-- | Command/Sync.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 01c8f22de..cd8ac389d 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -92,13 +92,9 @@ mergeLocal branch = go =<< needmerge next $ next $ mergeFrom syncbranch pushLocal :: Git.Ref -> CommandStart -pushLocal branch = go =<< inRepo (Git.Ref.exists syncbranch) - where - syncbranch = syncBranch branch - go False = stop - go True = do - updateBranch syncbranch - stop +pushLocal branch = do + updateBranch $ syncBranch branch + stop updateBranch :: Git.Ref -> Annex () updateBranch syncbranch = |