   (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

                                          :last-refresh-send-time now
                                          :timer timer
                                          :next-ping-timer next-ping-timer}))))))

(defn websocket-active-updated [ws]
  (let [timer (:next-ping-timer @websocket-config)]
    (when timer
      (.clearTimeout js/window timer)))
  (start-websocket-ping ws))

(defn handle-websocket-message [ws msg]
  (case (:type msg)

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

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

;;; sec:poll

