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

          msg-payload (get msg :payload {})
          msg-fn (msg-type handler-map)]

      ;; Log in dev mode
      (println "\n---------- Start Client Message ----------")
      (clojure.pprint/pprint msg)
      (println "------------ End Client Message ----------\n\n")

      (msg-fn socket-user msg-payload))))


  [_]
  (fn [{:keys [chan-id] :as socket-user}
      {:keys [game-id]}]
    (remove-chan-from-room game-id chan-id)))

(defn- broadcast-game-message
  [game-id formatted-message]
