IPrintWithWriter using ckirkendall's suggestion

nchurch · Dec 14, 2014 · 89e22a6 · 89e22a6
1 parent f7accce
commit 89e22a6
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/src/cljs/domina/events.cljs b/src/cljs/domina/events.cljs
@@ -45,13 +45,7 @@
            (map #(vector % (gobj/get evt %)) (prim-seq (gobj/getKeys evt) 0)))
          IPrintWithWriter
          (-pr-writer [o writer opts]
-           (let [pr-pair (fn [keyval] (pr-sequential-writer writer pr-writer "" " " "" opts keyval))]
-             (pr-sequential-writer writer pr-pair "{" ", " "}" opts 
-                                   (reify
-                                     ISeqable
-                                     (-seq [o] 
-                                       (map #(vector % (gobj/get evt %)) (prim-seq (gobj/getKeys evt) 0))))
-                                   )))))
+           (-write writer "domina.event" (into {} (seq o))))))
     true))
 
 (defn- listen-internal!