fix last zombies in the assistant
Made Git.LsFiles return cleanup actions, and everything waits on processes now, except of course for Seek.
This commit is contained in:
parent
f7f1d25df8
commit
47314c0fad
13 changed files with 59 additions and 39 deletions
|
@ -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.
|
||||
-
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue