@@ -7601,6 +7601,7 @@ data Player = Player'
76017601 , _plaTitle :: !(Maybe Text)
76027602 , _plaBannerURLPortrait :: !(Maybe Text)
76037603 , _plaPlayerId :: !(Maybe Text)
7604+ , _plaProFileSettings :: !(Maybe ProFileSettings)
76047605 } deriving (Eq,Show,Data,Typeable,Generic)
76057606
76067607-- | Creates a value of 'Player' with the minimum fields required to make a request.
@@ -7628,6 +7629,8 @@ data Player = Player'
76287629-- * 'plaBannerURLPortrait'
76297630--
76307631-- * 'plaPlayerId'
7632+--
7633+-- * 'plaProFileSettings'
76317634player
76327635 :: Player
76337636player =
@@ -7643,6 +7646,7 @@ player =
76437646 , _plaTitle = Nothing
76447647 , _plaBannerURLPortrait = Nothing
76457648 , _plaPlayerId = Nothing
7649+ , _plaProFileSettings = Nothing
76467650 }
76477651
76487652-- | The url to the landscape mode player banner image.
@@ -7712,6 +7716,13 @@ plaPlayerId :: Lens' Player (Maybe Text)
77127716plaPlayerId
77137717 = lens _plaPlayerId (\ s a -> s{_plaPlayerId = a})
77147718
7719+-- | The player\'s profile settings. Controls whether or not the player\'s
7720+-- profile is visible to other players.
7721+plaProFileSettings :: Lens' Player (Maybe ProFileSettings)
7722+plaProFileSettings
7723+ = lens _plaProFileSettings
7724+ (\ s a -> s{_plaProFileSettings = a})
7725+
77157726instance FromJSON Player where
77167727 parseJSON
77177728 = withObject "Player"
@@ -7727,7 +7738,8 @@ instance FromJSON Player where
77277738 <*> (o .:? "displayName")
77287739 <*> (o .:? "title")
77297740 <*> (o .:? "bannerUrlPortrait")
7730− <*> (o .:? "playerId"))
7741+ <*> (o .:? "playerId")
7742+ <*> (o .:? "profileSettings"))
77317743
77327744instance ToJSON Player where
77337745 toJSON Player'{..}
@@ -7744,7 +7756,8 @@ instance ToJSON Player where
77447756 ("displayName" .=) <$> _plaDisplayName,
77457757 ("title" .=) <$> _plaTitle,
77467758 ("bannerUrlPortrait" .=) <$> _plaBannerURLPortrait,
7747− ("playerId" .=) <$> _plaPlayerId])
7759+ ("playerId" .=) <$> _plaPlayerId,
7760+ ("profileSettings" .=) <$> _plaProFileSettings])
77487761
77497762-- | This is a JSON template for the payload to request to increment an
77507763-- achievement.
@@ -8266,6 +8279,56 @@ instance ToJSON TurnBasedMatchDataRequest where
82668279 [Just ("kind" .= _tbmdrKind),
82678280 ("data" .=) <$> _tbmdrData])
82688281
8282+-- | This is a JSON template for profile settings
8283+--
8284+-- /See:/ 'proFileSettings' smart constructor.
8285+data ProFileSettings = ProFileSettings'
8286+ { _pfsProFileVisible :: !(Maybe Bool)
8287+ , _pfsKind :: !Text
8288+ } deriving (Eq,Show,Data,Typeable,Generic)
8289+
8290+-- | Creates a value of 'ProFileSettings' with the minimum fields required to make a request.
8291+--
8292+-- Use one of the following lenses to modify other fields as desired:
8293+--
8294+-- * 'pfsProFileVisible'
8295+--
8296+-- * 'pfsKind'
8297+proFileSettings
8298+ :: ProFileSettings
8299+proFileSettings =
8300+ ProFileSettings'
8301+ { _pfsProFileVisible = Nothing
8302+ , _pfsKind = "games#profileSettings"
8303+ }
8304+
8305+-- | The player\'s current profile visibility. This field is visible to both
8306+-- 1P and 3P APIs.
8307+pfsProFileVisible :: Lens' ProFileSettings (Maybe Bool)
8308+pfsProFileVisible
8309+ = lens _pfsProFileVisible
8310+ (\ s a -> s{_pfsProFileVisible = a})
8311+
8312+-- | Uniquely identifies the type of this resource. Value is always the fixed
8313+-- string games#profileSettings.
8314+pfsKind :: Lens' ProFileSettings Text
8315+pfsKind = lens _pfsKind (\ s a -> s{_pfsKind = a})
8316+
8317+instance FromJSON ProFileSettings where
8318+ parseJSON
8319+ = withObject "ProFileSettings"
8320+ (\ o ->
8321+ ProFileSettings' <$>
8322+ (o .:? "profileVisible") <*>
8323+ (o .:? "kind" .!= "games#profileSettings"))
8324+
8325+instance ToJSON ProFileSettings where
8326+ toJSON ProFileSettings'{..}
8327+ = object
8328+ (catMaybes
8329+ [("profileVisible" .=) <$> _pfsProFileVisible,
8330+ Just ("kind" .= _pfsKind)])
8331+
82698332-- | This is a JSON template for an event period time range.
82708333--
82718334-- /See:/ 'eventPeriodRange' smart constructor.