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; })