let client ?(ui=default_ui) ~token connection =
  (`Client {client_ui = ui; connection; token})