From 36665bc123ab4850a0bf536b79cf09e7e7366344 Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Mon, 9 May 2016 13:19:53 -0400
Subject: [PATCH] fix decode-queued-map

---
 .../src/net/thegeez/browserchannel/client.cljs           | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/clj-browserchannel/src/net/thegeez/browserchannel/client.cljs b/clj-browserchannel/src/net/thegeez/browserchannel/client.cljs
index 928bb71..fb2d119 100644
--- a/clj-browserchannel/src/net/thegeez/browserchannel/client.cljs
+++ b/clj-browserchannel/src/net/thegeez/browserchannel/client.cljs
@@ -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}))))