Merge pull request #6 from jonludlam/fix-static-example

Fix generation of static cmis to match protocol
voodoos · May 31, 2023 · dae7fe3 · dae7fe3
2 parents f15bd02 + 42032e0
commit dae7fe3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/example/dynamic.ml b/example/dynamic.ml
@@ -16,7 +16,7 @@ module Merlin =
         "Unix";
         "UnixLabels";
       ] in
-      let dcs_url = "/stdlib/" in
+      let dcs_url = "stdlib/" in
       let dcs_file_prefixes = ["stdlib__"] in
     { Protocol.static_cmis = [];
       dynamic_cmis = Some {

diff --git a/src/worker/static/gen_static.ml b/src/worker/static/gen_static.ml
@@ -19,7 +19,7 @@ let () =
   let dir = Unix.opendir stdlib in
   iter_cmi ~f:(fun file ->
     let fullpath = Filename.concat stdlib file in
-    let module_name = Filename.basename file |> String.capitalize_ascii in
+    let module_name = Filename.basename file |> String.capitalize_ascii |> Filename.remove_extension in
     Printf.fprintf out "{sc_name=%S; sc_content=[%%blob %S]};" module_name fullpath) dir;
     Printf.fprintf out "]\n";