gered/clj-browserchannel
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix decode-queued-map

Browse source
This commit is contained in:
Gered 2016-05-09 13:19:53 -04:00
parent 6916f3efb2
commit 36665bc123
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
clj-browserchannel/src/net/thegeez/browserchannel/client.cljs
View file

@ -48,11 +48,10 @@
(defn decode-queued-map (defn decode-queued-map
[queued-map] [queued-map]
(let [m (js->clj queued-map) (merge
data (get m "map")] {:context (aget queued-map "context")
(merge :map-id (aget queued-map "mapId")}
{:context (get m "context") (let [data (js->clj (aget queued-map "map"))]
:map-id (get m "mapId")}
(if (contains? data "__edn") (if (contains? data "__edn")
{:data (reader/read-string (str (get data "__edn")))} {:data (reader/read-string (str (get data "__edn")))}
{:map data})))) {:map data}))))