diff options
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. *) |