home
/
code
/
hope.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a267352
)
Fix hope_kv_list:[iter/2, filter/2].
author
Siraaj Khandkar
<siraaj@khandkar.net>
Tue, 12 Aug 2014 19:51:52 +0000
(15:51 -0400)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Tue, 12 Aug 2014 19:51:52 +0000
(15:51 -0400)
src/hope_kv_list.erl
patch
|
blob
|
blame
|
history
diff --git
a/src/hope_kv_list.erl
b/src/hope_kv_list.erl
index
12dbcd2
..
431932f
100644
(file)
--- a/
src/hope_kv_list.erl
+++ b/
src/hope_kv_list.erl
@@
-51,17
+51,18
@@
update(T, K, F) ->
% TODO: Eliminate the 2nd lookup.
set(T, K, V2).
% TODO: Eliminate the 2nd lookup.
set(T, K, V2).
-iter(T,
Map
1) ->
-
Map2 = lift_map_into_list(Map
1),
- lists:foreach(
Map
2, T).
+iter(T,
F
1) ->
+
F2 = lift(F
1),
+ lists:foreach(
F
2, T).
-map(T, Map1) ->
- Map2 = lift_map_into_list(Map1),
- lists:map(Map2, T).
+map(T, F1) ->
+ F2 = lift(F1),
+ F3 = fun ({K, _}=X) -> {K, F2(X)} end,
+ lists:map(F3, T).
-filter(T,
Map
1) ->
-
Map2 = lift_map_into_list(Map
1),
- lists:filter(
Map
2, T).
+filter(T,
F
1) ->
+
F2 = lift(F
1),
+ lists:filter(
F
2, T).
fold(T, F1, Accumulator) ->
F2 = fun ({K, V}, Acc) -> F1(K, V, Acc) end,
fold(T, F1, Accumulator) ->
F2 = fun ({K, V}, Acc) -> F1(K, V, Acc) end,
@@
-79,5
+80,5
@@
of_kv_list(List) ->
%% Helpers
%% ============================================================================
%% Helpers
%% ============================================================================
-lift
_map_into_list(Map
) ->
- fun ({K, V}) ->
{K, Map(K, V)}
end.
+lift
(F
) ->
+ fun ({K, V}) ->
F(K, V)
end.
This page took
0.023142 seconds
and
4
git commands to generate.