~mmatalka/pds commit - sourcehut hg

1 files changed, 4 insertions(+), 4 deletions(-)

M src/pds/pds.ml

M src/pds/pds.ml +4 -4

@@ 682,11 682,11 @@ let apply_and_write_template tmpl_name o
 
 let emit_pds_mk { Build.build_types; srcs; tests } =
   let srcs_by_type =
-    let m = String_map.of_list @@ List.map (fun bt -> (bt, [])) build_types in
+    let m = String_map.of_seq @@ List.to_seq @@ List.map (fun bt -> (bt, [])) build_types in
     List.fold_left (fun m ({ Build.Src.build_type; _ } as b) -> add_to_list build_type b m) m srcs
   in
   let tests_by_type =
-    let m = String_map.of_list @@ List.map (fun bt -> (bt, [])) build_types in
+    let m = String_map.of_seq @@ List.to_seq @@ List.map (fun bt -> (bt, [])) build_types in
     List.fold_left (fun m ({ Build.Test.build_type; _ } as t) -> add_to_list build_type t m) m tests
   in
   let internal_deps =

          
@@ 914,11 914,11 @@ let emit_tests srcs tests = List.iter (f
 let emit_build pds_conf =
   let ({ Build.build_types; srcs; tests } as builds) = Build.load pds_conf in
   let srcs_by_type =
-    let m = String_map.of_list @@ List.map (fun bt -> (bt, [])) build_types in
+    let m = String_map.of_seq @@ List.to_seq @@ List.map (fun bt -> (bt, [])) build_types in
     List.fold_left (fun m ({ Build.Src.build_type; _ } as b) -> add_to_list build_type b m) m srcs
   in
   let tests_by_type =
-    let m = String_map.of_list @@ List.map (fun bt -> (bt, [])) build_types in
+    let m = String_map.of_seq @@ List.to_seq @@ List.map (fun bt -> (bt, [])) build_types in
     List.fold_left (fun m ({ Build.Test.build_type; _ } as t) -> add_to_list build_type t m) m tests
   in
   List.iter