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

add catFileIndex

Browse source
This commit is contained in:
Joey Hess 2012-09-15 16:44:27 -04:00
parent 87fb9c690e
commit e1baf48d88
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/CatFile.hs
View file

@ -7,6 +7,7 @@
module Annex.CatFile (
catFile,
catFileIndex,
catObject,
catObjectDetails,
catFileHandle
@ -25,6 +26,11 @@ catFile branch file = do
h <- catFileHandle
liftIO $ Git.CatFile.catFile h branch file
catFileIndex :: FilePath -> Annex L.ByteString
catFileIndex file = do
h <- catFileHandle
liftIO $ Git.CatFile.catFileIndex h file
catObject :: Git.Ref -> Annex L.ByteString
catObject ref = do
h <- catFileHandle