   [_]
   (fn [{:keys [chan-id] :as socket-user}
       {:keys [game-id]}]
-    (remove-chan-form-room game-id chan-id)))
+    (remove-chan-from-room game-id chan-id)))
 
 (defn- broadcast-game-message
   [game-id formatted-message]

        (map (fn [game-id {players :players}]
               (let [contains-connection? (chan-id players)]
                 (when contains-connection?
                   (remove-chan-form-room game-id chan-id))))
             @game-rooms)
        ;; Remove channel from connections
        (swap! connections dissoc chan-id)))))

(def ^:private game-rooms (atom {}))
(def ^:private connections (atom {}))

(defn- remove-chan-from-room
  [game-id chan-id]
  (swap! game-rooms update-in [game-id :players] dissoc chan-id))

