From 37556ab070abcbf87a1a822c95aeccf19dade687 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Wed, 22 Jan 2025 13:43:50 +0100
Subject: Force the locale before printing a result

---
 lib/configuration/importConf.ml | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

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

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
-- 
cgit v1.2.3