7ebd98d8d8
The list of files had to be retained until the end so it could be deleted. Also, a list of update-index lines was generated and only then fed into it. Now everything streams in constant space.
42 lines
948 B
Haskell
42 lines
948 B
Haskell
{- git hash-object interface
|
|
-
|
|
- Copyright 2011-2012 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Git.HashObject where
|
|
|
|
import Common
|
|
import Git
|
|
import Git.Command
|
|
|
|
type HashObjectHandle = (PipeHandle, Handle, Handle)
|
|
|
|
{- Starts git hash-object and returns a handle. -}
|
|
hashObjectStart :: Repo -> IO HashObjectHandle
|
|
hashObjectStart repo = do
|
|
r@(_, _, toh) <- hPipeBoth "git" $
|
|
toCommand $ gitCommandLine params repo
|
|
fileEncoding toh
|
|
return r
|
|
where
|
|
params =
|
|
[ Param "hash-object"
|
|
, Param "-w"
|
|
, Param "--stdin-paths"
|
|
]
|
|
|
|
{- Stops git hash-object. -}
|
|
hashObjectStop :: HashObjectHandle -> IO ()
|
|
hashObjectStop (pid, from, to) = do
|
|
hClose to
|
|
hClose from
|
|
forceSuccess pid
|
|
|
|
{- Injects a file into git, returning the shas of the objects. -}
|
|
hashFile :: HashObjectHandle -> FilePath -> IO Sha
|
|
hashFile (_, from, to) file = do
|
|
hPutStrLn to file
|
|
hFlush to
|
|
Ref <$> hGetLine from
|