let run_shell_command ?timeout ?with_shell t cmd =
  get_shell_command_output ?timeout ?with_shell t cmd
  >>= fun (_, _) ->
  return ()