Fix switch impl/intf (ocamllabs#561)

ocaml-lang · Mar 11, 2021 · 41ff847 · 41ff847
1 parent 32bc6e2
commit 41ff847
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Change Log
 
+## Unreleased
+
+- Fix switching between implementation/interface (#561)
+
 ## 1.8.1
 
 - Revert automatic installation of platform tools

diff --git a/src/switch_impl_intf.ml b/src/switch_impl_intf.ml
@@ -1,15 +1,15 @@
 open Import
 
 let send_switch_impl_intf_request client uri : string array Promise.t =
-  let data = Jsonoo.Encode.list Jsonoo.Encode.string [ uri ] in
+  let data = Jsonoo.Encode.string uri in
   let open Promise.Syntax in
   let+ response =
     LanguageClient.sendRequest client ~meth:"ocamllsp/switchImplIntf" ~data ()
   in
   Jsonoo.Decode.(array string) response
 
 let send_infer_intf_request client uri : string Promise.t =
-  let data = Jsonoo.Encode.list Jsonoo.Encode.string [ uri ] in
+  let data = Jsonoo.Encode.string uri in
   let open Promise.Syntax in
   let+ response =
     LanguageClient.sendRequest client ~meth:"ocamllsp/inferIntf" ~data ()