From 131e38a3ae3d40fb38738e78df6fed4e4a1e6005 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 1 Jan 2016 15:50:59 -0400
Subject: wait for git lstree to exit

---
 CmdLine/Seek.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'CmdLine')

diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs
index e6ee6f3fe..cb7faebac 100644
--- a/CmdLine/Seek.hs
+++ b/CmdLine/Seek.hs
@@ -77,7 +77,7 @@ withFilesInRefs a = mapM_ go
   where
 	go r = do	
 		matcher <- Limit.getMatcher
-		l <- inRepo $ LsTree.lsTree (Git.Ref r)
+		(l, cleanup) <- inRepo $ LsTree.lsTree (Git.Ref r)
 		forM_ l $ \i -> do
 			let f = getTopFilePath $ LsTree.file i
 			v <- catKey (Git.Ref $ LsTree.sha i)
@@ -85,6 +85,7 @@ withFilesInRefs a = mapM_ go
 				Nothing -> noop
 				Just k -> whenM (matcher $ MatchingKey k) $
 					commandAction $ a f k
+		liftIO $ void cleanup
 
 withPathContents :: ((FilePath, FilePath) -> CommandStart) -> CmdParams -> CommandSeek
 withPathContents a params = do
-- 
cgit v1.2.3