diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-01-22 13:43:50 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-01-23 12:24:10 +0100 |
| commit | 37556ab070abcbf87a1a822c95aeccf19dade687 (patch) | |
| tree | f7d7b4a3ae4e689224de177c01f4f0ecc2fd1a7c /lib/configuration/importConf.ml | |
| parent | 8e012f4804ecf1665819e761283120a3c0e73643 (diff) | |
Force the locale before printing a result
Diffstat (limited to 'lib/configuration/importConf.ml')
| -rw-r--r-- | lib/configuration/importConf.ml | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lib/configuration/importConf.ml b/lib/configuration/importConf.ml index 2f56bd6..ebbcb7c 100644 --- a/lib/configuration/importConf.ml +++ b/lib/configuration/importConf.ml @@ -5,8 +5,6 @@ module Path = ImportDataTypes.Path module T = Read_conf module Expression = ImportExpression.T -external set_locale : string -> unit = "set_locale" - let latest_version = 1 module TomlReader = Read_conf.Make (Helpers.Toml.Decode) @@ -19,14 +17,7 @@ let t_of_toml : Otoml.t -> (Syntax.t, string) result = [ "version" ] in match version with - | n when n = latest_version -> - let conf = TomlReader.read toml in - let () = - Result.iter - (fun conf -> set_locale (Option.value ~default:"" conf.Syntax.locale)) - conf - in - conf + | n when n = latest_version -> TomlReader.read toml | _ -> Printf.eprintf "Unsuported version : %d\n" version; exit 1 |