diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-14 15:30:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-14 15:43:13 -0400 |
| commit | 02f1bd2bf47d3ff49a222e9428ec27708ef55f64 (patch) | |
| tree | 456548530c65850a829a1a85609070bc111de1b9 /Git/Ref.hs | |
| parent | 2b24e16a633575703a43e1fb991f34b290a1d7e4 (diff) | |
split more stuff out of Git.hs
Diffstat (limited to 'Git/Ref.hs')
| -rw-r--r-- | Git/Ref.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Git/Ref.hs b/Git/Ref.hs index 723bea681..3b550cf5b 100644 --- a/Git/Ref.hs +++ b/Git/Ref.hs @@ -37,11 +37,11 @@ sha branch repo = process . L.unpack <$> showref repo {- List of (refs, branches) matching a given ref spec. - Duplicate refs are filtered out. -} -matching :: Ref -> Repo -> IO [(Git.Ref, Git.Branch)] +matching :: Ref -> Repo -> IO [(Ref, Branch)] matching ref repo = do - r <- Git.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) where - gen l = (Git.Ref $ head l, Git.Ref $ last l) + gen l = (Ref $ head l, Ref $ last l) uref (a, _) (b, _) = a == b |