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:
Joey Hess 2012-02-14 11:20:30 -04:00
parent 82ae30d820
commit a40ec5e03e
4 changed files with 9 additions and 2 deletions

View file

@ -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