diff options
| -rw-r--r-- | src/session.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/session.ml b/src/session.ml index 567f999..602ab14 100644 --- a/src/session.ml +++ b/src/session.ml @@ -78,7 +78,11 @@ let set w s path = let refpath = RT.refpath w.reference_tree path in let value_behaviour = if RT.is_multi w.reference_tree refpath then CT.AddValue else CT.ReplaceValue in let op = CfgSet (path, value, value_behaviour) in - let config = apply_cfg_op op s.proposed_config in + let config = + apply_cfg_op op s.proposed_config |> + (fun c -> RT.set_tag_data w.reference_tree c path) |> + (fun c -> RT.set_leaf_data w.reference_tree c path) + in {s with proposed_config=config; changeset=(op :: s.changeset)} let delete w s path = |