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
[queued-map]
(let [m (js->clj queued-map)
data (get m "map")]
(merge
{:context (get m "context")
:map-id (get m "mapId")}
(merge
{:context (aget queued-map "context")
:map-id (aget queued-map "mapId")}
(let [data (js->clj (aget queued-map "map"))]
(if (contains? data "__edn")
{:data (reader/read-string (str (get data "__edn")))}
{:map data}))))