rename new config method

This commit is contained in:
Simon Cruanes 2021-04-07 15:45:09 -04:00
parent 9d0b257cea
commit 28fc622cbe

View file

@ -86,7 +86,7 @@ module Make(IO : IO) = struct
TextDocumentSyncOptions.create TextDocumentSyncOptions.create
~change:TextDocumentSyncKind.Incremental ~willSave:false () ~change:TextDocumentSyncKind.Incremental ~willSave:false ()
method config_code_lens_provider : CodeLensOptions.t option = None method config_code_lens_options : CodeLensOptions.t option = None
(** @since NEXT_RELEASE *) (** @since NEXT_RELEASE *)
method config_code_action_provider : [`CodeActionOptions of CodeActionOptions.t | `Bool of bool] = `Bool false method config_code_action_provider : [`CodeActionOptions of CodeActionOptions.t | `Bool of bool] = `Bool false
@ -101,7 +101,7 @@ module Make(IO : IO) = struct
let sync_opts = self#config_sync_opts in let sync_opts = self#config_sync_opts in
let capabilities = let capabilities =
ServerCapabilities.create ServerCapabilities.create
?codeLensProvider:self#config_code_lens_provider ?codeLensProvider:self#config_code_lens_options
~codeActionProvider:self#config_code_action_provider ~codeActionProvider:self#config_code_action_provider
~textDocumentSync:(`TextDocumentSyncOptions sync_opts) () ~textDocumentSync:(`TextDocumentSyncOptions sync_opts) ()
|> self#config_modify_capabilities |> self#config_modify_capabilities