changePlayerSettings :: ClientKey -> PlayerSettings -> WorldS ()
changePlayerSettings key settings = getPlayer key >>= \plyM -> case plyM of
  Nothing -> return ()
  Just ply ->
    players %= Map.insert (ply ^. pClientKey) (newPlayer key settings)
changePlayerSettings :: ClientKey -> PlayerSettings -> WorldS ()
changePlayerSettings key settings = getPlayer key >>= \plyM -> case plyM of
  Nothing -> return ()
  Just ply ->
    players %= Map.insert (ply ^. pClientKey) (newPlayer key settings)
changePlayerSettings key settings = getPlayer key >>= \plyM -> case plyM of
  Nothing -> return ()
  Just ply ->
    players %= Map.insert (ply ^. pClientKey) (newPlayer key settings)