summaryrefslogtreecommitdiff
path: root/p11p-daemon
diff options
context:
space:
mode:
Diffstat (limited to 'p11p-daemon')
-rw-r--r--p11p-daemon/src/p11p_remote_manager.erl9
1 files changed, 5 insertions, 4 deletions
diff --git a/p11p-daemon/src/p11p_remote_manager.erl b/p11p-daemon/src/p11p_remote_manager.erl
index 8ff8883..5fe5bc7 100644
--- a/p11p-daemon/src/p11p_remote_manager.erl
+++ b/p11p-daemon/src/p11p_remote_manager.erl
@@ -101,10 +101,11 @@ handle_cast({client_event, client_gone, [TokName, Pid]}, #state{tokens = Tokens}
p11p_remote:stop(Pid, normal),
#{TokName := Token} = Tokens,
Remotes = Token#token.remotes,
- NewRemotes = [case E#remote.pid of
- Pid -> E#remote{pid = undefined};
- _ -> E
- end || E <- Remotes],
+ NewRemotes = lists:map(fun(E) ->
+ case E#remote.pid of
+ Pid -> E#remote{pid = undefined};
+ _ -> E
+ end end, Remotes),
NewToken = Token#token{remotes = NewRemotes},
NewState = State#state{tokens = Tokens#{TokName := NewToken}},
{noreply, NewState};