-- |Simply run a 'Command'.
runCommand :: OnErr -> Command -> Shell ExitCode
runCommand _ (Asynchronous list) = do runAsync $ withExitHandler $
                                               runList IgnoreE list
                                      return ExitSuccess
runCommand :: OnErr -> Command -> Shell ExitCode
runCommand _ (Asynchronous list) = do runAsync $ withExitHandler $
                                               runList IgnoreE list
                                      return ExitSuccess
runCommand _ (Asynchronous list) = do runAsync $ withExitHandler $
                                               runList IgnoreE list
                                      return ExitSuccess