diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:50:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:51:29 -0400 |
| commit | 131e38a3ae3d40fb38738e78df6fed4e4a1e6005 (patch) | |
| tree | 75eee1170dea7d69d24984bbc0d167fcfe9d3a95 /CmdLine | |
| parent | 1646987bd266477e97c46dd79145db5cc06230c2 (diff) | |
wait for git lstree to exit
Diffstat (limited to 'CmdLine')
| -rw-r--r-- | CmdLine/Seek.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |