changePlayerSettingsReset :: ClientKey -> PlayerSettingsReset -> WorldS ()
changePlayerSettingsReset key settings = getPlayer key >>= \plyM ->
  case plyM of
    Nothing  -> return ()
    Just ply -> players %= Map.insert
      (ply ^. pClientKey)
      (playerReset key (ply ^. pName) settings)
changePlayerSettingsReset :: ClientKey -> PlayerSettingsReset -> WorldS ()
changePlayerSettingsReset key settings = getPlayer key >>= \plyM ->
  case plyM of
    Nothing  -> return ()
    Just ply -> players %= Map.insert
      (ply ^. pClientKey)
      (playerReset key (ply ^. pName) settings)
changePlayerSettingsReset key settings = getPlayer key >>= \plyM ->
  case plyM of
    Nothing  -> return ()
    Just ply -> players %= Map.insert
      (ply ^. pClientKey)
      (playerReset key (ply ^. pName) settings)