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.
This commit is contained in:
parent
0b63ee6cd5
commit
ca45cea113
2 changed files with 0 additions and 11 deletions
|
@ -7,7 +7,6 @@
|
||||||
|
|
||||||
module Annex.CatFile (
|
module Annex.CatFile (
|
||||||
catFile,
|
catFile,
|
||||||
catFileIndex,
|
|
||||||
catObject,
|
catObject,
|
||||||
catObjectDetails,
|
catObjectDetails,
|
||||||
catFileHandle
|
catFileHandle
|
||||||
|
@ -26,11 +25,6 @@ catFile branch file = do
|
||||||
h <- catFileHandle
|
h <- catFileHandle
|
||||||
liftIO $ Git.CatFile.catFile h branch file
|
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 :: Git.Ref -> Annex L.ByteString
|
||||||
catObject ref = do
|
catObject ref = do
|
||||||
h <- catFileHandle
|
h <- catFileHandle
|
||||||
|
|
|
@ -10,7 +10,6 @@ module Git.CatFile (
|
||||||
catFileStart,
|
catFileStart,
|
||||||
catFileStop,
|
catFileStop,
|
||||||
catFile,
|
catFile,
|
||||||
catFileIndex,
|
|
||||||
catObject,
|
catObject,
|
||||||
catObjectDetails,
|
catObjectDetails,
|
||||||
) where
|
) where
|
||||||
|
@ -41,10 +40,6 @@ catFileStop = CoProcess.stop
|
||||||
catFile :: CatFileHandle -> Branch -> FilePath -> IO L.ByteString
|
catFile :: CatFileHandle -> Branch -> FilePath -> IO L.ByteString
|
||||||
catFile h branch file = catObject h $ Ref $ show branch ++ ":" ++ file
|
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.
|
{- Uses a running git cat-file read the content of an object.
|
||||||
- Objects that do not exist will have "" returned. -}
|
- Objects that do not exist will have "" returned. -}
|
||||||
catObject :: CatFileHandle -> Ref -> IO L.ByteString
|
catObject :: CatFileHandle -> Ref -> IO L.ByteString
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue