diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-04 19:56:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-04 19:56:32 -0400 |
| commit | cd699ff50b8434b52e2f51d06414e8431b407482 (patch) | |
| tree | 77291f6d6f6c340c41f9da5b3bbfeae4117d7764 /Git/Command.hs | |
| parent | bdbfe36e945e97d66c965bc7227d1457372bce32 (diff) | |
fix last zombies in the assistant
Made Git.LsFiles return cleanup actions, and everything waits on
processes now, except of course for Seek.
Diffstat (limited to 'Git/Command.hs')
| -rw-r--r-- | Git/Command.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index 96957c838..0a324ea00 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -89,10 +89,13 @@ pipeNullSplit params repo = do where sep = "\0" -{- Does not wait on the git command when it's done, so produces - - one zombie. -} + pipeNullSplitZombie :: [CommandParam] -> Repo -> IO [String] -pipeNullSplitZombie params repo = fst <$> pipeNullSplit params repo +pipeNullSplitZombie params repo = leaveZombie <$> pipeNullSplit params repo + +{- Doesn't run the cleanup action. A zombie results. -} +leaveZombie :: (a, IO Bool) -> a +leaveZombie = fst {- Reaps any zombie git processes. - |