let server
    ?ui ?engine
    ?(authorized_tokens=[]) ?(return_error_messages=false)
    ?command_pipe ?(daemon=false) ?log_path listen_to =
  let server_engine = Option.value engine ~default:default_engine in
  let server_ui = Option.value ui ~default:default_ui in
  (`Server {server_engine; authorized_tokens; listen_to; server_ui;
            return_error_messages; command_pipe; daemon; log_path; })