diff options
-rw-r--r-- | p11p-daemon/src/p11p_remote_manager.erl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/p11p-daemon/src/p11p_remote_manager.erl b/p11p-daemon/src/p11p_remote_manager.erl index d2bbd11..b9b15b2 100644 --- a/p11p-daemon/src/p11p_remote_manager.erl +++ b/p11p-daemon/src/p11p_remote_manager.erl @@ -84,11 +84,10 @@ handle_call({client_change, client_gone, [TokName, Pid]}, From, #state{tokens = gen_server:stop(Pid), #{TokName := Token} = Tokens, Remotes = Token#token.remotes, - NewRemotes = lists:map(fun(E) -> % TODO: any risk of losing list order? - case E#remote.pid of - Pid -> E#remote{pid = undefined}; - _ -> E - end end, Remotes), + NewRemotes = [case E#remote.pid of + Pid -> E#remote{pid = undefined}; + _ -> E + end || E <- Remotes], NewToken = Token#token{remotes = NewRemotes}, NewState = State#state{tokens = Tokens#{TokName := NewToken}}, {reply, ok, NewState}; |