summaryrefslogtreecommitdiff
path: root/Git
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-15 18:30:53 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-15 18:30:53 -0400
commitca45cea113ae45439a138ab9587c26b6b8de6f2d (patch)
tree42600880a0e7589e5d7b96710610be89dcc1309a /Git
parent0b63ee6cd56f57f172695cd25b7c7ec89281ba7e (diff)
Revert "add catFileIndex"
This interface is not a good idea, because a running git cat-file --batch does not notice when existing files in the index are changed.
Diffstat (limited to 'Git')
-rw-r--r--Git/CatFile.hs5
1 files changed, 0 insertions, 5 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs
index 2bd50592c..cd531e68f 100644
--- a/Git/CatFile.hs
+++ b/Git/CatFile.hs
@@ -10,7 +10,6 @@ module Git.CatFile (
catFileStart,
catFileStop,
catFile,
- catFileIndex,
catObject,
catObjectDetails,
) where
@@ -41,10 +40,6 @@ catFileStop = CoProcess.stop
catFile :: CatFileHandle -> Branch -> FilePath -> IO L.ByteString
catFile h branch file = catObject h $ Ref $ show branch ++ ":" ++ file
-{- Reads a file from the index. -}
-catFileIndex :: CatFileHandle -> FilePath -> IO L.ByteString
-catFileIndex h file = catObject h $ Ref $ ':' : file
-
{- Uses a running git cat-file read the content of an object.
- Objects that do not exist will have "" returned. -}
catObject :: CatFileHandle -> Ref -> IO L.ByteString