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:36:40 -04:00
parent 56488e807b
commit 52104dae6f
3 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Command/Sync.hs
View file

@ -46,18 +46,12 @@ syncRemotes branch [] = defaultSyncRemotes branch
syncRemotes _ rs = mapM Remote.byName rs
defaultSyncRemotes :: Git.Ref -> Annex [Remote.Remote Annex]
defaultSyncRemotes syncbranch = mapM Remote.byName
=<< process . L.unpack <$> inRepo showref
defaultSyncRemotes syncbranch = mapM Remote.byName =<<
map getRemoteName . filter isRemote . map (show . snd) <$>
inRepo (Git.Ref.matching $ Git.Ref.base syncbranch)
where
showref = Git.Command.pipeRead
[ Param "show-ref"
, Param $ show $ Git.Ref.base syncbranch
]
process = map getRemoteName . filter isRemote .
map getBranchName . lines
isRemote r = "refs/remotes/" `isPrefixOf` r
getBranchName = snd . separate (== ' ')
getRemoteName = fst . separate (== '/') . snd . separate (== '/') . snd . separate (== '/')
isRemote r = "refs/remotes/" `isPrefixOf` r
commit :: CommandStart
commit = do