Fixed a memory leak due to excessive strictness when committing journal files.
When hashing the files, the entire list of shas was read strictly. That was entirely unnecessary, since there's a cleanup action run after they're consumed.
This commit is contained in:
parent
82ae30d820
commit
a40ec5e03e
4 changed files with 9 additions and 2 deletions
|
@ -19,7 +19,7 @@ hashFiles paths repo = do
|
|||
fileEncoding toh
|
||||
_ <- forkProcess (feeder toh)
|
||||
hClose toh
|
||||
shas <- map Ref . lines <$> hGetContentsStrict fromh
|
||||
shas <- map Ref . lines <$> hGetContents fromh
|
||||
return (shas, ender fromh pid)
|
||||
where
|
||||
git_hash_object = gitCommandLine
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue