[#12418] Error when declining membership request

Signed-off-by: andrey <motor4ik@gmail.com>
This commit is contained in:
andrey 2021-08-06 12:39:08 +02:00
parent 8298c35db2
commit 1f38423723
No known key found for this signature in database
GPG Key ID: 89B67245FD2F0272
1 changed files with 17 additions and 16 deletions

View File

@ -176,22 +176,23 @@
"before processing we want to filter and sort messages, so we can process first only messages which will be showed"
{:events [:sanitize-messages-and-process-response]}
[{:keys [db] :as cofx} ^js response-js process-async]
(let [current-chat-id (:current-chat-id db)
{:keys [db messages transactions chats statuses]}
(reduce group-by-and-update-unviewed-counts
{:db db :chats #{} :transactions #{} :statuses [] :messages []
:current-chat-id current-chat-id}
(.-messages response-js))]
(sort-js-messages! response-js messages)
(fx/merge cofx
{:db db
:utils/dispatch-later (concat []
(when (seq statuses)
[{:ms 100 :dispatch [:process-statuses statuses]}])
(when (seq transactions)
(for [transaction-hash transactions]
{:ms 100 :dispatch [:watch-tx transaction-hash]})))}
(process-response response-js process-async))))
(when response-js
(let [current-chat-id (:current-chat-id db)
{:keys [db messages transactions chats statuses]}
(reduce group-by-and-update-unviewed-counts
{:db db :chats #{} :transactions #{} :statuses [] :messages []
:current-chat-id current-chat-id}
(.-messages response-js))]
(sort-js-messages! response-js messages)
(fx/merge cofx
{:db db
:utils/dispatch-later (concat []
(when (seq statuses)
[{:ms 100 :dispatch [:process-statuses statuses]}])
(when (seq transactions)
(for [transaction-hash transactions]
{:ms 100 :dispatch [:watch-tx transaction-hash]})))}
(process-response response-js process-async)))))
(fx/defn remove-hash
[{:keys [db]} envelope-hash]