Fix code for launching the LSP in VSCode platform

OCamlPro · Sep 19, 2023 · 22569c4 · 22569c4
1 parent 84d4e63
commit 22569c4
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/src/vscode/superbol-vscode-platform/superbol_languageclient.ml b/src/vscode/superbol-vscode-platform/superbol_languageclient.ml
@@ -12,21 +12,21 @@
 (*                                                                        *)
 (**************************************************************************)
 
-let command =
-  Vscode.Workspace.getConfiguration ()
-  |> Vscode.WorkspaceConfiguration.get ~section:"superbol.path"
-  |> function Some o -> Ojs.string_of_js o
-            | None -> "superbol"
+let config = Vscode.Workspace.getConfiguration ()
 
-let args = ["x-lsp"]
-
-let serverOptions = Vscode_languageclient.ServerOptions.create
+let serverOptions =
+  let command =
+    match Vscode.WorkspaceConfiguration.get ~section:"superbol.path" config with
+    | Some o -> Ojs.string_of_js o
+    | None -> "superbol-free"
+  in
+  Vscode_languageclient.ServerOptions.create ()
     ~command
-    ~args
-    ()
-
-let documentSelector =
-  [| `Filter (Vscode_languageclient.DocumentFilter.createLanguage ~language:"cobol" ()) |]
-
-let clientOptions = Vscode_languageclient.ClientOptions.create ~documentSelector ()
+    ~args:["lsp"]
 
+let clientOptions =
+  Vscode_languageclient.ClientOptions.create ()
+    ~documentSelector:[|
+      `Filter (Vscode_languageclient.DocumentFilter.createLanguage ()
+                 ~language:"cobol");
+    |]