From 5a96b329f3f67a27967ecb5fe18857cf69cca1df Mon Sep 17 00:00:00 2001
From: psdp <4315882+psdp@users.noreply.github.com>
Date: Mon, 23 Apr 2018 22:33:00 +0000
Subject: [PATCH] Fix navigate-to-clean [#3903]

---
 src/status_im/ui/screens/navigation.cljs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/status_im/ui/screens/navigation.cljs b/src/status_im/ui/screens/navigation.cljs
index f4321bdb3d..800746a2a9 100644
--- a/src/status_im/ui/screens/navigation.cljs
+++ b/src/status_im/ui/screens/navigation.cljs
@@ -23,7 +23,7 @@
   ([view-id {:keys [db]} screen-params]
    ;; TODO (jeluard) Unify all :navigate-to flavours. Maybe accept a map of parameters?
 
-   (let [db (cond-> db
+   (let [db (cond-> (assoc db :navigation-stack (list))
               (seq screen-params)
               (assoc-in [:navigation/screen-params view-id] screen-params))]
      {:db (push-view db view-id)})))
@@ -97,8 +97,8 @@
 
 (handlers/register-handler-fx
   :navigate-to-clean
-  (fn [{:keys [db]} [_ & params]]
-    {:db (apply navigate-to db params)}))
+  (fn [cofx [_ view-id params]]
+    (navigate-to-clean view-id cofx params)))
 
 (handlers/register-handler-fx
   :navigate-to-tab