summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/shared/reply/shr_set_map.erl')
-rw-r--r--src/shared/reply/shr_set_map.erl32
1 files changed, 13 insertions, 19 deletions
diff --git a/src/shared/reply/shr_set_map.erl b/src/shared/reply/shr_set_map.erl
index 2e10c2e..f0af1cf 100644
--- a/src/shared/reply/shr_set_map.erl
+++ b/src/shared/reply/shr_set_map.erl
@@ -39,25 +39,19 @@ generate (User, TriggerVisibilityFun, Map) ->
},
{
<<"m">>,
- lists:filtermap
- (
- fun ({Key, Value}) ->
- case shr_map_marker:can_access(User, Value) of
- true ->
- {
- true,
- {
- [
- { Key, shr_map_marker:encode(Value) }
- ]
- }
- };
-
- false -> false
- end
- end,
- shr_map:get_markers(Map)
- )
+ {
+ lists:foldl
+ (
+ fun ({Key, Value}, Acc) ->
+ case shr_map_marker:can_access(User, Value) of
+ true -> [{ Key, shr_map_marker:encode(Value) }|Acc];
+ false -> Acc
+ end
+ end,
+ [],
+ shr_map:get_markers(Map)
+ )
+ }
}
]
}.