   [params full-event chsk-send!]
   (let [uid (strip-uid (:client-uuid full-event))
         n (:n params)
-        client-map (into {} (map (fn [t] [t n]) (seq @known-event-types)))]
+        client-map (into {} (map (fn [[t _]] [t n]) (seq @stats)))]
     (swap! client-maps assoc-in [uid] client-map)
     (chsk-send! uid [:info/client-map (get-in @client-maps [uid])])))
 

  "send set with known event types to connected UIs"
  [uids chsk-send!]
  (doseq [uid (:any @uids)]
    (chsk-send! uid [:info/known-event-types @known-event-types])
    (chsk-send! uid [:info/stats @stats])))

(defn- make-handler

(defn add-stats
  ""
  [uids origin chsk-send!]
  (swap! stats assoc origin (inc (get @stats origin 0))))

(defn deliver-msg
  ""
