equal
deleted
inserted
replaced
96 fun edit_nodes (name, SOME edits) (Version nodes) = |
96 fun edit_nodes (name, SOME edits) (Version nodes) = |
97 Version (nodes |
97 Version (nodes |
98 |> Graph.default_node (name, empty_node) |
98 |> Graph.default_node (name, empty_node) |
99 |> Graph.map_node name (fold edit_node edits)) |
99 |> Graph.map_node name (fold edit_node edits)) |
100 | edit_nodes (name, NONE) (Version nodes) = |
100 | edit_nodes (name, NONE) (Version nodes) = |
101 Version (Graph.del_node name nodes); |
101 Version (perhaps (try (Graph.del_node name)) nodes); |
102 |
102 |
103 fun put_node name node (Version nodes) = |
103 fun put_node name node (Version nodes) = |
104 Version (Graph.map_node name (K node) nodes); |
104 Version (nodes |
|
105 |> Graph.default_node (name, empty_node) |
|
106 |> Graph.map_node name (K node)); |
105 |
107 |
106 end; |
108 end; |
107 |
109 |
108 |
110 |
109 |
111 |