Skip to content
Snippets Groups Projects
Commit 28641cf6 authored by Leandre Lacourt's avatar Leandre Lacourt
Browse files

prise en compte de l'underscore dans les noms des vars du yml

parent 961e1856
No related branches found
No related tags found
No related merge requests found
......@@ -78,7 +78,7 @@ let (intlist : Yaml.value list -> int list) =
let (save_variable_attributes : Types.variable -> (string * Yaml.value) -> unit) =
fun v (key, value) ->
match key, value with
|"name", `String s -> v.name <- s
|"name", `String s -> v.name <- Str.string_after s 1
|"type", `String s -> v.var_type <- s
|_ -> assert false
......@@ -114,7 +114,6 @@ let (save_data_task : Types.task -> (string * Yaml.value) -> unit) =
match (key, value) with
| "task", `O l -> List.iter (save_data_one_task task) l
|_ -> ()
(*faire en sorte de match avec "task", `O pour aller ensuite sur le save_data_task*)
let (save_data_tasks : Yaml.value -> unit) = fun x ->
let task = {name = ""; var_in = []; var_out = []}::[] in
......
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