From b148de7fc0dd8cd0784cd24032f884dff06a67db Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sat, 16 Apr 2016 13:43:21 +0300
Subject: [PATCH] Properly use projects fetched event after fetch projects
 event.

---
 src/uxbox/data/projects.cljs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/uxbox/data/projects.cljs b/src/uxbox/data/projects.cljs
index 94bde79db5..39a56afdf3 100644
--- a/src/uxbox/data/projects.cljs
+++ b/src/uxbox/data/projects.cljs
@@ -27,15 +27,18 @@
   [projects]
   (ProjectsFetched. projects))
 
+(defn projects-fetched?
+  [v]
+  (instance? ProjectsFetched v))
+
 ;; --- Fetch Projects
 
 (defrecord FetchProjects []
   rs/WatchEvent
   (-apply-watch [_ state s]
-    (letfn [(on-loaded [{projects :payload}]
-              #(reduce stpr/assoc-project % projects))]
-      (->> (rp/req :fetch/projects)
-           (rx/map on-loaded)))))
+    (->> (rp/req :fetch/projects)
+         (rx/map :payload)
+         (rx/map projects-fetched))))
 
 (defn fetch-projects
   []