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 (register-handler :create-new-public-group
(after (fn [_ [_ topic]] (after (fn [_ [_ topic]]
(dispatch [:navigation-replace :chat topic]))) (dispatch [:navigate-to-clean :chat-list])
(dispatch [:navigate-to :chat topic])))
(u/side-effect! (u/side-effect!
(fn [db [_ topic]] (fn [db [_ topic]]
(let [exists? (boolean (get-in db [:chats topic])) (let [exists? (boolean (get-in db [:chats topic]))