yogsototh/haskell-turtle-library
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Terminate processes when process thread dies #103

Browse source
This commit is contained in:
Mitchell Rosen 2015-09-09 15:00:58 -07:00
parent a7e9ad8772
commit de972c8f9b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Turtle/Prelude.hs
View file

@ -360,7 +360,7 @@ system p s = liftIO (do
unless finalized (hClose handle)
return True )
bracket open (\(hIn, _) -> close hIn) (\(hIn, ph) -> do
bracket open (\(hIn, ph) -> close hIn >> Process.terminateProcess ph) (\(hIn, ph) -> do
let feedIn = do
sh (do
txt <- s
@ -394,7 +394,7 @@ systemStrict p s = liftIO (do
unless finalized (hClose handle)
return True )
bracket open (\(hIn, _, _) -> close hIn) (\(hIn, hOut, ph) -> do
bracket open (\(hIn, _, ph) -> close hIn >> Process.terminateProcess ph) (\(hIn, hOut, ph) -> do
let feedIn = do
sh (do
txt <- s
@ -461,7 +461,7 @@ stream p s = do
unless finalized (hClose handle)
return True )
(hIn, hOut, ph) <- using (managed (bracket open (\(hIn, _, _) -> close hIn)))
(hIn, hOut, ph) <- using (managed (bracket open (\(hIn, _, ph) -> close hIn >> Process.terminateProcess ph)))
let feedIn = do
sh (do
txt <- s