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

add catCommit

Browse source
This commit is contained in:
Joey Hess 2016-02-25 15:34:46 -04:00
parent 3b74dc8be8
commit 04d4830ac3
Failed to extract signature
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Annex/CatFile.hs
View file

@ -10,6 +10,7 @@ module Annex.CatFile (
catFileDetails, catFileDetails,
catObject, catObject,
catTree, catTree,
catCommit,
catObjectDetails, catObjectDetails,
catFileHandle, catFileHandle,
catFileStop, catFileStop,
@ -52,6 +53,11 @@ catTree ref = do
h <- catFileHandle h <- catFileHandle
liftIO $ Git.CatFile.catTree h ref liftIO $ Git.CatFile.catTree h ref
catCommit :: Git.Ref -> Annex (Maybe Commit)
catCommit ref = do
h <- catFileHandle
liftIO $ Git.CatFile.catCommit h ref
catObjectDetails :: Git.Ref -> Annex (Maybe (L.ByteString, Sha, ObjectType)) catObjectDetails :: Git.Ref -> Annex (Maybe (L.ByteString, Sha, ObjectType))
catObjectDetails ref = do catObjectDetails ref = do
h <- catFileHandle h <- catFileHandle