notProcess :: ShellProcess -> ShellProcess
notProcess = withShellProcess $ \sp ->
             do ec <- sp
                case ec of
                  ExitSuccess -> return $ ExitFailure 1
                  ExitFailure _ -> return $ ExitSuccess
notProcess :: ShellProcess -> ShellProcess
notProcess = withShellProcess $ \sp ->
             do ec <- sp
                case ec of
                  ExitSuccess -> return $ ExitFailure 1
                  ExitFailure _ -> return $ ExitSuccess
notProcess = withShellProcess $ \sp ->
             do ec <- sp
                case ec of
                  ExitSuccess -> return $ ExitFailure 1
                  ExitFailure _ -> return $ ExitSuccess