diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2024-12-11 22:04:40 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2024-12-12 14:19:48 +0100 |
| commit | 39f39919fb4749787393e95503f9814912265a73 (patch) | |
| tree | 57745ab257e50f9ef4d6924c3c77d51fd8fb4d4d /lib/analysers/dependency.ml | |
| parent | 5a558038874765f20b9dc1bcb1890600e2a2065d (diff) | |
Review the consistency request
Diffstat (limited to 'lib/analysers/dependency.ml')
| -rw-r--r-- | lib/analysers/dependency.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/analysers/dependency.ml b/lib/analysers/dependency.ml index e81cc49..9dd4736 100644 --- a/lib/analysers/dependency.ml +++ b/lib/analysers/dependency.ml @@ -52,7 +52,7 @@ type 'a expression_extractor = { } (** [add_path_in_map f parent path ] Extract the column from element [path] and - process the column in the function [f] + process the column in the function [f] The [path] is abstract, but the function [f.of_path] can extract the needed elements in order to add it in the mapping. @@ -107,8 +107,8 @@ let add_columns_in_map : expression and extracting the path contained inside. This function is called for each path declared inside the expression. *) -let add_dependancies : conf:Syntax.t -> Syntax.extern -> deps -> Path.t -> deps - = +let add_dependancies : + conf:Syntax.t -> Syntax.Extern.t -> deps -> Path.t -> deps = fun ~conf extern graph path -> let source_table = ImportConf.get_table_for_name conf path.Path.alias in @@ -120,7 +120,7 @@ let add_dependancies : conf:Syntax.t -> Syntax.extern -> deps -> Path.t -> deps | _ -> (target, [ source ]) :: graph let add_external_in_map : - conf:Syntax.t -> Syntax.extern -> build_map * deps -> build_map * deps = + conf:Syntax.t -> Syntax.Extern.t -> build_map * deps -> build_map * deps = fun ~conf extern (map, graph) -> let dest = ImportContainers.KeyName.from_table extern.target in (* Pre-check that every source is already declared in the configuration. *) |