Force the locale before printing a result

3 files changed, 1 insertions, 23 deletions

diff --git a/lib/configuration/dune b/lib/configuration/dune
index 74ace87..6a0bc61 100755
--- a/lib/configuration/dune
+++ b/lib/configuration/dune
@@ -16,7 +16,6 @@
    ppx_deriving.show 

    ppx_deriving.eq 

  ))

- (foreign_stubs (language c) (names locale))

 )

 

 (rule

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
diff --git a/lib/configuration/locale.c b/lib/configuration/locale.c
deleted file mode 100644
index eeafd26..0000000
--- a/lib/configuration/locale.c
+++ /dev/null
@@ -1,12 +0,0 @@
-#include <stdio.h>
-#include <locale.h>
-#include <caml/memory.h>
-#include <caml/alloc.h>
-
-CAMLprim value set_locale( value param )
-{
-    const char *s;
-    s = String_val(param);
-    setlocale(LC_NUMERIC, s);
-    return Val_unit;
-}