From 39f39919fb4749787393e95503f9814912265a73 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Wed, 11 Dec 2024 22:04:40 +0100
Subject: Review the consistency request
---
lib/configuration/importConf.ml | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'lib/configuration/importConf.ml')
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 =
--
cgit v1.2.3