Fixes #1180 Cleanup navigation stack when creating public group

This commit is contained in:
Julien Eluard 2017-05-10 00:39:49 +02:00 committed by Roman Volosovskyi
parent 27de707035
commit 0df5a59e87
1 changed files with 2 additions and 1 deletions

View File

@ -116,7 +116,8 @@
(register-handler :create-new-public-group
(after (fn [_ [_ topic]]
(dispatch [:navigation-replace :chat topic])))
(dispatch [:navigate-to-clean :chat-list])
(dispatch [:navigate-to :chat topic])))
(u/side-effect!
(fn [db [_ topic]]
(let [exists? (boolean (get-in db [:chats topic]))