diff options
Diffstat (limited to 'Git/Ref.hs')
| -rw-r--r-- | Git/Ref.hs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/Git/Ref.hs b/Git/Ref.hs index d6e31897c..954b61a2e 100644 --- a/Git/Ref.hs +++ b/Git/Ref.hs @@ -59,8 +59,16 @@ sha branch repo = process <$> showref repo {- List of (shas, branches) matching a given ref or refs. -} matching :: [Ref] -> Repo -> IO [(Sha, Branch)] -matching refs repo = map gen . lines <$> - pipeReadStrict (Param "show-ref" : map (Param . show) refs) repo +matching refs repo = matching' (map show refs) repo + +{- Includes HEAD in the output, if asked for it. -} +matchingWithHEAD :: [Ref] -> Repo -> IO [(Sha, Branch)] +matchingWithHEAD refs repo = matching' ("--head" : map show refs) repo + +{- List of (shas, branches) matching a given ref or refs. -} +matching' :: [String] -> Repo -> IO [(Sha, Branch)] +matching' ps repo = map gen . lines <$> + pipeReadStrict (Param "show-ref" : map Param ps) repo where gen l = let (r, b) = separate (== ' ') l in (Ref r, Ref b) |