diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-30 18:37:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-30 18:37:55 -0400 |
| commit | 14d16b77b325c6e1c6ee0aea3dbf7b21f288165c (patch) | |
| tree | 237a406025221343be06a219647cb0e7848ce593 | |
| parent | 52104dae6f5175f01395a657fd40423d1196604a (diff) | |
refactor
| -rw-r--r-- | Command/Sync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index e5f23e63e..097973848 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -47,9 +47,9 @@ syncRemotes _ rs = mapM Remote.byName rs defaultSyncRemotes :: Git.Ref -> Annex [Remote.Remote Annex] defaultSyncRemotes syncbranch = mapM Remote.byName =<< - map getRemoteName . filter isRemote . map (show . snd) <$> - inRepo (Git.Ref.matching $ Git.Ref.base syncbranch) + map getRemoteName . filter isRemote . map (show . snd) <$> siblings where + siblings = inRepo (Git.Ref.matching $ Git.Ref.base syncbranch) getRemoteName = fst . separate (== '/') . snd . separate (== '/') . snd . separate (== '/') isRemote r = "refs/remotes/" `isPrefixOf` r |