diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-04 18:04:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-04 18:04:09 -0400 |
| commit | cedb6dc503441bfe54881ec646d86dd777635e7d (patch) | |
| tree | 7643d8ca5248b750b99b7c6aeaea4205137127fc /Command/Unused.hs | |
| parent | 929f2a0df8f76caa21f94ea3afe8afc1d2dba14e (diff) | |
make a pipeReadStrict, that properly waits on the process
Nearly everything that's reading from git is operating on a small
amount of output and has been switched to use that. Only pipeNullSplit
stuff continues using the lazy version that yields zombies.
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 91b21afa5..6fb8f36c6 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -251,7 +251,7 @@ withKeysReferencedInGit a = do rs <- relevantrefs <$> showref forM_ rs (withKeysReferencedInGitRef a) where - showref = inRepo $ Git.Command.pipeRead [Param "show-ref"] + showref = inRepo $ Git.Command.pipeReadStrict [Param "show-ref"] relevantrefs = map (Git.Ref . snd) . nubBy uniqref . filter ourbranches . |