diff options
| -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 |