From 922c4c76f829774f31e719957ce0b5116af5a1c6 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Wed, 17 Jan 2024 20:11:14 -0700 Subject: [PATCH] refactor: rename [Dune_load.conf] to [Dune_load.t] Signed-off-by: Rudi Grinberg --- src/dune_rules/dune_load.ml | 2 +- src/dune_rules/dune_load.mli | 4 ++-- src/dune_rules/main.ml | 2 +- src/dune_rules/main.mli | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) 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 }