                               (conj config {:refresh-reply-received false
                                             :channel cid
                                             :event initial-event
-                                            :connection ws})))
-    (swap! active-config #(conj % {:active-updated-fn (fn [] (websocket-active-updated ws))}))))
+                                            :connection ws})))))
 
 (defn set-callback-fn! [callback-fn]
   (swap! active-config #(conj % {:callback-fn callback-fn})))

  (let [req (make-xhr-io-req)]
    (notify-fail false)
    (swap! poll-config #(conj % {:channel cid :event event}))
    (swap! active-config #(conj % {:active-updated-fn (fn [_] nil)}))
    (run-polling-request-loop req)))

;;; sec:ws

      ((:error-fn @active-config) error-p))))

(defn set-is-active [active-p]
  (swap! active-config #(conj % {:is-active active-p})))

;;; sec:poll

