diff options
author | Joey Hess <joey@kitenet.net> | 2012-02-14 11:20:30 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-02-14 11:20:34 -0400 |
commit | a40ec5e03e980b7337bf01eca1661a088ee476c2 (patch) | |
tree | 679e1122b6378e2d3f0a64362be3d504ef387c89 /Git | |
parent | 82ae30d82099782708abd8e3a6fe27abbde04e71 (diff) |
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.
Diffstat (limited to 'Git')
-rw-r--r-- | Git/HashObject.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/HashObject.hs b/Git/HashObject.hs index 9c99dae26..ac74f0257 100644 --- a/Git/HashObject.hs +++ b/Git/HashObject.hs @@ -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 |