added msg-id to protocol event

This commit is contained in:
michaelr 2016-04-11 23:11:41 +03:00
parent 5d3d511905
commit a3353e2168
2 changed files with 3 additions and 2 deletions

View File

@ -61,7 +61,7 @@
:group-new-participant [identity group-id from msg-id] :group-new-participant [identity group-id from msg-id]
:group-removed-participant [from identity group-id msg-id] :group-removed-participant [from identity group-id msg-id]
:removed-from-group [from group-id msg-id] :removed-from-group [from group-id msg-id]
:participant-left-group [from group-id] :participant-left-group [from group-id msg-id]
:initialized [identity] :initialized [identity]
:new-msg, new-group-msg, msg-acked should be handled idempotently (may be called multiple times for the same msg-id) :new-msg, new-group-msg, msg-acked should be handled idempotently (may be called multiple times for the same msg-id)

View File

@ -130,7 +130,8 @@
(when (group-member? store group-topic from) (when (group-member? store group-topic from)
(remove-identity store group-topic from) (remove-identity store group-topic from)
(invoke-user-handler :participant-left-group {:group-id group-topic (invoke-user-handler :participant-left-group {:group-id group-topic
:from from})))) :from from
:msg-id msg-id}))))
(defn handle-group-msg [web3 msg-type from {:keys [enc-payload group-topic]}] (defn handle-group-msg [web3 msg-type from {:keys [enc-payload group-topic]}]
(if-let [payload (decrypt-group-msg group-topic enc-payload)] (if-let [payload (decrypt-group-msg group-topic enc-payload)]