update extension commands

Author: PizieDust

src/command_api.ml

@@ -150,6 +150,10 @@ module Internal = struct
   let augment_selection_type_verbosity = unit_handle "augment-selection-type-verbosity"
   let install_dune_lsp = unit_handle "install-dune-lsp"
   let run_dune_pkg_lock = unit_handle "run_dune_pkg_lock"
+  let install_opam = unit_handle "install-opam"
+  let init_opam = unit_handle "init-opam"
+  let install_ocaml_dev = unit_handle "install-ocaml-dev"
+  let open_utop = unit_handle "open-utop"
 end
 
 module Vscode = struct

src/command_api.mli

@@ -51,6 +51,10 @@ module Internal : sig
   val augment_selection_type_verbosity : (unit, unit) handle
   val install_dune_lsp : (unit, unit) handle
   val run_dune_pkg_lock : (unit, unit) handle
+  val install_opam : (unit, unit) handle
+  val init_opam : (unit, unit) handle
+  val install_ocaml_dev : (unit, unit) handle
+  val open_utop : (unit, unit) handle
 end
 
 module Vscode : sig

src/extension_commands.ml

@@ -248,7 +248,7 @@ let _switch_impl_intf =
 ;;
 
 let _install_opam =
-  let handler (instance : Extension_instance.t) ~args:_ =
+  let callback (instance : Extension_instance.t) () =
     let process_installation () =
       let open Promise.Syntax in
       let* opam = Opam.make () in
@@ -302,11 +302,11 @@ let _install_opam =
     let (_ : unit Promise.t) = process_installation () in
     ()
   in
-  command Extension_consts.Commands.install_opam handler
+  command Command_api.Internal.install_opam callback
 ;;
 
 let _init_opam =
-  let handler (instance : Extension_instance.t) ~args:_ =
+  let callback (instance : Extension_instance.t) () =
     let options =
       ProgressOptions.create
         ~location:(`ProgressLocation Notification)
@@ -339,11 +339,11 @@ let _init_opam =
     let _ = Vscode.Window.withProgress (module Ojs) ~options ~task in
     ()
   in
-  command Extension_consts.Commands.init_opam handler
+  command Command_api.Internal.init_opam callback
 ;;
 
 let _install_ocaml_dev =
-  let handler (instance : Extension_instance.t) ~args:_ =
+  let callback (instance : Extension_instance.t) () =
     let options =
       ProgressOptions.create
         ~location:(`ProgressLocation Notification)
@@ -378,11 +378,11 @@ let _install_ocaml_dev =
     let _ = Vscode.Window.withProgress (module Ojs) ~options ~task in
     ()
   in
-  command Extension_consts.Commands.install_ocaml_dev handler
+  command Command_api.Internal.install_ocaml_dev callback
 ;;
 
 let _open_utop =
-  let handler (instance : Extension_instance.t) ~args:_ =
+  let callback (instance : Extension_instance.t) () =
     let options =
       ProgressOptions.create
         ~location:(`ProgressLocation Notification)
@@ -415,7 +415,7 @@ let _open_utop =
     let _ = Vscode.Window.withProgress (module Ojs) ~options ~task in
     ()
   in
-  command Extension_consts.Commands.open_utop handler
+  command Command_api.Internal.open_utop callback
 ;;
 
 let _open_current_dune_file =