getProcessExitCode ph >>= maybe (cleanupProcess p) (const $ return ())
cleanupProcess :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO ()
getProcessExitCode ph >>= maybe (cleanupProcess p) (const $ return ())
cleanupProcess :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO ()