_ -> return Nothing
#endif
-cleanupRunningProcess :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO ()
-cleanupRunningProcess p@(_, _, _, ph) =
- getProcessExitCode ph >>= maybe (cleanupProcess p) (const $ return ())
-
cleanupProcess
:: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO ()
return ()
where ignoreSigPipe = ignoreIOError ResourceVanished ePIPE
- ignorePermDenied = ignoreIOError PermissionDenied ePERM
+ ignorePermDenied = ignoreIOError PermissionDenied eACCES
ignoreIOError :: IOErrorType -> Errno -> IO () -> IO ()
ignoreIOError ioErrorType errno =