summaryrefslogtreecommitdiff
path: root/Git/HashObject.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-02-14 11:20:30 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-02-14 11:20:34 -0400
commita40ec5e03e980b7337bf01eca1661a088ee476c2 (patch)
tree679e1122b6378e2d3f0a64362be3d504ef387c89 /Git/HashObject.hs
parent82ae30d82099782708abd8e3a6fe27abbde04e71 (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/HashObject.hs')
-rw-r--r--Git/HashObject.hs2
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