       (game-chat-process game-uuid
                          player1-id
                          player1-chan
+                         player1-name
                          player2-id
-                         player2-chan))))
+                         player2-chan
+                         player2-name))))

            (recur new-game-map (a/timeout turn-time-delay))))))))


(defn game-chat-process [game-id p1-id p1-ch p2-id p2-ch]
  (u/log "Starting game chat process")
  (a/go-loop []
    (let [[value ch] (c/read-cmd-from-chs [p1-ch p2-ch]

          (do (c/write-cmd-to-chs
               [p1-ch p2-ch]
               {:type :chat-message-response
                :data {:player-id p2-name
                       :message (get-in value [:data :message])}}
               true)
              (recur)))))))
