From d0ea8062cd7fb7aed8a0ca1cccbe702608ae4df5 Mon Sep 17 00:00:00 2001 From: Emilien Lemaire Date: Wed, 18 Dec 2024 13:36:12 +0100 Subject: [PATCH] Check for macos binaries --- .../superbol-vscode-platform/superbol_languageclient.ml | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/vscode/superbol-vscode-platform/superbol_languageclient.ml b/src/vscode/superbol-vscode-platform/superbol_languageclient.ml index 22da56dc2..338489e44 100644 --- a/src/vscode/superbol-vscode-platform/superbol_languageclient.ml +++ b/src/vscode/superbol-vscode-platform/superbol_languageclient.ml @@ -44,13 +44,16 @@ let find_superbol root = let open Node.Process in let prefix = "superbol-free" in let suffix = if platform == "win32" then ".exe" else "" in - Vscode.Uri.fsPath @@ find_existing @@ List.map (fun name -> + Vscode.Uri.fsPath @@ find_existing @@ + List.map (fun name -> Vscode.Uri.joinPath root ~pathSegments:[name]) @@ [ Format.asprintf "%s-%s-%s%s" prefix platform arch suffix; Format.asprintf "%s-%s%s" prefix platform suffix; Format.asprintf "%s%s" prefix suffix - ] - + ] @ if platform = "darwin" && arch = "arm64" then + [ Format.sprintf "%s-%s-%s%s" prefix platform "x64" suffix] + else + [] let scan_host_and_port url = let fail () = Format.ksprintf failwith "Invalid %S" url in