From 9e2dbe43abe97c4e60b158e5fa52172468a2afb8 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Thu, 13 Mar 2025 20:17:51 +0100
Subject: Declare the files to load from an external configuration file

---
 lib/configuration/importConf.ml | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'lib/configuration/importConf.ml')

diff --git a/lib/configuration/importConf.ml b/lib/configuration/importConf.ml
index 2df24bd..4b49686 100644
--- a/lib/configuration/importConf.ml
+++ b/lib/configuration/importConf.ml
@@ -1,14 +1,22 @@
 module TomlReader = Read_conf.Make (Helpers.Toml.Decode)
 
-let t_of_toml : Otoml.t -> (ImporterSyntax.t, string) result =
- fun toml ->
+type loader_context = TomlReader.loader_context = {
+  checkFile : string -> bool;
+  loadFile : string -> Otoml.t;
+}
+
+let t_of_toml :
+    context:loader_context -> Otoml.t -> (ImporterSyntax.t, string) result =
+ fun ~context toml ->
   let version =
     Otoml.find_or ~default:ImporterSyntax.latest_version toml
       (Otoml.get_integer ~strict:false)
       [ "version" ]
   in
   match version with
-  | n when n = ImporterSyntax.latest_version -> TomlReader.read toml
+  | n when n = ImporterSyntax.latest_version -> begin
+      TomlReader.read context toml
+    end
   | _ ->
       Printf.eprintf "Unsuported version : %d\n" version;
       exit 1
-- 
cgit v1.2.3