diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-15 16:44:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-15 17:06:10 -0400 |
| commit | e1baf48d8853a5015009fe822a125192bb952222 (patch) | |
| tree | 78b9b51d5b8f0ebc7b4ec05e7bd955ffc608db77 /Annex/CatFile.hs | |
| parent | 87fb9c690e776852e8dc3fa2ba53a3e267f203d8 (diff) | |
add catFileIndex
Diffstat (limited to 'Annex/CatFile.hs')
| -rw-r--r-- | Annex/CatFile.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Annex/CatFile.hs b/Annex/CatFile.hs index 88c498d31..b22a090e8 100644 --- a/Annex/CatFile.hs +++ b/Annex/CatFile.hs @@ -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 |