assistant: The ConfigMonitor left one zombie behind each time it checked for changes, now fixed.

This commit is contained in:
Joey Hess 2013-03-18 22:09:51 -04:00
parent b543842a7f
commit a5dded0401
4 changed files with 19 additions and 5 deletions

View file

@ -29,15 +29,17 @@ data TreeItem = TreeItem
, file :: FilePath
} deriving Show
{- Lists the complete contents of a tree. -}
{- Lists the complete contents of a tree, with lazy output. -}
lsTree :: Ref -> Repo -> IO [TreeItem]
lsTree t repo = map parseLsTree <$>
pipeNullSplitZombie [Params "ls-tree --full-tree -z -r --", File $ show t] repo
lsTree t repo = map parseLsTree <$> pipeNullSplitZombie ps repo
where
ps = [Params "ls-tree --full-tree -z -r --", File $ show t]
{- Lists specified files in a tree. -}
lsTreeFiles :: Ref -> [FilePath] -> Repo -> IO [TreeItem]
lsTreeFiles t fs repo = map parseLsTree <$>
pipeNullSplitZombie ([Params "ls-tree -z --", File $ show t] ++ map File fs) repo
lsTreeFiles t fs repo = map parseLsTree <$> pipeNullSplitStrict ps repo
where
ps = [Params "ls-tree -z --", File $ show t] ++ map File fs
{- Parses a line of ls-tree output.
- (The --long format is not currently supported.) -}