diff options
Diffstat (limited to 'lib/configuration/importConf.ml')
| -rw-r--r-- | lib/configuration/importConf.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/configuration/importConf.ml b/lib/configuration/importConf.ml index 586be3c..eb7c8d2 100644 --- a/lib/configuration/importConf.ml +++ b/lib/configuration/importConf.ml @@ -60,18 +60,18 @@ let get_table_for_name : Syntax.t -> string option -> Table.t = if String.equal name conf.source.name then conf.source else let ext = - List.find conf.externals ~f:(fun (ext : Syntax.extern) -> + List.find conf.externals ~f:(fun (ext : Syntax.Extern.t) -> String.equal name ext.target.name) in ext.target let root_table : Syntax.t -> Table.t = fun conf -> conf.source -let get_dependancies_for_table : Syntax.t -> Table.t -> Syntax.extern list = +let get_dependancies_for_table : Syntax.t -> Table.t -> Syntax.Extern.t list = fun conf source -> let is_root = source = conf.source in - List.filter conf.externals ~f:(fun (ext : Syntax.extern) -> + List.filter conf.externals ~f:(fun (ext : Syntax.Extern.t) -> (* Enumerate the intern_key and check the source pointed by each column *) Expression.fold_values ext.intern_key ~init:false ~f:(fun acc expr -> if acc then acc @@ -83,7 +83,7 @@ let get_dependancies_for_table : Syntax.t -> Table.t -> Syntax.extern list = let print_path_expression t = ImportExpression.Repr.repr Path.repr t let print_extern t = - let toml = Syntax.toml_of_extern t in + let toml = Syntax.Extern.toml_of_extern t in Otoml.Printer.to_string toml let expression_from_string s = |