diff options
| author | Joey Hess <joeyh@debian.org> | 2013-12-03 15:02:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@debian.org> | 2013-12-03 15:02:21 -0400 |
| commit | a4f3e112954e1b785c84c339bcbd83597a89335e (patch) | |
| tree | eb2a975663782f83e6b20d6d239447d7222de81b /Git/RefLog.hs | |
| download | git-repair-a4f3e112954e1b785c84c339bcbd83597a89335e.tar.gz | |
git-repair (1.20131203) unstable; urgency=low
* Fix build deps. Closes: #731179
# imported from the archive
Diffstat (limited to 'Git/RefLog.hs')
| -rw-r--r-- | Git/RefLog.hs | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/Git/RefLog.hs b/Git/RefLog.hs new file mode 100644 index 0000000..3f41e8e --- /dev/null +++ b/Git/RefLog.hs @@ -0,0 +1,22 @@ +{- git reflog interface + - + - Copyright 2013 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Git.RefLog where + +import Common +import Git +import Git.Command +import Git.Sha + +{- Gets the reflog for a given branch. -} +get :: Branch -> Repo -> IO [Sha] +get b = mapMaybe extractSha . lines <$$> pipeReadStrict + [ Param "log" + , Param "-g" + , Param "--format=%H" + , Param (show b) + ] |