From 81db1bfd580791910646525e30bc45af34533987 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sat, 1 Mar 2025 08:39:02 +0100 Subject: Rewrite the way to handle filters --- tests/confLoader.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'tests/confLoader.ml') diff --git a/tests/confLoader.ml b/tests/confLoader.ml index 4adedd6..692cda9 100644 --- a/tests/confLoader.ml +++ b/tests/confLoader.ml @@ -1,7 +1,9 @@ +let load' : string -> (ImportConf.Syntax.t, string) Result.t = + fun content -> Otoml.Parser.from_string content |> ImportConf.t_of_toml + (** Read the configuration in toml and return the internal representation *) let load : string -> ImportConf.Syntax.t = - fun content -> - Otoml.Parser.from_string content |> ImportConf.t_of_toml |> Result.get_ok + fun content -> Result.get_ok (load' content) let conf = load -- cgit v1.2.3