From e1baf48d8853a5015009fe822a125192bb952222 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 15 Sep 2012 16:44:27 -0400
Subject: add catFileIndex

---
 Annex/CatFile.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Annex/CatFile.hs')

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
-- 
cgit v1.2.3