addPlayer :: Player -> WorldS ()
addPlayer ply = players %= (Map.insert (ply ^. pClientKey) ply)
addPlayer :: Player -> WorldS ()
addPlayer ply = players %= (Map.insert (ply ^. pClientKey) ply)
addPlayer ply = players %= (Map.insert (ply ^. pClientKey) ply)