jon.recoil.org
this repo has no description
Fix generation of static cmis to match protocol
protocol.ml states:
```ocaml
type static_cmi = {
sc_name : string; (* capitalised, e.g. 'Stdlib' *)
sc_content : string;
}
```
but the `gen_static` script was generating:
```ocaml
{sc_name="Stdlib__Buffer.cmi"; sc_content=[%blob ...
```
Fix is to strip the extension.
+1
-1
src/worker/static/gen_static.ml
+1
-1
src/worker/static/gen_static.ml
···
19
let dir = Unix.opendir stdlib in
20
iter_cmi ~f:(fun file ->
21
let fullpath = Filename.concat stdlib file in
22
-
let module_name = Filename.basename file |> String.capitalize_ascii in
23
Printf.fprintf out "{sc_name=%S; sc_content=[%%blob %S]};" module_name fullpath) dir;
24
Printf.fprintf out "]\n";
25
···
19
let dir = Unix.opendir stdlib in
20
iter_cmi ~f:(fun file ->
21
let fullpath = Filename.concat stdlib file in
22
+
let module_name = Filename.basename file |> String.capitalize_ascii |> Filename.remove_extension in
23
Printf.fprintf out "{sc_name=%S; sc_content=[%%blob %S]};" module_name fullpath) dir;
24
Printf.fprintf out "]\n";
25