runWithArgs :: String -> [String] -> Shell ExitCode
runWithArgs cmd args = do exe <- withChangeCodeHandler 127 $ findExecutable cmd
                          runInShell exe args
runWithArgs :: String -> [String] -> Shell ExitCode
runWithArgs cmd args = do exe <- withChangeCodeHandler 127 $ findExecutable cmd
                          runInShell exe args
runWithArgs cmd args = do exe <- withChangeCodeHandler 127 $ findExecutable cmd
                          runInShell exe args