@@ -799,6 +799,7 @@ data Player = Player'
799799 , _pTitle :: !(Maybe Text)
800800 , _pBannerURLPortrait :: !(Maybe Text)
801801 , _pPlayerId :: !(Maybe Text)
802+ , _pProFileSettings :: !(Maybe ProFileSettings)
802803 } deriving (Eq,Show,Data,Typeable,Generic)
803804
804805-- | Creates a value of 'Player' with the minimum fields required to make a request.
@@ -826,6 +827,8 @@ data Player = Player'
826827-- * 'pBannerURLPortrait'
827828--
828829-- * 'pPlayerId'
830+--
831+-- * 'pProFileSettings'
829832player
830833 :: Player
831834player =
@@ -841,6 +844,7 @@ player =
841844 , _pTitle = Nothing
842845 , _pBannerURLPortrait = Nothing
843846 , _pPlayerId = Nothing
847+ , _pProFileSettings = Nothing
844848 }
845849
846850-- | The url to the landscape mode player banner image.
@@ -909,6 +913,13 @@ pPlayerId :: Lens' Player (Maybe Text)
909913pPlayerId
910914 = lens _pPlayerId (\ s a -> s{_pPlayerId = a})
911915
916+-- | The player\'s profile settings. Controls whether or not the player\'s
917+-- profile is visible to other players.
918+pProFileSettings :: Lens' Player (Maybe ProFileSettings)
919+pProFileSettings
920+ = lens _pProFileSettings
921+ (\ s a -> s{_pProFileSettings = a})
922+
912923instance FromJSON Player where
913924 parseJSON
914925 = withObject "Player"
@@ -924,7 +935,8 @@ instance FromJSON Player where
924935 <*> (o .:? "displayName")
925936 <*> (o .:? "title")
926937 <*> (o .:? "bannerUrlPortrait")
927− <*> (o .:? "playerId"))
938+ <*> (o .:? "playerId")
939+ <*> (o .:? "profileSettings"))
928940
929941instance ToJSON Player where
930942 toJSON Player'{..}
@@ -940,7 +952,58 @@ instance ToJSON Player where
940952 ("displayName" .=) <$> _pDisplayName,
941953 ("title" .=) <$> _pTitle,
942954 ("bannerUrlPortrait" .=) <$> _pBannerURLPortrait,
943− ("playerId" .=) <$> _pPlayerId])
955+ ("playerId" .=) <$> _pPlayerId,
956+ ("profileSettings" .=) <$> _pProFileSettings])
957+
958+-- | This is a JSON template for profile settings
959+--
960+-- /See:/ 'proFileSettings' smart constructor.
961+data ProFileSettings = ProFileSettings'
962+ { _pfsProFileVisible :: !(Maybe Bool)
963+ , _pfsKind :: !Text
964+ } deriving (Eq,Show,Data,Typeable,Generic)
965+
966+-- | Creates a value of 'ProFileSettings' with the minimum fields required to make a request.
967+--
968+-- Use one of the following lenses to modify other fields as desired:
969+--
970+-- * 'pfsProFileVisible'
971+--
972+-- * 'pfsKind'
973+proFileSettings
974+ :: ProFileSettings
975+proFileSettings =
976+ ProFileSettings'
977+ { _pfsProFileVisible = Nothing
978+ , _pfsKind = "gamesManagement#profileSettings"
979+ }
980+
981+-- | The player\'s current profile visibility. This field is visible to both
982+-- 1P and 3P APIs.
983+pfsProFileVisible :: Lens' ProFileSettings (Maybe Bool)
984+pfsProFileVisible
985+ = lens _pfsProFileVisible
986+ (\ s a -> s{_pfsProFileVisible = a})
987+
988+-- | Uniquely identifies the type of this resource. Value is always the fixed
989+-- string gamesManagement#profileSettings.
990+pfsKind :: Lens' ProFileSettings Text
991+pfsKind = lens _pfsKind (\ s a -> s{_pfsKind = a})
992+
993+instance FromJSON ProFileSettings where
994+ parseJSON
995+ = withObject "ProFileSettings"
996+ (\ o ->
997+ ProFileSettings' <$>
998+ (o .:? "profileVisible") <*>
999+ (o .:? "kind" .!= "gamesManagement#profileSettings"))
1000+
1001+instance ToJSON ProFileSettings where
1002+ toJSON ProFileSettings'{..}
1003+ = object
1004+ (catMaybes
1005+ [("profileVisible" .=) <$> _pfsProFileVisible,
1006+ Just ("kind" .= _pfsKind)])
9441007
9451008-- | This is a JSON template for an achievement reset response.
9461009--