 
 (defmethod ws-handler :chsk/uidport-close [{:keys [client-uuid] :as req}]
   (log/infof "closing connection for %s" client-uuid)
-  (clean-document-subs client-uuid))
+  (clean-document-subs (client-uuid->uuid client-uuid)))
 
 (defn subscribe-to-doc [document-id uuid]
   (swap! document-subs update-in [document-id] (fnil conj #{}) uuid))


(defn ws-handler-dispatch-fn [req]
  (-> req :event first))

(defmulti ws-handler ws-handler-dispatch-fn)


(ns pc.http.sente
  (:require [clojure.core.async :as async]
            [clojure.set :as set]
            [clojure.string :as str]
            [clojure.tools.logging :as log]
            [taoensso.sente :as sente])
  (:import java.util.UUID))
