runTranscoder :: Transcoder -> [String] -> IO (ExitCode, String, String)
runTranscoder (Transcoder cmd arg _) args =
  readProcessWithExitCode cmd (arg ++ args) ""
runTranscoder :: Transcoder -> [String] -> IO (ExitCode, String, String)
runTranscoder (Transcoder cmd arg _) args =
  readProcessWithExitCode cmd (arg ++ args) ""
runTranscoder (Transcoder cmd arg _) args =
  readProcessWithExitCode cmd (arg ++ args) ""