diff options
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index ccc359672..c2c81c57d 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -133,15 +133,15 @@ pushToRemotes now notifypushes remotes = do , Param $ refspec Annex.Branch.name , Param $ refspec branch ] g - where - {- Push to refs/synced/uuid/branch; this - - avoids cluttering up the branch display. -} - refspec b = concat - [ s - , ":" - , "refs/synced/" ++ fromUUID u ++ "/" ++ s - ] - where s = show $ Git.Ref.base b + where + {- Push to refs/synced/uuid/branch; this + - avoids cluttering up the branch display. -} + refspec b = concat + [ s + , ":" + , "refs/synced/" ++ fromUUID u ++ "/" ++ s + ] + where s = show $ Git.Ref.base b {- Manually pull from remotes and merge their branches. -} manualPull :: Maybe Git.Ref -> [Remote] -> Assistant ([Bool], Bool) |