diff options
| author | Richard Hartmann <richih@debian.org> | 2015-12-16 07:23:53 +0100 |
|---|---|---|
| committer | Richard Hartmann <richih@debian.org> | 2015-12-16 07:23:53 +0100 |
| commit | 53679fdc47d9470c2540fbe38d5de38c91c3bb01 (patch) | |
| tree | e3151adb4d04e905dbb930b67cdb959fac5ea513 /Git/Ref.hs | |
| parent | c94e89d797b15833875ebeb6adcaa6e130315f8e (diff) | |
| parent | 259c511a17669d043a573344e59eae9e9956265c (diff) | |
| download | git-repair-53679fdc47d9470c2540fbe38d5de38c91c3bb01.tar.gz | |
Merge tag '1.20151215' into debian
tagging package git-repair version 1.20151215
Diffstat (limited to 'Git/Ref.hs')
| -rw-r--r-- | Git/Ref.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1,6 +1,6 @@ {- git ref stuff - - - Copyright 2011-2013 Joey Hess <joey@kitenet.net> + - Copyright 2011-2013 Joey Hess <id@joeyh.name> - - Licensed under the GNU GPL version 3 or higher. -} @@ -88,6 +88,9 @@ sha branch repo = process <$> showref repo process [] = Nothing process s = Just $ Ref $ firstLine s +headSha :: Repo -> IO (Maybe Sha) +headSha = sha headRef + {- List of (shas, branches) matching a given ref or refs. -} matching :: [Ref] -> Repo -> IO [(Sha, Branch)] matching refs repo = matching' (map fromRef refs) repo |