new-group-chat even to include group-name

This commit is contained in:
michaelr 2016-04-28 15:56:33 +03:00
parent c0593fbe61
commit fe45178ce0
1 changed files with 3 additions and 2 deletions

View File

@ -59,7 +59,7 @@
(declare handle-incoming-whisper-msg)
(defn handle-new-group-chat [web3 from {:keys [group-topic keypair identities msg-id]}]
(defn handle-new-group-chat [web3 from {:keys [group-topic keypair identities msg-id group-name]}]
(send-ack web3 from msg-id {:group-invite group-topic})
(let [store (storage)]
(when-not (chat-exists? store group-topic)
@ -69,7 +69,8 @@
(save-group-admin store group-topic from)
(invoke-user-handler :new-group-chat {:from from
:identities identities
:group-id group-topic}))))
:group-id group-topic
:group-name group-name}))))
(defn decrypt-group-msg [group-topic encrypted-payload]
(let [store (storage)]