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

refactor

Browse source
This commit is contained in:
Joey Hess 2011-12-30 18:37:55 -04:00
parent 52104dae6f
commit 14d16b77b3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Sync.hs
View file

@ -47,9 +47,9 @@ syncRemotes _ rs = mapM Remote.byName rs
defaultSyncRemotes :: Git.Ref -> Annex [Remote.Remote Annex] defaultSyncRemotes :: Git.Ref -> Annex [Remote.Remote Annex]
defaultSyncRemotes syncbranch = mapM Remote.byName =<< defaultSyncRemotes syncbranch = mapM Remote.byName =<<
map getRemoteName . filter isRemote . map (show . snd) <$> map getRemoteName . filter isRemote . map (show . snd) <$> siblings
inRepo (Git.Ref.matching $ Git.Ref.base syncbranch)
where where
siblings = inRepo (Git.Ref.matching $ Git.Ref.base syncbranch)
getRemoteName = fst . separate (== '/') . snd . separate (== '/') . snd . separate (== '/') getRemoteName = fst . separate (== '/') . snd . separate (== '/') . snd . separate (== '/')
isRemote r = "refs/remotes/" `isPrefixOf` r isRemote r = "refs/remotes/" `isPrefixOf` r