Repository navigation
SIGINT ignored after a failed callProcess #15
Description
On Linux, the following program does not exit on SIGINT. If "does-not-exist" is replaced with a program that does exist (e.g. "echo") then it continues to respond to SIGINT.
import Control.Concurrent
import Control.Exception
import Control.Monad
import System.IO
import System.Process
ignoreIOException :: IOException -> IO ()
ignoreIOException _ = return ()
main = do
_ <- forkIO $ callProcess "does-not-exist" [] `catch` ignoreIOException
_ <- getLine
return ()
Unlike with #14 (which may well be related - it's a similar test case) I am at a loss as to what the fix might be!
Activity
dcoutts commentedon Jan 10, 2015
Good catch. I've got a fix.
If create process fails, reset ctl-C delegation
Bump version to 1.2.2.0 and update changelog
hvr commentedon Jan 15, 2015
Please re-open if this isn't fixed by #16
DaveCTurner commentedon Jan 15, 2015
Just to confirm, it's fixed by #16.
Thanks,