@@ -7601,6 +7601,7 @@ data Player = Player'
7601 , _plaTitle :: !(Maybe Text)
7601 , _plaTitle :: !(Maybe Text)
7602 , _plaBannerURLPortrait :: !(Maybe Text)
7602 , _plaBannerURLPortrait :: !(Maybe Text)
7603 , _plaPlayerId :: !(Maybe Text)
7603 , _plaPlayerId :: !(Maybe Text)
7604+ , _plaProFileSettings :: !(Maybe ProFileSettings)
7604 } deriving (Eq,Show,Data,Typeable,Generic)
7605 } deriving (Eq,Show,Data,Typeable,Generic)
7606-- | Creates a value of 'Player' with the minimum fields required to make a request.
7607-- | Creates a value of 'Player' with the minimum fields required to make a request.
@@ -7628,6 +7629,8 @@ data Player = Player'
7628-- * 'plaBannerURLPortrait'
7629-- * 'plaBannerURLPortrait'
7630-- * 'plaPlayerId'
7631-- * 'plaPlayerId'
7633+-- * 'plaProFileSettings'
7632 :: Player
7635 :: Player
@@ -7643,6 +7646,7 @@ player =
7643 , _plaTitle = Nothing
7646 , _plaTitle = Nothing
7644 , _plaBannerURLPortrait = Nothing
7647 , _plaBannerURLPortrait = Nothing
7645 , _plaPlayerId = Nothing
7648 , _plaPlayerId = Nothing
7649+ , _plaProFileSettings = Nothing
7648-- | The url to the landscape mode player banner image.
7652-- | The url to the landscape mode player banner image.
@@ -7712,6 +7716,13 @@ plaPlayerId :: Lens' Player (Maybe Text)
7712plaPlayerId
7716plaPlayerId
7713 = lens _plaPlayerId (\ s a -> s{_plaPlayerId = a})
7717 = lens _plaPlayerId (\ s a -> s{_plaPlayerId = a})
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)
7723+ = lens _plaProFileSettings
7724+ (\ s a -> s{_plaProFileSettings = a})
7715instance FromJSON Player where
7726instance FromJSON Player where
7716 parseJSON
7727 parseJSON
7717 = withObject "Player"
7728 = withObject "Player"
@@ -7727,7 +7738,8 @@ instance FromJSON Player where
7727 <*> (o .:? "displayName")
7738 <*> (o .:? "displayName")
7728 <*> (o .:? "title")
7739 <*> (o .:? "title")
7729 <*> (o .:? "bannerUrlPortrait")
7740 <*> (o .:? "bannerUrlPortrait")
7730− <*> (o .:? "playerId"))
7741+ <*> (o .:? "playerId")
7742+ <*> (o .:? "profileSettings"))
7732instance ToJSON Player where
7744instance ToJSON Player where
7733 toJSON Player'{..}
7745 toJSON Player'{..}
@@ -7744,7 +7756,8 @@ instance ToJSON Player where
7744 ("displayName" .=) <$> _plaDisplayName,
7756 ("displayName" .=) <$> _plaDisplayName,
7745 ("title" .=) <$> _plaTitle,
7757 ("title" .=) <$> _plaTitle,
7746 ("bannerUrlPortrait" .=) <$> _plaBannerURLPortrait,
7758 ("bannerUrlPortrait" .=) <$> _plaBannerURLPortrait,
7747− ("playerId" .=) <$> _plaPlayerId])
7759+ ("playerId" .=) <$> _plaPlayerId,
7760+ ("profileSettings" .=) <$> _plaProFileSettings])
7749-- | This is a JSON template for the payload to request to increment an
7762-- | This is a JSON template for the payload to request to increment an
7750-- achievement.
7763-- achievement.
@@ -8266,6 +8279,56 @@ instance ToJSON TurnBasedMatchDataRequest where
8266 [Just ("kind" .= _tbmdrKind),
8279 [Just ("kind" .= _tbmdrKind),
8267 ("data" .=) <$> _tbmdrData])
8280 ("data" .=) <$> _tbmdrData])
8282+-- | This is a JSON template for profile settings
8284+-- /See:/ 'proFileSettings' smart constructor.
8285+data ProFileSettings = ProFileSettings'
8286+ { _pfsProFileVisible :: !(Maybe Bool)
8287+ , _pfsKind :: !Text
8288+ } deriving (Eq,Show,Data,Typeable,Generic)
8290+-- | Creates a value of 'ProFileSettings' with the minimum fields required to make a request.
8292+-- Use one of the following lenses to modify other fields as desired:
8294+-- * 'pfsProFileVisible'
8301+ { _pfsProFileVisible = Nothing
8302+ , _pfsKind = "games#profileSettings"
8305+-- | The player\'s current profile visibility. This field is visible to both
8307+pfsProFileVisible :: Lens' ProFileSettings (Maybe Bool)
8309+ = lens _pfsProFileVisible
8310+ (\ s a -> s{_pfsProFileVisible = a})
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})
8317+instance FromJSON ProFileSettings where
8319+ = withObject "ProFileSettings"
8321+ ProFileSettings' <$>
8322+ (o .:? "profileVisible") <*>
8323+ (o .:? "kind" .!= "games#profileSettings"))
8325+instance ToJSON ProFileSettings where
8326+ toJSON ProFileSettings'{..}
8329+ [("profileVisible" .=) <$> _pfsProFileVisible,
8330+ Just ("kind" .= _pfsKind)])
8269-- | This is a JSON template for an event period time range.
8332-- | This is a JSON template for an event period time range.
8271-- /See:/ 'eventPeriodRange' smart constructor.
8334-- /See:/ 'eventPeriodRange' smart constructor.