Commit 174f67ef authored by Benoit Barbot's avatar Benoit Barbot
Browse files

progress

parent 46915062
Pipeline #1746 failed with stage
in 27 seconds
......@@ -101,7 +101,11 @@
Some (v,guard,reset)
| Some (`String v) when attr_id = 1 ->
Some (label,v,reset)
| Some (`String v) when attr_id = 2 ->
(try
let ins = String.sub v 1 (String.length v-2) in
Some (label,guard, (String.split_on_char 'c' ins) ) with
_ -> None)
| _ -> None
let get_new_arc_attr atlist _ = []
......
......@@ -141,7 +141,7 @@ module S (P:PREGRAPH) =
let update_arc_attribute graph arct attr_id attr_value =
match arct with
`Empty -> true
`Empty -> update_node_attribute graph `Empty attr_id attr_value
| `Arc k ->
let (),(arc,_,_) = Data.acca graph.arc k in
match P.update_arc_attr !arc attr_id attr_value with
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment