             (recur new-game-map (a/timeout turn-time-delay))))))))
 
 
-(defn game-chat-process [game-id p1-id p1-ch p2-id p2-ch]
+(defn game-chat-process [game-id p1-id p1-ch p1-name p2-id p2-ch p2-name]
   (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 p1-id
                       :message (get-in value [:data :message])
                       }}
               true)

          (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)))))))
