Check for macos binaries

OCamlPro · Dec 18, 2024 · d0ea806 · d0ea806
1 parent e8edfbc
commit d0ea806
Showing 1 changed file with 6 additions and 3 deletions.
diff --git 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