diff --git a/src/dune_rules/vimpl.ml b/src/dune_rules/vimpl.ml index 7fb4079f1333..ed10ab0a2937 100644 --- a/src/dune_rules/vimpl.ml +++ b/src/dune_rules/vimpl.ml @@ -7,7 +7,7 @@ type t = ; vlib_modules : Modules.t ; vlib_foreign_objects : Path.t list ; impl_cm_kind : Cm_kind.t - ; vlib_obj_map : Module.t Module_name.Unique.Map.t Lazy.t + ; vlib_obj_map : Module.t Module_name.Unique.Map.t } let vlib_modules t = t.vlib_modules @@ -34,12 +34,11 @@ let make ~vlib ~impl ~vlib_modules ~vlib_foreign_objects = Native) in let vlib_obj_map = - lazy - (Modules.obj_map vlib_modules ~f:(function - | Normal m -> m - | _ -> assert false) - |> Module.Obj_map.fold ~init:Module_name.Unique.Map.empty ~f:(fun m acc -> - Module_name.Unique.Map.add_exn acc (Module.obj_name m) m)) + Modules.obj_map vlib_modules ~f:(function + | Normal m -> m + | _ -> assert false) + |> Module.Obj_map.fold ~init:Module_name.Unique.Map.empty ~f:(fun m acc -> + Module_name.Unique.Map.add_exn acc (Module.obj_name m) m) in { impl; impl_cm_kind; vlib; vlib_modules; vlib_foreign_objects; vlib_obj_map } @@ -47,4 +46,4 @@ let vlib_stubs_o_files = function | None -> [] | Some t -> t.vlib_foreign_objects -let vlib_obj_map t = Lazy.force t.vlib_obj_map +let vlib_obj_map t = t.vlib_obj_map