23d171e · gogol · git.iko.soy

git.iko.soy/gogol

on develop help sign in

Regenerating gogol-games-management from latest service definition

23d171eBrendan Hay10 years ago

gogol-games-management/gen/Network/Google/GamesManagement.hs+7

compare with develop

unifiedsplit

@@ -211,6 +211,13 @@ module Network.Google.GamesManagement

211 , pTitle

212 , pBannerURLPortrait

213 , pPlayerId

214+ , pProFileSettings

215+

216+ -- ** ProFileSettings

217+ , ProFileSettings

218+ , proFileSettings

219+ , pfsProFileVisible

220+ , pfsKind

214

221

215 -- ** AchievementResetResponse

222 -- ** AchievementResetResponse

216 , AchievementResetResponse

223 , AchievementResetResponse

gogol-games-management/gen/Network/Google/GamesManagement/Types.hs+7

@@ -121,6 +121,13 @@ module Network.Google.GamesManagement.Types

121 , pTitle

122 , pBannerURLPortrait

123 , pPlayerId

124+ , pProFileSettings

125+

126+ -- * ProFileSettings

127+ , ProFileSettings

128+ , proFileSettings

129+ , pfsProFileVisible

130+ , pfsKind

124

131

125 -- * AchievementResetResponse

132 -- * AchievementResetResponse

126 , AchievementResetResponse

133 , AchievementResetResponse

gogol-games-management/gen/Network/Google/GamesManagement/Types/Product.hs+65−2

@@ -799,6 +799,7 @@ data Player = Player'

799 , _pTitle :: !(Maybe Text)

800 , _pBannerURLPortrait :: !(Maybe Text)

801 , _pPlayerId :: !(Maybe Text)

802+ , _pProFileSettings :: !(Maybe ProFileSettings)

802 } deriving (Eq,Show,Data,Typeable,Generic)

803 } deriving (Eq,Show,Data,Typeable,Generic)

803

804

804-- | Creates a value of 'Player' with the minimum fields required to make a request.

805-- | Creates a value of 'Player' with the minimum fields required to make a request.

@@ -826,6 +827,8 @@ data Player = Player'

826-- * 'pBannerURLPortrait'

827-- * 'pBannerURLPortrait'

827--

828--

828-- * 'pPlayerId'

829-- * 'pPlayerId'

830+--

831+-- * 'pProFileSettings'

829player

832player

830 :: Player

833 :: Player

831player =

834player =

@@ -841,6 +844,7 @@ player =

841 , _pTitle = Nothing

844 , _pTitle = Nothing

842 , _pBannerURLPortrait = Nothing

845 , _pBannerURLPortrait = Nothing

843 , _pPlayerId = Nothing

846 , _pPlayerId = Nothing

847+ , _pProFileSettings = Nothing

844 }

848 }

845

849

846-- | The url to the landscape mode player banner image.

850-- | The url to the landscape mode player banner image.

@@ -909,6 +913,13 @@ pPlayerId :: Lens' Player (Maybe Text)

909pPlayerId

913pPlayerId

910 = lens _pPlayerId (\ s a -> s{_pPlayerId = a})

914 = lens _pPlayerId (\ s a -> s{_pPlayerId = a})

911

915

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+

912instance FromJSON Player where

923instance FromJSON Player where

913 parseJSON

924 parseJSON

914 = withObject "Player"

925 = withObject "Player"

@@ -924,7 +935,8 @@ instance FromJSON Player where

924 <*> (o .:? "displayName")

935 <*> (o .:? "displayName")

925 <*> (o .:? "title")

936 <*> (o .:? "title")

926 <*> (o .:? "bannerUrlPortrait")

937 <*> (o .:? "bannerUrlPortrait")

927− <*> (o .:? "playerId"))

938+ <*> (o .:? "playerId")

939+ <*> (o .:? "profileSettings"))

928

940

929instance ToJSON Player where

941instance ToJSON Player where

930 toJSON Player'{..}

942 toJSON Player'{..}

@@ -940,7 +952,58 @@ instance ToJSON Player where

940 ("displayName" .=) <$> _pDisplayName,

952 ("displayName" .=) <$> _pDisplayName,

941 ("title" .=) <$> _pTitle,

953 ("title" .=) <$> _pTitle,

942 ("bannerUrlPortrait" .=) <$> _pBannerURLPortrait,

954 ("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)])

944

1007

945-- | This is a JSON template for an achievement reset response.

1008-- | This is a JSON template for an achievement reset response.

946--

1009--