Skip to content
Snippets Groups Projects
Commit 201786db authored by Aymeric Varasse's avatar Aymeric Varasse :innocent:
Browse files

[aimos] Set CWD from CAISAR

parent c7a8d75e
No related branches found
No related tags found
No related merge requests found
...@@ -29,6 +29,7 @@ let write_config inputs_path models_path perturbation perturbation_path out_mode ...@@ -29,6 +29,7 @@ let write_config inputs_path models_path perturbation perturbation_path out_mode
amplitude = amplitude =
let config_file = Caml.Filename.temp_file "aimos-" ".yml" in let config_file = Caml.Filename.temp_file "aimos-" ".yml" in
let config_path = Fpath.v config_file in let config_path = Fpath.v config_file in
let cwd = Caml.Sys.getcwd () in
let ampli = Dataset.string_of_amplitude amplitude in let ampli = Dataset.string_of_amplitude amplitude in
let transformations = let transformations =
match ampli with match ampli with
...@@ -44,6 +45,7 @@ let write_config inputs_path models_path perturbation perturbation_path out_mode ...@@ -44,6 +45,7 @@ let write_config inputs_path models_path perturbation perturbation_path out_mode
("plot", `Bool false); ("plot", `Bool false);
("inputs_path", `String inputs_path); ("inputs_path", `String inputs_path);
("transformations", transformations); ("transformations", transformations);
("alt_cwd", `String cwd);
] ]
| ctp -> | ctp ->
`O `O
...@@ -52,6 +54,7 @@ let write_config inputs_path models_path perturbation perturbation_path out_mode ...@@ -52,6 +54,7 @@ let write_config inputs_path models_path perturbation perturbation_path out_mode
("inputs_path", `String inputs_path); ("inputs_path", `String inputs_path);
("transformations", transformations); ("transformations", transformations);
("custom_t_path", `String ctp); ("custom_t_path", `String ctp);
("alt_cwd", `String cwd);
] ]
in in
let models = let models =
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment