minor nitpicky "cleanups"

This commit is contained in:
Gered 2016-05-24 10:38:01 -04:00
parent e86ab23603
commit 20be582a1a
2 changed files with 3 additions and 4 deletions

View file

@ -58,7 +58,7 @@
propagate the changes to the server."
[view-id & parameters]
(let [view-sig {:view-id view-id
:parameters (or parameters [])}
:parameters (if parameters (vec parameters) [])}
this (r/current-component)]
(assert (not (nil? this)) "view-cursor can only be used within a defvc component's render function.")
(update-component-state! this #(update-in % [:used-view-sigs] conj view-sig))

View file

@ -31,9 +31,8 @@
(defn- handle-view-refresh [view-sig data]
(let [cursor (r/cursor view-data [view-sig])]
(swap! cursor
#(-> %
(dissoc :loading?)
(assoc :data data)))))
#(assoc % :loading false
:data data))))
(defn subscribed?
"Returns true if we are currently subscribed to the specified view."