From d7274c258548c7b616fcdfa2eeae10c290c48894 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sat, 23 Mar 2019 18:41:27 +0700 Subject: [PATCH] Fix typo in virtual_rules Signed-off-by: Rudi Grinberg --- src/virtual_rules.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/virtual_rules.ml b/src/virtual_rules.ml index f7266aeddc3..04b80eab0ce 100644 --- a/src/virtual_rules.ml +++ b/src/virtual_rules.ml @@ -181,7 +181,7 @@ let external_dep_graph sctx ~impl_cm_kind ~vlib_obj_dir ~impl_obj_dir | Impl -> impl_cm_kind | Intf -> Cm_kind.Cmi in - let deps_from_objnfo ~for_module (ocamlobjinfo : Ocamlobjinfo.t) = + let deps_from_objinfo ~for_module (ocamlobjinfo : Ocamlobjinfo.t) = Module.Name.Set.to_list ocamlobjinfo.intf |> List.filter_map ~f:(fun dep -> match Module.Name.split_alias_prefix dep, wrapped with @@ -224,7 +224,7 @@ let external_dep_graph sctx ~impl_cm_kind ~vlib_obj_dir ~impl_obj_dir Super_context.add_rule sctx ~dir:impl_obj_dir write; let open Build.O in Build.memoize "ocamlobjinfo" @@ - read >>^ deps_from_objnfo ~for_module:m + read >>^ deps_from_objinfo ~for_module:m in m, deps)))