avoid closing pipe before all the shas are read from it

Could have just used hGetContentsStrict here, but that would require
storing all the shas in memory. Since this is called at the end of a
git-annex run, it may have created a *lot* of shas, so I avoid that memory
use and stream them out like before.

1 files changed, 2 insertions, 1 deletions

diff --git a/Annex/Branch.hs b/Annex/Branch.hs
index 556df976f..f9fa6cbb3 100644
--- a/Annex/Branch.hs
+++ b/Annex/Branch.hs
@@ -291,9 +291,10 @@ stageJournal = do
 	withIndex $ liftIO $ do
 		let dir = gitAnnexJournalDir g
 		let paths = map (dir </>) fs
-		shas <- Git.HashObject.hashFiles paths g
+		(shas, cleanup) <- Git.HashObject.hashFiles paths g
 		Git.UnionMerge.update_index g $
 			index_lines shas (map fileJournal fs)
+		cleanup
 		mapM_ removeFile paths
 	where
 		index_lines shas = map genline . zip shas