 (defn add-stats
   ""
   [uids origin chsk-send!]
-  (swap! stats assoc origin (inc (get @stats origin 0)))
-  (when-not (contains? @known-event-types origin)
-    (swap! known-event-types conj origin)
-    (send-event-types uids chsk-send!)))
+  (swap! stats assoc origin (inc (get @stats origin 0))))
 
 (defn deliver-msg
   ""

    (log/info "Connected:" (:remote-addr req) uid)
    uid))

(def clients (atom {}))
(def client-maps (atom {}))
(def known-event-types (atom #{}))
(def stats (atom {}))

(defn strip-uid

  "send set with known event types to connected UIs"
  [uids chsk-send!]
  (doseq [uid (:any @uids)]
    (chsk-send! uid [:info/known-event-types  (into #{} (map (fn [[t _]] t) (seq @stats)))])
    (chsk-send! uid [:info/stats @stats])))

(defn- make-handler
