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

avoid partial function, and parse git-ref output better

Browse source 
It's possible that a ref name might contain a space, this properly
preserves the space.
This commit is contained in:
Joey Hess 2011-12-15 16:58:04 -04:00
parent eb132a854e
commit fbc3d32f7d
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Git/Ref.hs
View file

@ -41,8 +41,8 @@ sha branch repo = process . L.unpack <$> showref repo
matching :: Ref -> Repo -> IO [(Ref, Branch)] matching :: Ref -> Repo -> IO [(Ref, Branch)]
matching ref repo = do matching ref repo = do
r <- pipeRead [Param "show-ref", Param $ show ref] repo r <- pipeRead [Param "show-ref", Param $ show ref] repo
return $ nubBy uref $ map (gen . words . L.unpack) (L.lines r) return $ nubBy uniqref $ map (gen . L.unpack) (L.lines r)
where where
gen l = (Ref $ head l, Ref $ last l) uniqref (a, _) (b, _) = a == b
uref (a, _) (b, _) = a == b gen l = let (r, b) = separate (== ' ') l in
(Ref r, Ref b)