diff --git a/src/dune_rules/dune_load.ml b/src/dune_rules/dune_load.ml index d27c6e16b12..de0b1000060 100644 --- a/src/dune_rules/dune_load.ml +++ b/src/dune_rules/dune_load.ml @@ -293,7 +293,7 @@ module Dune_files = struct ;; end -type conf = +type t = { dune_files : Dune_files.t ; packages : Package.t Package.Name.Map.t ; projects : Dune_project.t list diff --git a/src/dune_rules/dune_load.mli b/src/dune_rules/dune_load.mli index 1f556a0b859..dda84923faf 100644 --- a/src/dune_rules/dune_load.mli +++ b/src/dune_rules/dune_load.mli @@ -13,7 +13,7 @@ module Dune_files : sig val in_dir : Path.Build.t -> Dune_file.t option Memo.t end -type conf = private +type t = private { dune_files : Dune_files.t ; packages : Package.t Package.Name.Map.t ; projects : Dune_project.t list @@ -21,6 +21,6 @@ type conf = private } (** Load all dune files. This function is memoized. *) -val load : unit -> conf Memo.t +val load : unit -> t Memo.t val find_project : dir:Path.Build.t -> Dune_project.t Memo.t diff --git a/src/dune_rules/main.ml b/src/dune_rules/main.ml index d9e40bc4fcb..4cc1b5400ac 100644 --- a/src/dune_rules/main.ml +++ b/src/dune_rules/main.ml @@ -3,7 +3,7 @@ open Import let () = Inline_tests.linkme type build_system = - { conf : Dune_load.conf + { conf : Dune_load.t ; contexts : Context.t list ; scontexts : Super_context.t Context_name.Map.t } diff --git a/src/dune_rules/main.mli b/src/dune_rules/main.mli index de4e55f7268..1941f687c04 100644 --- a/src/dune_rules/main.mli +++ b/src/dune_rules/main.mli @@ -12,7 +12,7 @@ val init -> unit type build_system = - { conf : Dune_load.conf + { conf : Dune_load.t ; contexts : Context.t list ; scontexts : Super_context.t Context_name.Map.t }