remove now-unnecessary manual reaps
This commit is contained in:
parent
5594bf0643
commit
de3ea4adb6
4 changed files with 7 additions and 3 deletions
|
@ -93,7 +93,11 @@ pipeNullSplit params repo = do
|
|||
pipeNullSplitZombie :: [CommandParam] -> Repo -> IO [String]
|
||||
pipeNullSplitZombie params repo = fst <$> pipeNullSplit params repo
|
||||
|
||||
{- Reaps any zombie git processes. -}
|
||||
{- Reaps any zombie git processes.
|
||||
-
|
||||
- Warning: Not thread safe. Anything that was expecting to wait
|
||||
- on a process and get back an exit status is going to be confused
|
||||
- if this reap gets there first. -}
|
||||
reap :: IO ()
|
||||
reap = do
|
||||
-- throws an exception when there are no child processes
|
||||
|
|
|
@ -39,7 +39,6 @@ hashFile h file = CoProcess.query h send receive
|
|||
hashObject :: ObjectType -> String -> Repo -> IO Sha
|
||||
hashObject objtype content repo = getSha subcmd $ do
|
||||
s <- pipeWriteRead (map Param params) content repo
|
||||
reap -- XXX unsure why this is needed, of if it is anymore
|
||||
return s
|
||||
where
|
||||
subcmd = "hash-object"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue