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

better name for fallback sync refs

Browse source 
Don't expose these as branches in refs/heads/. Instead hide them away in
refs/synced/ where only show-ref will find them.

Make unused only look at branches and tags, not these other things,
so it won't care if some stale sync ref used to use a file.

This means they don't need to be deleted, which could have
led to an incoming sync being missed.
This commit is contained in:
Joey Hess 2012-09-16 23:09:08 -04:00
parent 2081a31fda
commit ba744c84a4
4 changed files with 15 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Git/Ref.hs
View file

@ -49,9 +49,8 @@ sha branch repo = process <$> showref repo
{- List of (refs, branches) matching a given ref spec. -}
matching :: Ref -> Repo -> IO [(Ref, Branch)]
matching ref repo = do
r <- pipeRead [Param "show-ref", Param $ show ref] repo
return $ map gen (lines r)
matching ref repo = map gen . lines <$>
pipeRead [Param "show-ref", Param $ show ref] repo
where
gen l = let (r, b) = separate (== ' ') l in
(Ref r, Ref b)