|
4 | 4 | %% Info |
5 | 5 | -export([zipper_node/1, zipper_children/1]). |
6 | 6 | %% Traverse |
7 | | --export([zipper_root/1, zipper_next/1, zipper_prev/1, zipper_up/1, zipper_up_modified/1, zipper_down/1, |
8 | | - zipper_left/1, zipper_right/1, zipper_leftmost/1, zipper_rightmost/1]). |
| 7 | +-export([zipper_root/1, zipper_next/1, zipper_prev/1, zipper_up/1, zipper_up_modified/1, |
| 8 | + zipper_down/1, zipper_left/1, zipper_right/1, zipper_leftmost/1, zipper_rightmost/1]). |
9 | 9 | %% Editing |
10 | 10 | -export([zipper_insert_left/1, zipper_insert_right/1, zipper_replace/1, zipper_edit/1, |
11 | 11 | zipper_insert_child/1, zipper_append_child/1, zipper_remove/1]). |
@@ -126,18 +126,18 @@ zipper_up(_Config) -> |
126 | 126 |
|
127 | 127 | -spec zipper_up_modified(config()) -> {comment, string()}. |
128 | 128 | zipper_up_modified(_Config) -> |
129 | | - Zipper = zipper_default:map_tree(root(), children), |
130 | | - undefined = zipper:up(Zipper), |
131 | | - Zipper1 = zipper:traverse([next, next, next], Zipper), |
132 | | - Brasil = zipper:node(Zipper1), |
133 | | - Brasil2 = maps:put(attrs, #{name => "Peru"}, Brasil), |
134 | | - ModifiedZipper1 = zipper:replace(Brasil2, Zipper1), |
135 | | - Zipper2 = zipper:up(ModifiedZipper1), |
136 | | - Zipper3 = zipper:up(Zipper2), |
137 | | - Zipper4 = zipper:traverse([next, next, next], Zipper3), |
138 | | - Attrs = maps:get(attrs, zipper:node(Zipper4)), |
139 | | - #{name => "Peru"} = Attrs, |
140 | | - {comment, ""}. |
| 129 | + Zipper = zipper_default:map_tree(root(), children), |
| 130 | + undefined = zipper:up(Zipper), |
| 131 | + Zipper1 = zipper:traverse([next, next, next], Zipper), |
| 132 | + Brasil = zipper:node(Zipper1), |
| 133 | + Brasil2 = maps:put(attrs, #{name => "Peru"}, Brasil), |
| 134 | + ModifiedZipper1 = zipper:replace(Brasil2, Zipper1), |
| 135 | + Zipper2 = zipper:up(ModifiedZipper1), |
| 136 | + Zipper3 = zipper:up(Zipper2), |
| 137 | + Zipper4 = zipper:traverse([next, next, next], Zipper3), |
| 138 | + Attrs = maps:get(attrs, zipper:node(Zipper4)), |
| 139 | + #{name => "Peru"} = Attrs, |
| 140 | + {comment, ""}. |
141 | 141 |
|
142 | 142 | -spec zipper_right(config()) -> {comment, string()}. |
143 | 143 | zipper_right(_Config) -> |
|
0 commit comments