diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-15 18:30:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-15 18:30:53 -0400 |
| commit | ca45cea113ae45439a138ab9587c26b6b8de6f2d (patch) | |
| tree | 42600880a0e7589e5d7b96710610be89dcc1309a /Git/CatFile.hs | |
| parent | 0b63ee6cd56f57f172695cd25b7c7ec89281ba7e (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/CatFile.hs')
| -rw-r--r-- | Git/CatFile.hs | 5 |
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 |