95189ea · gogol · git.iko.soy

gogol-games/gen/Network/Google/Resource/Games/AchievementDefinitions/List.hs+24−10

compare with develop

unifiedsplit

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.AchievementDefinitions.List

33 , AchievementDefinitionsList

34

35 -- * Request Lenses

36+ , adlConsistencyToken

36 , adlLanguage

37 , adlLanguage

37 , adlPageToken

38 , adlPageToken

38 , adlMaxResults

39 , adlMaxResults

@@ -47,25 +48,29 @@ type AchievementDefinitionsListResource =

47 "games" :>

48 "games" :>

48 "v1" :>

49 "v1" :>

49 "achievements" :>

50 "achievements" :>

50− QueryParam "language" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "pageToken" Text :>

52+ QueryParam "language" Text :>

53+ QueryParam "pageToken" Text :>

52− QueryParam "maxResults" (Textual Int32) :>

54+ QueryParam "maxResults" (Textual Int32) :>

53− QueryParam "alt" AltJSON :>

55+ QueryParam "alt" AltJSON :>

54− Get '[JSON] AchievementDefinitionsListResponse

56+ Get '[JSON] AchievementDefinitionsListResponse

55

57

56-- | Lists all the achievement definitions for your application.

58-- | Lists all the achievement definitions for your application.

57--

59--

58-- /See:/ 'achievementDefinitionsList' smart constructor.

60-- /See:/ 'achievementDefinitionsList' smart constructor.

59data AchievementDefinitionsList = AchievementDefinitionsList'

61data AchievementDefinitionsList = AchievementDefinitionsList'

62+ { _adlConsistencyToken :: !(Maybe (Textual Int64))

60− { _adlLanguage :: !(Maybe Text)

63+ , _adlLanguage :: !(Maybe Text)

61− , _adlPageToken :: !(Maybe Text)

64+ , _adlPageToken :: !(Maybe Text)

62− , _adlMaxResults :: !(Maybe (Textual Int32))

65+ , _adlMaxResults :: !(Maybe (Textual Int32))

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

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

64

67

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

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

66--

69--

67-- Use one of the following lenses to modify other fields as desired:

70-- Use one of the following lenses to modify other fields as desired:

68--

71--

72+-- * 'adlConsistencyToken'

73+--

69-- * 'adlLanguage'

74-- * 'adlLanguage'

70--

75--

71-- * 'adlPageToken'

76-- * 'adlPageToken'

@@ -75,11 +80,19 @@ achievementDefinitionsList

75 :: AchievementDefinitionsList

80 :: AchievementDefinitionsList

76achievementDefinitionsList =

81achievementDefinitionsList =

77 AchievementDefinitionsList'

82 AchievementDefinitionsList'

83+ { _adlConsistencyToken = Nothing

78− { _adlLanguage = Nothing

84+ , _adlLanguage = Nothing

79 , _adlPageToken = Nothing

85 , _adlPageToken = Nothing

80 , _adlMaxResults = Nothing

86 , _adlMaxResults = Nothing

81 }

87 }

82

88

89+-- | The last-seen mutation timestamp.

90+adlConsistencyToken :: Lens' AchievementDefinitionsList (Maybe Int64)

91+adlConsistencyToken

92+ = lens _adlConsistencyToken

93+ (\ s a -> s{_adlConsistencyToken = a})

94+ . mapping _Coerce

95+

83-- | The preferred language to use for strings returned by this method.

96-- | The preferred language to use for strings returned by this method.

84adlLanguage :: Lens' AchievementDefinitionsList (Maybe Text)

97adlLanguage :: Lens' AchievementDefinitionsList (Maybe Text)

85adlLanguage

98adlLanguage

@@ -107,7 +120,8 @@ instance GoogleRequest AchievementDefinitionsList

107 '["https://www.googleapis.com/auth/games",

120 '["https://www.googleapis.com/auth/games",

108 "https://www.googleapis.com/auth/plus.login"]

121 "https://www.googleapis.com/auth/plus.login"]

109 requestClient AchievementDefinitionsList'{..}

122 requestClient AchievementDefinitionsList'{..}

110− = go _adlLanguage _adlPageToken _adlMaxResults

123+ = go _adlConsistencyToken _adlLanguage _adlPageToken

124+ _adlMaxResults

111 (Just AltJSON)

125 (Just AltJSON)

112 gamesService

126 gamesService

113 where go

127 where go

gogol-games/gen/Network/Google/Resource/Games/Achievements/Increment.hs+16−2

@@ -36,6 +36,7 @@ module Network.Google.Resource.Games.Achievements.Increment

36 -- * Request Lenses

37 , aiRequestId

38 , aiAchievementId

39+ , aiConsistencyToken

39 , aiStepsToIncrement

40 , aiStepsToIncrement

40 ) where

41 ) where

41

42

@@ -52,8 +53,9 @@ type AchievementsIncrementResource =

52 "increment" :>

53 "increment" :>

53 QueryParam "stepsToIncrement" (Textual Int32) :>

54 QueryParam "stepsToIncrement" (Textual Int32) :>

54 QueryParam "requestId" (Textual Int64) :>

55 QueryParam "requestId" (Textual Int64) :>

56+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "alt" AltJSON :>

57+ QueryParam "alt" AltJSON :>

56− Post '[JSON] AchievementIncrementResponse

58+ Post '[JSON] AchievementIncrementResponse

57

59

58-- | Increments the steps of the achievement with the given ID for the

60-- | Increments the steps of the achievement with the given ID for the

59-- currently authenticated player.

61-- currently authenticated player.

@@ -62,6 +64,7 @@ type AchievementsIncrementResource =

62data AchievementsIncrement = AchievementsIncrement'

64data AchievementsIncrement = AchievementsIncrement'

63 { _aiRequestId :: !(Maybe (Textual Int64))

65 { _aiRequestId :: !(Maybe (Textual Int64))

64 , _aiAchievementId :: !Text

66 , _aiAchievementId :: !Text

67+ , _aiConsistencyToken :: !(Maybe (Textual Int64))

65 , _aiStepsToIncrement :: !(Textual Int32)

68 , _aiStepsToIncrement :: !(Textual Int32)

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

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

67

70

@@ -73,6 +76,8 @@ data AchievementsIncrement = AchievementsIncrement'

73--

76--

74-- * 'aiAchievementId'

77-- * 'aiAchievementId'

75--

78--

79+-- * 'aiConsistencyToken'

80+--

76-- * 'aiStepsToIncrement'

81-- * 'aiStepsToIncrement'

77achievementsIncrement

82achievementsIncrement

78 :: Text -- ^ 'aiAchievementId'

83 :: Text -- ^ 'aiAchievementId'

@@ -82,6 +87,7 @@ achievementsIncrement pAiAchievementId_ pAiStepsToIncrement_ =

82 AchievementsIncrement'

87 AchievementsIncrement'

83 { _aiRequestId = Nothing

88 { _aiRequestId = Nothing

84 , _aiAchievementId = pAiAchievementId_

89 , _aiAchievementId = pAiAchievementId_

90+ , _aiConsistencyToken = Nothing

85 , _aiStepsToIncrement = _Coerce # pAiStepsToIncrement_

91 , _aiStepsToIncrement = _Coerce # pAiStepsToIncrement_

86 }

92 }

87

93

@@ -99,6 +105,13 @@ aiAchievementId

99 = lens _aiAchievementId

105 = lens _aiAchievementId

100 (\ s a -> s{_aiAchievementId = a})

106 (\ s a -> s{_aiAchievementId = a})

101

107

108+-- | The last-seen mutation timestamp.

109+aiConsistencyToken :: Lens' AchievementsIncrement (Maybe Int64)

110+aiConsistencyToken

111+ = lens _aiConsistencyToken

112+ (\ s a -> s{_aiConsistencyToken = a})

113+ . mapping _Coerce

114+

102-- | The number of steps to increment.

115-- | The number of steps to increment.

103aiStepsToIncrement :: Lens' AchievementsIncrement Int32

116aiStepsToIncrement :: Lens' AchievementsIncrement Int32

104aiStepsToIncrement

117aiStepsToIncrement

@@ -115,6 +128,7 @@ instance GoogleRequest AchievementsIncrement where

115 requestClient AchievementsIncrement'{..}

128 requestClient AchievementsIncrement'{..}

116 = go _aiAchievementId (Just _aiStepsToIncrement)

129 = go _aiAchievementId (Just _aiStepsToIncrement)

117 _aiRequestId

130 _aiRequestId

131+ _aiConsistencyToken

118 (Just AltJSON)

132 (Just AltJSON)

119 gamesService

133 gamesService

120 where go

134 where go

gogol-games/gen/Network/Google/Resource/Games/Achievements/List.hs+26−11

@@ -35,6 +35,7 @@ module Network.Google.Resource.Games.Achievements.List

35

36 -- * Request Lenses

37 , alState

38+ , alConsistencyToken

38 , alLanguage

39 , alLanguage

39 , alPageToken

40 , alPageToken

40 , alPlayerId

41 , alPlayerId

@@ -53,22 +54,24 @@ type AchievementsListResource =

53 Capture "playerId" Text :>

54 Capture "playerId" Text :>

54 "achievements" :>

55 "achievements" :>

55 QueryParam "state" AchievementsListState :>

56 QueryParam "state" AchievementsListState :>

56− QueryParam "language" Text :>

57+ QueryParam "consistencyToken" (Textual Int64) :>

57− QueryParam "pageToken" Text :>

58+ QueryParam "language" Text :>

59+ QueryParam "pageToken" Text :>

58− QueryParam "maxResults" (Textual Int32) :>

60+ QueryParam "maxResults" (Textual Int32) :>

59− QueryParam "alt" AltJSON :>

61+ QueryParam "alt" AltJSON :>

60− Get '[JSON] PlayerAchievementListResponse

62+ Get '[JSON] PlayerAchievementListResponse

61

63

62-- | Lists the progress for all your application\'s achievements for the

64-- | Lists the progress for all your application\'s achievements for the

63-- currently authenticated player.

65-- currently authenticated player.

64--

66--

65-- /See:/ 'achievementsList' smart constructor.

67-- /See:/ 'achievementsList' smart constructor.

66data AchievementsList = AchievementsList'

68data AchievementsList = AchievementsList'

67− { _alState :: !(Maybe AchievementsListState)

69+ { _alState :: !(Maybe AchievementsListState)

70+ , _alConsistencyToken :: !(Maybe (Textual Int64))

68− , _alLanguage :: !(Maybe Text)

71+ , _alLanguage :: !(Maybe Text)

69− , _alPageToken :: !(Maybe Text)

72+ , _alPageToken :: !(Maybe Text)

70− , _alPlayerId :: !Text

73+ , _alPlayerId :: !Text

71− , _alMaxResults :: !(Maybe (Textual Int32))

74+ , _alMaxResults :: !(Maybe (Textual Int32))

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

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

73

76

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

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

@@ -77,6 +80,8 @@ data AchievementsList = AchievementsList'

77--

80--

78-- * 'alState'

81-- * 'alState'

79--

82--

83+-- * 'alConsistencyToken'

84+--

80-- * 'alLanguage'

85-- * 'alLanguage'

81--

86--

82-- * 'alPageToken'

87-- * 'alPageToken'

@@ -90,6 +95,7 @@ achievementsList

90achievementsList pAlPlayerId_ =

95achievementsList pAlPlayerId_ =

91 AchievementsList'

96 AchievementsList'

92 { _alState = Nothing

97 { _alState = Nothing

98+ , _alConsistencyToken = Nothing

93 , _alLanguage = Nothing

99 , _alLanguage = Nothing

94 , _alPageToken = Nothing

100 , _alPageToken = Nothing

95 , _alPlayerId = pAlPlayerId_

101 , _alPlayerId = pAlPlayerId_

@@ -101,6 +107,13 @@ achievementsList pAlPlayerId_ =

101alState :: Lens' AchievementsList (Maybe AchievementsListState)

107alState :: Lens' AchievementsList (Maybe AchievementsListState)

102alState = lens _alState (\ s a -> s{_alState = a})

108alState = lens _alState (\ s a -> s{_alState = a})

103

109

110+-- | The last-seen mutation timestamp.

111+alConsistencyToken :: Lens' AchievementsList (Maybe Int64)

112+alConsistencyToken

113+ = lens _alConsistencyToken

114+ (\ s a -> s{_alConsistencyToken = a})

115+ . mapping _Coerce

116+

104-- | The preferred language to use for strings returned by this method.

117-- | The preferred language to use for strings returned by this method.

105alLanguage :: Lens' AchievementsList (Maybe Text)

118alLanguage :: Lens' AchievementsList (Maybe Text)

106alLanguage

119alLanguage

@@ -132,7 +145,9 @@ instance GoogleRequest AchievementsList where

132 '["https://www.googleapis.com/auth/games",

145 '["https://www.googleapis.com/auth/games",

133 "https://www.googleapis.com/auth/plus.login"]

146 "https://www.googleapis.com/auth/plus.login"]

134 requestClient AchievementsList'{..}

147 requestClient AchievementsList'{..}

135− = go _alPlayerId _alState _alLanguage _alPageToken

148+ = go _alPlayerId _alState _alConsistencyToken

149+ _alLanguage

150+ _alPageToken

136 _alMaxResults

151 _alMaxResults

137 (Just AltJSON)

152 (Just AltJSON)

138 gamesService

153 gamesService

gogol-games/gen/Network/Google/Resource/Games/Achievements/Reveal.hs+20−5

@@ -35,6 +35,7 @@ module Network.Google.Resource.Games.Achievements.Reveal

35

36 -- * Request Lenses

37 , arAchievementId

38+ , arConsistencyToken

38 ) where

39 ) where

39

40

40import Network.Google.Games.Types

41import Network.Google.Games.Types

@@ -48,15 +49,17 @@ type AchievementsRevealResource =

48 "achievements" :>

49 "achievements" :>

49 Capture "achievementId" Text :>

50 Capture "achievementId" Text :>

50 "reveal" :>

51 "reveal" :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "alt" AltJSON :>

53+ QueryParam "alt" AltJSON :>

52− Post '[JSON] AchievementRevealResponse

54+ Post '[JSON] AchievementRevealResponse

53

55

54-- | Sets the state of the achievement with the given ID to REVEALED for the

56-- | Sets the state of the achievement with the given ID to REVEALED for the

55-- currently authenticated player.

57-- currently authenticated player.

56--

58--

57-- /See:/ 'achievementsReveal' smart constructor.

59-- /See:/ 'achievementsReveal' smart constructor.

58−newtype AchievementsReveal = AchievementsReveal'

60+data AchievementsReveal = AchievementsReveal'

59− { _arAchievementId :: Text

61+ { _arAchievementId :: !Text

62+ , _arConsistencyToken :: !(Maybe (Textual Int64))

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

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

61

64

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

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

@@ -64,12 +67,15 @@ newtype AchievementsReveal = AchievementsReveal'

64-- Use one of the following lenses to modify other fields as desired:

67-- Use one of the following lenses to modify other fields as desired:

65--

68--

66-- * 'arAchievementId'

69-- * 'arAchievementId'

70+--

71+-- * 'arConsistencyToken'

67achievementsReveal

72achievementsReveal

68 :: Text -- ^ 'arAchievementId'

73 :: Text -- ^ 'arAchievementId'

69 -> AchievementsReveal

74 -> AchievementsReveal

70achievementsReveal pArAchievementId_ =

75achievementsReveal pArAchievementId_ =

71 AchievementsReveal'

76 AchievementsReveal'

72 { _arAchievementId = pArAchievementId_

77 { _arAchievementId = pArAchievementId_

78+ , _arConsistencyToken = Nothing

73 }

79 }

74

80

75-- | The ID of the achievement used by this method.

81-- | The ID of the achievement used by this method.

@@ -78,6 +84,13 @@ arAchievementId

78 = lens _arAchievementId

84 = lens _arAchievementId

79 (\ s a -> s{_arAchievementId = a})

85 (\ s a -> s{_arAchievementId = a})

80

86

87+-- | The last-seen mutation timestamp.

88+arConsistencyToken :: Lens' AchievementsReveal (Maybe Int64)

89+arConsistencyToken

90+ = lens _arConsistencyToken

91+ (\ s a -> s{_arConsistencyToken = a})

92+ . mapping _Coerce

93+

81instance GoogleRequest AchievementsReveal where

94instance GoogleRequest AchievementsReveal where

82 type Rs AchievementsReveal =

95 type Rs AchievementsReveal =

83 AchievementRevealResponse

96 AchievementRevealResponse

@@ -85,7 +98,9 @@ instance GoogleRequest AchievementsReveal where

85 '["https://www.googleapis.com/auth/games",

98 '["https://www.googleapis.com/auth/games",

86 "https://www.googleapis.com/auth/plus.login"]

99 "https://www.googleapis.com/auth/plus.login"]

87 requestClient AchievementsReveal'{..}

100 requestClient AchievementsReveal'{..}

88− = go _arAchievementId (Just AltJSON) gamesService

101+ = go _arAchievementId _arConsistencyToken

102+ (Just AltJSON)

103+ gamesService

89 where go

104 where go

90 = buildClient

105 = buildClient

91 (Proxy :: Proxy AchievementsRevealResource)

106 (Proxy :: Proxy AchievementsRevealResource)

gogol-games/gen/Network/Google/Resource/Games/Achievements/SetStepsAtLeast.hs+18−4

@@ -37,6 +37,7 @@ module Network.Google.Resource.Games.Achievements.SetStepsAtLeast

37

38 -- * Request Lenses

39 , assalAchievementId

40+ , assalConsistencyToken

40 , assalSteps

41 , assalSteps

41 ) where

42 ) where

42

43

@@ -52,8 +53,9 @@ type AchievementsSetStepsAtLeastResource =

52 Capture "achievementId" Text :>

53 Capture "achievementId" Text :>

53 "setStepsAtLeast" :>

54 "setStepsAtLeast" :>

54 QueryParam "steps" (Textual Int32) :>

55 QueryParam "steps" (Textual Int32) :>

56+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "alt" AltJSON :>

57+ QueryParam "alt" AltJSON :>

56− Post '[JSON] AchievementSetStepsAtLeastResponse

58+ Post '[JSON] AchievementSetStepsAtLeastResponse

57

59

58-- | Sets the steps for the currently authenticated player towards unlocking

60-- | Sets the steps for the currently authenticated player towards unlocking

59-- an achievement. If the steps parameter is less than the current number

61-- an achievement. If the steps parameter is less than the current number

@@ -62,8 +64,9 @@ type AchievementsSetStepsAtLeastResource =

62--

64--

63-- /See:/ 'achievementsSetStepsAtLeast' smart constructor.

65-- /See:/ 'achievementsSetStepsAtLeast' smart constructor.

64data AchievementsSetStepsAtLeast = AchievementsSetStepsAtLeast'

66data AchievementsSetStepsAtLeast = AchievementsSetStepsAtLeast'

65− { _assalAchievementId :: !Text

67+ { _assalAchievementId :: !Text

68+ , _assalConsistencyToken :: !(Maybe (Textual Int64))

66− , _assalSteps :: !(Textual Int32)

69+ , _assalSteps :: !(Textual Int32)

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

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

68

71

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

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

@@ -72,6 +75,8 @@ data AchievementsSetStepsAtLeast = AchievementsSetStepsAtLeast'

72--

75--

73-- * 'assalAchievementId'

76-- * 'assalAchievementId'

74--

77--

78+-- * 'assalConsistencyToken'

79+--

75-- * 'assalSteps'

80-- * 'assalSteps'

76achievementsSetStepsAtLeast

81achievementsSetStepsAtLeast

77 :: Text -- ^ 'assalAchievementId'

82 :: Text -- ^ 'assalAchievementId'

@@ -80,6 +85,7 @@ achievementsSetStepsAtLeast

80achievementsSetStepsAtLeast pAssalAchievementId_ pAssalSteps_ =

85achievementsSetStepsAtLeast pAssalAchievementId_ pAssalSteps_ =

81 AchievementsSetStepsAtLeast'

86 AchievementsSetStepsAtLeast'

82 { _assalAchievementId = pAssalAchievementId_

87 { _assalAchievementId = pAssalAchievementId_

88+ , _assalConsistencyToken = Nothing

83 , _assalSteps = _Coerce # pAssalSteps_

89 , _assalSteps = _Coerce # pAssalSteps_

84 }

90 }

85

91

@@ -89,6 +95,13 @@ assalAchievementId

89 = lens _assalAchievementId

95 = lens _assalAchievementId

90 (\ s a -> s{_assalAchievementId = a})

96 (\ s a -> s{_assalAchievementId = a})

91

97

98+-- | The last-seen mutation timestamp.

99+assalConsistencyToken :: Lens' AchievementsSetStepsAtLeast (Maybe Int64)

100+assalConsistencyToken

101+ = lens _assalConsistencyToken

102+ (\ s a -> s{_assalConsistencyToken = a})

103+ . mapping _Coerce

104+

92-- | The minimum value to set the steps to.

105-- | The minimum value to set the steps to.

93assalSteps :: Lens' AchievementsSetStepsAtLeast Int32

106assalSteps :: Lens' AchievementsSetStepsAtLeast Int32

94assalSteps

107assalSteps

@@ -104,6 +117,7 @@ instance GoogleRequest AchievementsSetStepsAtLeast

104 "https://www.googleapis.com/auth/plus.login"]

117 "https://www.googleapis.com/auth/plus.login"]

105 requestClient AchievementsSetStepsAtLeast'{..}

118 requestClient AchievementsSetStepsAtLeast'{..}

106 = go _assalAchievementId (Just _assalSteps)

119 = go _assalAchievementId (Just _assalSteps)

120+ _assalConsistencyToken

107 (Just AltJSON)

121 (Just AltJSON)

108 gamesService

122 gamesService

109 where go

123 where go

gogol-games/gen/Network/Google/Resource/Games/Achievements/Unlock.hs+20−5

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Achievements.Unlock

34

35 -- * Request Lenses

36 , auAchievementId

37+ , auConsistencyToken

37 ) where

38 ) where

38

39

39import Network.Google.Games.Types

40import Network.Google.Games.Types

@@ -47,14 +48,16 @@ type AchievementsUnlockResource =

47 "achievements" :>

48 "achievements" :>

48 Capture "achievementId" Text :>

49 Capture "achievementId" Text :>

49 "unlock" :>

50 "unlock" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "alt" AltJSON :>

52+ QueryParam "alt" AltJSON :>

51− Post '[JSON] AchievementUnlockResponse

53+ Post '[JSON] AchievementUnlockResponse

52

54

53-- | Unlocks this achievement for the currently authenticated player.

55-- | Unlocks this achievement for the currently authenticated player.

54--

56--

55-- /See:/ 'achievementsUnlock' smart constructor.

57-- /See:/ 'achievementsUnlock' smart constructor.

56−newtype AchievementsUnlock = AchievementsUnlock'

58+data AchievementsUnlock = AchievementsUnlock'

57− { _auAchievementId :: Text

59+ { _auAchievementId :: !Text

60+ , _auConsistencyToken :: !(Maybe (Textual Int64))

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

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

59

62

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

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

@@ -62,12 +65,15 @@ newtype AchievementsUnlock = AchievementsUnlock'

62-- Use one of the following lenses to modify other fields as desired:

65-- Use one of the following lenses to modify other fields as desired:

63--

66--

64-- * 'auAchievementId'

67-- * 'auAchievementId'

68+--

69+-- * 'auConsistencyToken'

65achievementsUnlock

70achievementsUnlock

66 :: Text -- ^ 'auAchievementId'

71 :: Text -- ^ 'auAchievementId'

67 -> AchievementsUnlock

72 -> AchievementsUnlock

68achievementsUnlock pAuAchievementId_ =

73achievementsUnlock pAuAchievementId_ =

69 AchievementsUnlock'

74 AchievementsUnlock'

70 { _auAchievementId = pAuAchievementId_

75 { _auAchievementId = pAuAchievementId_

76+ , _auConsistencyToken = Nothing

71 }

77 }

72

78

73-- | The ID of the achievement used by this method.

79-- | The ID of the achievement used by this method.

@@ -76,6 +82,13 @@ auAchievementId

76 = lens _auAchievementId

82 = lens _auAchievementId

77 (\ s a -> s{_auAchievementId = a})

83 (\ s a -> s{_auAchievementId = a})

78

84

85+-- | The last-seen mutation timestamp.

86+auConsistencyToken :: Lens' AchievementsUnlock (Maybe Int64)

87+auConsistencyToken

88+ = lens _auConsistencyToken

89+ (\ s a -> s{_auConsistencyToken = a})

90+ . mapping _Coerce

91+

79instance GoogleRequest AchievementsUnlock where

92instance GoogleRequest AchievementsUnlock where

80 type Rs AchievementsUnlock =

93 type Rs AchievementsUnlock =

81 AchievementUnlockResponse

94 AchievementUnlockResponse

@@ -83,7 +96,9 @@ instance GoogleRequest AchievementsUnlock where

83 '["https://www.googleapis.com/auth/games",

96 '["https://www.googleapis.com/auth/games",

84 "https://www.googleapis.com/auth/plus.login"]

97 "https://www.googleapis.com/auth/plus.login"]

85 requestClient AchievementsUnlock'{..}

98 requestClient AchievementsUnlock'{..}

86− = go _auAchievementId (Just AltJSON) gamesService

99+ = go _auAchievementId _auConsistencyToken

100+ (Just AltJSON)

101+ gamesService

87 where go

102 where go

88 = buildClient

103 = buildClient

89 (Proxy :: Proxy AchievementsUnlockResource)

104 (Proxy :: Proxy AchievementsUnlockResource)

gogol-games/gen/Network/Google/Resource/Games/Achievements/UpdateMultiple.hs+21−7

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Achievements.UpdateMultiple

33 , AchievementsUpdateMultiple

34

35 -- * Request Lenses

36+ , aumConsistencyToken

36 , aumPayload

37 , aumPayload

37 ) where

38 ) where

38

39

@@ -46,30 +47,42 @@ type AchievementsUpdateMultipleResource =

46 "v1" :>

47 "v1" :>

47 "achievements" :>

48 "achievements" :>

48 "updateMultiple" :>

49 "updateMultiple" :>

50+ QueryParam "consistencyToken" (Textual Int64) :>

49− QueryParam "alt" AltJSON :>

51+ QueryParam "alt" AltJSON :>

50− ReqBody '[JSON] AchievementUpdateMultipleRequest :>

52+ ReqBody '[JSON] AchievementUpdateMultipleRequest :>

51− Post '[JSON] AchievementUpdateMultipleResponse

53+ Post '[JSON] AchievementUpdateMultipleResponse

52

54

53-- | Updates multiple achievements for the currently authenticated player.

55-- | Updates multiple achievements for the currently authenticated player.

54--

56--

55-- /See:/ 'achievementsUpdateMultiple' smart constructor.

57-- /See:/ 'achievementsUpdateMultiple' smart constructor.

56−newtype AchievementsUpdateMultiple = AchievementsUpdateMultiple'

58+data AchievementsUpdateMultiple = AchievementsUpdateMultiple'

59+ { _aumConsistencyToken :: !(Maybe (Textual Int64))

57− { _aumPayload :: AchievementUpdateMultipleRequest

60+ , _aumPayload :: !AchievementUpdateMultipleRequest

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

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

59

62

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

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

61--

64--

62-- Use one of the following lenses to modify other fields as desired:

65-- Use one of the following lenses to modify other fields as desired:

63--

66--

67+-- * 'aumConsistencyToken'

68+--

64-- * 'aumPayload'

69-- * 'aumPayload'

65achievementsUpdateMultiple

70achievementsUpdateMultiple

66 :: AchievementUpdateMultipleRequest -- ^ 'aumPayload'

71 :: AchievementUpdateMultipleRequest -- ^ 'aumPayload'

67 -> AchievementsUpdateMultiple

72 -> AchievementsUpdateMultiple

68achievementsUpdateMultiple pAumPayload_ =

73achievementsUpdateMultiple pAumPayload_ =

69 AchievementsUpdateMultiple'

74 AchievementsUpdateMultiple'

75+ { _aumConsistencyToken = Nothing

70− { _aumPayload = pAumPayload_

76+ , _aumPayload = pAumPayload_

71 }

77 }

72

78

79+-- | The last-seen mutation timestamp.

80+aumConsistencyToken :: Lens' AchievementsUpdateMultiple (Maybe Int64)

81+aumConsistencyToken

82+ = lens _aumConsistencyToken

83+ (\ s a -> s{_aumConsistencyToken = a})

84+ . mapping _Coerce

85+

73-- | Multipart request metadata.

86-- | Multipart request metadata.

74aumPayload :: Lens' AchievementsUpdateMultiple AchievementUpdateMultipleRequest

87aumPayload :: Lens' AchievementsUpdateMultiple AchievementUpdateMultipleRequest

75aumPayload

88aumPayload

@@ -83,7 +96,8 @@ instance GoogleRequest AchievementsUpdateMultiple

83 '["https://www.googleapis.com/auth/games",

96 '["https://www.googleapis.com/auth/games",

84 "https://www.googleapis.com/auth/plus.login"]

97 "https://www.googleapis.com/auth/plus.login"]

85 requestClient AchievementsUpdateMultiple'{..}

98 requestClient AchievementsUpdateMultiple'{..}

86− = go (Just AltJSON) _aumPayload gamesService

99+ = go _aumConsistencyToken (Just AltJSON) _aumPayload

100+ gamesService

87 where go

101 where go

88 = buildClient

102 = buildClient

89 (Proxy :: Proxy AchievementsUpdateMultipleResource)

103 (Proxy :: Proxy AchievementsUpdateMultipleResource)

gogol-games/gen/Network/Google/Resource/Games/Applications/Get.hs+24−9

@@ -35,6 +35,7 @@ module Network.Google.Resource.Games.Applications.Get

35 , ApplicationsGet

36

37 -- * Request Lenses

38+ , agConsistencyToken

38 , agApplicationId

39 , agApplicationId

39 , agPlatformType

40 , agPlatformType

40 , agLanguage

41 , agLanguage

@@ -50,10 +51,11 @@ type ApplicationsGetResource =

50 "v1" :>

51 "v1" :>

51 "applications" :>

52 "applications" :>

52 Capture "applicationId" Text :>

53 Capture "applicationId" Text :>

54+ QueryParam "consistencyToken" (Textual Int64) :>

53− QueryParam "platformType" ApplicationsGetPlatformType

55+ QueryParam "platformType" ApplicationsGetPlatformType

54− :>

56+ :>

55− QueryParam "language" Text :>

57+ QueryParam "language" Text :>

56− QueryParam "alt" AltJSON :> Get '[JSON] Application

58+ QueryParam "alt" AltJSON :> Get '[JSON] Application

57

59

58-- | Retrieves the metadata of the application with the given ID. If the

60-- | Retrieves the metadata of the application with the given ID. If the

59-- requested application is not available for the specified platformType,

61-- requested application is not available for the specified platformType,

@@ -61,15 +63,18 @@ type ApplicationsGetResource =

61--

63--

62-- /See:/ 'applicationsGet' smart constructor.

64-- /See:/ 'applicationsGet' smart constructor.

63data ApplicationsGet = ApplicationsGet'

65data ApplicationsGet = ApplicationsGet'

66+ { _agConsistencyToken :: !(Maybe (Textual Int64))

64− { _agApplicationId :: !Text

67+ , _agApplicationId :: !Text

65− , _agPlatformType :: !(Maybe ApplicationsGetPlatformType)

68+ , _agPlatformType :: !(Maybe ApplicationsGetPlatformType)

66− , _agLanguage :: !(Maybe Text)

69+ , _agLanguage :: !(Maybe Text)

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

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

68

71

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

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

70--

73--

71-- Use one of the following lenses to modify other fields as desired:

74-- Use one of the following lenses to modify other fields as desired:

72--

75--

76+-- * 'agConsistencyToken'

77+--

73-- * 'agApplicationId'

78-- * 'agApplicationId'

74--

79--

75-- * 'agPlatformType'

80-- * 'agPlatformType'

@@ -80,11 +85,19 @@ applicationsGet

80 -> ApplicationsGet

85 -> ApplicationsGet

81applicationsGet pAgApplicationId_ =

86applicationsGet pAgApplicationId_ =

82 ApplicationsGet'

87 ApplicationsGet'

88+ { _agConsistencyToken = Nothing

83− { _agApplicationId = pAgApplicationId_

89+ , _agApplicationId = pAgApplicationId_

84 , _agPlatformType = Nothing

90 , _agPlatformType = Nothing

85 , _agLanguage = Nothing

91 , _agLanguage = Nothing

86 }

92 }

87

93

94+-- | The last-seen mutation timestamp.

95+agConsistencyToken :: Lens' ApplicationsGet (Maybe Int64)

96+agConsistencyToken

97+ = lens _agConsistencyToken

98+ (\ s a -> s{_agConsistencyToken = a})

99+ . mapping _Coerce

100+

88-- | The application ID from the Google Play developer console.

101-- | The application ID from the Google Play developer console.

89agApplicationId :: Lens' ApplicationsGet Text

102agApplicationId :: Lens' ApplicationsGet Text

90agApplicationId

103agApplicationId

@@ -108,7 +121,9 @@ instance GoogleRequest ApplicationsGet where

108 '["https://www.googleapis.com/auth/games",

121 '["https://www.googleapis.com/auth/games",

109 "https://www.googleapis.com/auth/plus.login"]

122 "https://www.googleapis.com/auth/plus.login"]

110 requestClient ApplicationsGet'{..}

123 requestClient ApplicationsGet'{..}

124+ = go _agApplicationId _agConsistencyToken

111− = go _agApplicationId _agPlatformType _agLanguage

125+ _agPlatformType

126+ _agLanguage

112 (Just AltJSON)

127 (Just AltJSON)

113 gamesService

128 gamesService

114 where go

129 where go

gogol-games/gen/Network/Google/Resource/Games/Applications/Played.hs+23−7

@@ -33,6 +33,8 @@ module Network.Google.Resource.Games.Applications.Played

33 , applicationsPlayed

34 , ApplicationsPlayed

35

36+ -- * Request Lenses

37+ , apConsistencyToken

36 ) where

38 ) where

37

39

38import Network.Google.Games.Types

40import Network.Google.Games.Types

@@ -45,29 +47,43 @@ type ApplicationsPlayedResource =

45 "v1" :>

47 "v1" :>

46 "applications" :>

48 "applications" :>

47 "played" :>

49 "played" :>

50+ QueryParam "consistencyToken" (Textual Int64) :>

48− QueryParam "alt" AltJSON :> Post '[JSON] ()

51+ QueryParam "alt" AltJSON :> Post '[JSON] ()

49

52

50-- | Indicate that the the currently authenticated user is playing your

53-- | Indicate that the the currently authenticated user is playing your

51-- application.

54-- application.

52--

55--

53-- /See:/ 'applicationsPlayed' smart constructor.

56-- /See:/ 'applicationsPlayed' smart constructor.

54−data ApplicationsPlayed =

55− ApplicationsPlayed'

57+newtype ApplicationsPlayed = ApplicationsPlayed'

58+ { _apConsistencyToken :: Maybe (Textual Int64)

56− deriving (Eq,Show,Data,Typeable,Generic)

59+ } deriving (Eq,Show,Data,Typeable,Generic)

57

60

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

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

59--

62--

63+-- Use one of the following lenses to modify other fields as desired:

64+--

65+-- * 'apConsistencyToken'

60applicationsPlayed

66applicationsPlayed

61 :: ApplicationsPlayed

67 :: ApplicationsPlayed

62−applicationsPlayed = ApplicationsPlayed'

68+applicationsPlayed =

69+ ApplicationsPlayed'

70+ { _apConsistencyToken = Nothing

71+ }

72+

73+-- | The last-seen mutation timestamp.

74+apConsistencyToken :: Lens' ApplicationsPlayed (Maybe Int64)

75+apConsistencyToken

76+ = lens _apConsistencyToken

77+ (\ s a -> s{_apConsistencyToken = a})

78+ . mapping _Coerce

63

79

64instance GoogleRequest ApplicationsPlayed where

80instance GoogleRequest ApplicationsPlayed where

65 type Rs ApplicationsPlayed = ()

81 type Rs ApplicationsPlayed = ()

66 type Scopes ApplicationsPlayed =

82 type Scopes ApplicationsPlayed =

67 '["https://www.googleapis.com/auth/games",

83 '["https://www.googleapis.com/auth/games",

68 "https://www.googleapis.com/auth/plus.login"]

84 "https://www.googleapis.com/auth/plus.login"]

69− requestClient ApplicationsPlayed'{}

85+ requestClient ApplicationsPlayed'{..}

70− = go (Just AltJSON) gamesService

86+ = go _apConsistencyToken (Just AltJSON) gamesService

71 where go

87 where go

72 = buildClient

88 = buildClient

73 (Proxy :: Proxy ApplicationsPlayedResource)

89 (Proxy :: Proxy ApplicationsPlayedResource)

gogol-games/gen/Network/Google/Resource/Games/Applications/Verify.hs+21−6

@@ -35,6 +35,7 @@ module Network.Google.Resource.Games.Applications.Verify

35 , ApplicationsVerify

36

37 -- * Request Lenses

38+ , avConsistencyToken

38 , avApplicationId

39 , avApplicationId

39 ) where

40 ) where

40

41

@@ -49,31 +50,43 @@ type ApplicationsVerifyResource =

49 "applications" :>

50 "applications" :>

50 Capture "applicationId" Text :>

51 Capture "applicationId" Text :>

51 "verify" :>

52 "verify" :>

53+ QueryParam "consistencyToken" (Textual Int64) :>

52− QueryParam "alt" AltJSON :>

54+ QueryParam "alt" AltJSON :>

53− Get '[JSON] ApplicationVerifyResponse

55+ Get '[JSON] ApplicationVerifyResponse

54

56

55-- | Verifies the auth token provided with this request is for the

57-- | Verifies the auth token provided with this request is for the

56-- application with the specified ID, and returns the ID of the player it

58-- application with the specified ID, and returns the ID of the player it

57-- was granted for.

59-- was granted for.

58--

60--

59-- /See:/ 'applicationsVerify' smart constructor.

61-- /See:/ 'applicationsVerify' smart constructor.

60−newtype ApplicationsVerify = ApplicationsVerify'

62+data ApplicationsVerify = ApplicationsVerify'

63+ { _avConsistencyToken :: !(Maybe (Textual Int64))

61− { _avApplicationId :: Text

64+ , _avApplicationId :: !Text

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

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

63

66

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

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

65--

68--

66-- Use one of the following lenses to modify other fields as desired:

69-- Use one of the following lenses to modify other fields as desired:

67--

70--

71+-- * 'avConsistencyToken'

72+--

68-- * 'avApplicationId'

73-- * 'avApplicationId'

69applicationsVerify

74applicationsVerify

70 :: Text -- ^ 'avApplicationId'

75 :: Text -- ^ 'avApplicationId'

71 -> ApplicationsVerify

76 -> ApplicationsVerify

72applicationsVerify pAvApplicationId_ =

77applicationsVerify pAvApplicationId_ =

73 ApplicationsVerify'

78 ApplicationsVerify'

79+ { _avConsistencyToken = Nothing

74− { _avApplicationId = pAvApplicationId_

80+ , _avApplicationId = pAvApplicationId_

75 }

81 }

76

82

83+-- | The last-seen mutation timestamp.

84+avConsistencyToken :: Lens' ApplicationsVerify (Maybe Int64)

85+avConsistencyToken

86+ = lens _avConsistencyToken

87+ (\ s a -> s{_avConsistencyToken = a})

88+ . mapping _Coerce

89+

77-- | The application ID from the Google Play developer console.

90-- | The application ID from the Google Play developer console.

78avApplicationId :: Lens' ApplicationsVerify Text

91avApplicationId :: Lens' ApplicationsVerify Text

79avApplicationId

92avApplicationId

@@ -87,7 +100,9 @@ instance GoogleRequest ApplicationsVerify where

87 '["https://www.googleapis.com/auth/games",

100 '["https://www.googleapis.com/auth/games",

88 "https://www.googleapis.com/auth/plus.login"]

101 "https://www.googleapis.com/auth/plus.login"]

89 requestClient ApplicationsVerify'{..}

102 requestClient ApplicationsVerify'{..}

90− = go _avApplicationId (Just AltJSON) gamesService

103+ = go _avApplicationId _avConsistencyToken

104+ (Just AltJSON)

105+ gamesService

91 where go

106 where go

92 = buildClient

107 = buildClient

93 (Proxy :: Proxy ApplicationsVerifyResource)

108 (Proxy :: Proxy ApplicationsVerifyResource)

gogol-games/gen/Network/Google/Resource/Games/Events/ListByPlayer.hs+25−10

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Events.ListByPlayer

34 , EventsListByPlayer

35

36 -- * Request Lenses

37+ , elbpConsistencyToken

37 , elbpLanguage

38 , elbpLanguage

38 , elbpPageToken

39 , elbpPageToken

39 , elbpMaxResults

40 , elbpMaxResults

@@ -48,26 +49,30 @@ type EventsListByPlayerResource =

48 "games" :>

49 "games" :>

49 "v1" :>

50 "v1" :>

50 "events" :>

51 "events" :>

51− QueryParam "language" Text :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

52− QueryParam "pageToken" Text :>

53+ QueryParam "language" Text :>

54+ QueryParam "pageToken" Text :>

53− QueryParam "maxResults" (Textual Int32) :>

55+ QueryParam "maxResults" (Textual Int32) :>

54− QueryParam "alt" AltJSON :>

56+ QueryParam "alt" AltJSON :>

55− Get '[JSON] PlayerEventListResponse

57+ Get '[JSON] PlayerEventListResponse

56

58

57-- | Returns a list showing the current progress on events in this

59-- | Returns a list showing the current progress on events in this

58-- application for the currently authenticated user.

60-- application for the currently authenticated user.

59--

61--

60-- /See:/ 'eventsListByPlayer' smart constructor.

62-- /See:/ 'eventsListByPlayer' smart constructor.

61data EventsListByPlayer = EventsListByPlayer'

63data EventsListByPlayer = EventsListByPlayer'

64+ { _elbpConsistencyToken :: !(Maybe (Textual Int64))

62− { _elbpLanguage :: !(Maybe Text)

65+ , _elbpLanguage :: !(Maybe Text)

63− , _elbpPageToken :: !(Maybe Text)

66+ , _elbpPageToken :: !(Maybe Text)

64− , _elbpMaxResults :: !(Maybe (Textual Int32))

67+ , _elbpMaxResults :: !(Maybe (Textual Int32))

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

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

66

69

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

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

68--

71--

69-- Use one of the following lenses to modify other fields as desired:

72-- Use one of the following lenses to modify other fields as desired:

70--

73--

74+-- * 'elbpConsistencyToken'

75+--

71-- * 'elbpLanguage'

76-- * 'elbpLanguage'

72--

77--

73-- * 'elbpPageToken'

78-- * 'elbpPageToken'

@@ -77,11 +82,19 @@ eventsListByPlayer

77 :: EventsListByPlayer

82 :: EventsListByPlayer

78eventsListByPlayer =

83eventsListByPlayer =

79 EventsListByPlayer'

84 EventsListByPlayer'

85+ { _elbpConsistencyToken = Nothing

80− { _elbpLanguage = Nothing

86+ , _elbpLanguage = Nothing

81 , _elbpPageToken = Nothing

87 , _elbpPageToken = Nothing

82 , _elbpMaxResults = Nothing

88 , _elbpMaxResults = Nothing

83 }

89 }

84

90

91+-- | The last-seen mutation timestamp.

92+elbpConsistencyToken :: Lens' EventsListByPlayer (Maybe Int64)

93+elbpConsistencyToken

94+ = lens _elbpConsistencyToken

95+ (\ s a -> s{_elbpConsistencyToken = a})

96+ . mapping _Coerce

97+

85-- | The preferred language to use for strings returned by this method.

98-- | The preferred language to use for strings returned by this method.

86elbpLanguage :: Lens' EventsListByPlayer (Maybe Text)

99elbpLanguage :: Lens' EventsListByPlayer (Maybe Text)

87elbpLanguage

100elbpLanguage

@@ -108,7 +121,9 @@ instance GoogleRequest EventsListByPlayer where

108 '["https://www.googleapis.com/auth/games",

121 '["https://www.googleapis.com/auth/games",

109 "https://www.googleapis.com/auth/plus.login"]

122 "https://www.googleapis.com/auth/plus.login"]

110 requestClient EventsListByPlayer'{..}

123 requestClient EventsListByPlayer'{..}

124+ = go _elbpConsistencyToken _elbpLanguage

125+ _elbpPageToken

111− = go _elbpLanguage _elbpPageToken _elbpMaxResults

126+ _elbpMaxResults

112 (Just AltJSON)

127 (Just AltJSON)

113 gamesService

128 gamesService

114 where go

129 where go

gogol-games/gen/Network/Google/Resource/Games/Events/ListDefinitions.hs+24−10

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Events.ListDefinitions

33 , EventsListDefinitions

34

35 -- * Request Lenses

36+ , eldConsistencyToken

36 , eldLanguage

37 , eldLanguage

37 , eldPageToken

38 , eldPageToken

38 , eldMaxResults

39 , eldMaxResults

@@ -47,25 +48,29 @@ type EventsListDefinitionsResource =

47 "games" :>

48 "games" :>

48 "v1" :>

49 "v1" :>

49 "eventDefinitions" :>

50 "eventDefinitions" :>

50− QueryParam "language" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "pageToken" Text :>

52+ QueryParam "language" Text :>

53+ QueryParam "pageToken" Text :>

52− QueryParam "maxResults" (Textual Int32) :>

54+ QueryParam "maxResults" (Textual Int32) :>

53− QueryParam "alt" AltJSON :>

55+ QueryParam "alt" AltJSON :>

54− Get '[JSON] EventDefinitionListResponse

56+ Get '[JSON] EventDefinitionListResponse

55

57

56-- | Returns a list of the event definitions in this application.

58-- | Returns a list of the event definitions in this application.

57--

59--

58-- /See:/ 'eventsListDefinitions' smart constructor.

60-- /See:/ 'eventsListDefinitions' smart constructor.

59data EventsListDefinitions = EventsListDefinitions'

61data EventsListDefinitions = EventsListDefinitions'

62+ { _eldConsistencyToken :: !(Maybe (Textual Int64))

60− { _eldLanguage :: !(Maybe Text)

63+ , _eldLanguage :: !(Maybe Text)

61− , _eldPageToken :: !(Maybe Text)

64+ , _eldPageToken :: !(Maybe Text)

62− , _eldMaxResults :: !(Maybe (Textual Int32))

65+ , _eldMaxResults :: !(Maybe (Textual Int32))

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

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

64

67

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

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

66--

69--

67-- Use one of the following lenses to modify other fields as desired:

70-- Use one of the following lenses to modify other fields as desired:

68--

71--

72+-- * 'eldConsistencyToken'

73+--

69-- * 'eldLanguage'

74-- * 'eldLanguage'

70--

75--

71-- * 'eldPageToken'

76-- * 'eldPageToken'

@@ -75,11 +80,19 @@ eventsListDefinitions

75 :: EventsListDefinitions

80 :: EventsListDefinitions

76eventsListDefinitions =

81eventsListDefinitions =

77 EventsListDefinitions'

82 EventsListDefinitions'

83+ { _eldConsistencyToken = Nothing

78− { _eldLanguage = Nothing

84+ , _eldLanguage = Nothing

79 , _eldPageToken = Nothing

85 , _eldPageToken = Nothing

80 , _eldMaxResults = Nothing

86 , _eldMaxResults = Nothing

81 }

87 }

82

88

89+-- | The last-seen mutation timestamp.

90+eldConsistencyToken :: Lens' EventsListDefinitions (Maybe Int64)

91+eldConsistencyToken

92+ = lens _eldConsistencyToken

93+ (\ s a -> s{_eldConsistencyToken = a})

94+ . mapping _Coerce

95+

83-- | The preferred language to use for strings returned by this method.

96-- | The preferred language to use for strings returned by this method.

84eldLanguage :: Lens' EventsListDefinitions (Maybe Text)

97eldLanguage :: Lens' EventsListDefinitions (Maybe Text)

85eldLanguage

98eldLanguage

@@ -106,7 +119,8 @@ instance GoogleRequest EventsListDefinitions where

106 '["https://www.googleapis.com/auth/games",

119 '["https://www.googleapis.com/auth/games",

107 "https://www.googleapis.com/auth/plus.login"]

120 "https://www.googleapis.com/auth/plus.login"]

108 requestClient EventsListDefinitions'{..}

121 requestClient EventsListDefinitions'{..}

109− = go _eldLanguage _eldPageToken _eldMaxResults

122+ = go _eldConsistencyToken _eldLanguage _eldPageToken

123+ _eldMaxResults

110 (Just AltJSON)

124 (Just AltJSON)

111 gamesService

125 gamesService

112 where go

126 where go

gogol-games/gen/Network/Google/Resource/Games/Events/Record.hs+22−8

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Events.Record

34 , EventsRecord

35

36 -- * Request Lenses

37+ , erConsistencyToken

37 , erPayload

38 , erPayload

38 , erLanguage

39 , erLanguage

39 ) where

40 ) where

@@ -47,24 +48,28 @@ type EventsRecordResource =

47 "games" :>

48 "games" :>

48 "v1" :>

49 "v1" :>

49 "events" :>

50 "events" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "alt" AltJSON :>

53+ QueryParam "alt" AltJSON :>

52− ReqBody '[JSON] EventRecordRequest :>

54+ ReqBody '[JSON] EventRecordRequest :>

53− Post '[JSON] EventUpdateResponse

55+ Post '[JSON] EventUpdateResponse

54

56

55-- | Records a batch of changes to the number of times events have occurred

57-- | Records a batch of changes to the number of times events have occurred

56-- for the currently authenticated user of this application.

58-- for the currently authenticated user of this application.

57--

59--

58-- /See:/ 'eventsRecord' smart constructor.

60-- /See:/ 'eventsRecord' smart constructor.

59data EventsRecord = EventsRecord'

61data EventsRecord = EventsRecord'

62+ { _erConsistencyToken :: !(Maybe (Textual Int64))

60− { _erPayload :: !EventRecordRequest

63+ , _erPayload :: !EventRecordRequest

61− , _erLanguage :: !(Maybe Text)

64+ , _erLanguage :: !(Maybe Text)

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

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

63

66

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

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

65--

68--

66-- Use one of the following lenses to modify other fields as desired:

69-- Use one of the following lenses to modify other fields as desired:

67--

70--

71+-- * 'erConsistencyToken'

72+--

68-- * 'erPayload'

73-- * 'erPayload'

69--

74--

70-- * 'erLanguage'

75-- * 'erLanguage'

@@ -73,10 +78,18 @@ eventsRecord

73 -> EventsRecord

78 -> EventsRecord

74eventsRecord pErPayload_ =

79eventsRecord pErPayload_ =

75 EventsRecord'

80 EventsRecord'

81+ { _erConsistencyToken = Nothing

76− { _erPayload = pErPayload_

82+ , _erPayload = pErPayload_

77 , _erLanguage = Nothing

83 , _erLanguage = Nothing

78 }

84 }

79

85

86+-- | The last-seen mutation timestamp.

87+erConsistencyToken :: Lens' EventsRecord (Maybe Int64)

88+erConsistencyToken

89+ = lens _erConsistencyToken

90+ (\ s a -> s{_erConsistencyToken = a})

91+ . mapping _Coerce

92+

80-- | Multipart request metadata.

93-- | Multipart request metadata.

81erPayload :: Lens' EventsRecord EventRecordRequest

94erPayload :: Lens' EventsRecord EventRecordRequest

82erPayload

95erPayload

@@ -93,7 +106,8 @@ instance GoogleRequest EventsRecord where

93 '["https://www.googleapis.com/auth/games",

106 '["https://www.googleapis.com/auth/games",

94 "https://www.googleapis.com/auth/plus.login"]

107 "https://www.googleapis.com/auth/plus.login"]

95 requestClient EventsRecord'{..}

108 requestClient EventsRecord'{..}

96− = go _erLanguage (Just AltJSON) _erPayload

109+ = go _erConsistencyToken _erLanguage (Just AltJSON)

110+ _erPayload

97 gamesService

111 gamesService

98 where go

112 where go

99 = buildClient (Proxy :: Proxy EventsRecordResource)

113 = buildClient (Proxy :: Proxy EventsRecordResource)

gogol-games/gen/Network/Google/Resource/Games/Leaderboards/Get.hs+20−6

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Leaderboards.Get

33 , LeaderboardsGet

34

35 -- * Request Lenses

36+ , lgConsistencyToken

36 , lgLeaderboardId

37 , lgLeaderboardId

37 , lgLanguage

38 , lgLanguage

38 ) where

39 ) where

@@ -47,21 +48,25 @@ type LeaderboardsGetResource =

47 "v1" :>

48 "v1" :>

48 "leaderboards" :>

49 "leaderboards" :>

49 Capture "leaderboardId" Text :>

50 Capture "leaderboardId" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "alt" AltJSON :> Get '[JSON] Leaderboard

53+ QueryParam "alt" AltJSON :> Get '[JSON] Leaderboard

52

54

53-- | Retrieves the metadata of the leaderboard with the given ID.

55-- | Retrieves the metadata of the leaderboard with the given ID.

54--

56--

55-- /See:/ 'leaderboardsGet' smart constructor.

57-- /See:/ 'leaderboardsGet' smart constructor.

56data LeaderboardsGet = LeaderboardsGet'

58data LeaderboardsGet = LeaderboardsGet'

59+ { _lgConsistencyToken :: !(Maybe (Textual Int64))

57− { _lgLeaderboardId :: !Text

60+ , _lgLeaderboardId :: !Text

58− , _lgLanguage :: !(Maybe Text)

61+ , _lgLanguage :: !(Maybe Text)

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

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

60

63

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

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

62--

65--

63-- Use one of the following lenses to modify other fields as desired:

66-- Use one of the following lenses to modify other fields as desired:

64--

67--

68+-- * 'lgConsistencyToken'

69+--

65-- * 'lgLeaderboardId'

70-- * 'lgLeaderboardId'

66--

71--

67-- * 'lgLanguage'

72-- * 'lgLanguage'

@@ -70,10 +75,18 @@ leaderboardsGet

70 -> LeaderboardsGet

75 -> LeaderboardsGet

71leaderboardsGet pLgLeaderboardId_ =

76leaderboardsGet pLgLeaderboardId_ =

72 LeaderboardsGet'

77 LeaderboardsGet'

78+ { _lgConsistencyToken = Nothing

73− { _lgLeaderboardId = pLgLeaderboardId_

79+ , _lgLeaderboardId = pLgLeaderboardId_

74 , _lgLanguage = Nothing

80 , _lgLanguage = Nothing

75 }

81 }

76

82

83+-- | The last-seen mutation timestamp.

84+lgConsistencyToken :: Lens' LeaderboardsGet (Maybe Int64)

85+lgConsistencyToken

86+ = lens _lgConsistencyToken

87+ (\ s a -> s{_lgConsistencyToken = a})

88+ . mapping _Coerce

89+

77-- | The ID of the leaderboard.

90-- | The ID of the leaderboard.

78lgLeaderboardId :: Lens' LeaderboardsGet Text

91lgLeaderboardId :: Lens' LeaderboardsGet Text

79lgLeaderboardId

92lgLeaderboardId

@@ -91,7 +104,8 @@ instance GoogleRequest LeaderboardsGet where

91 '["https://www.googleapis.com/auth/games",

104 '["https://www.googleapis.com/auth/games",

92 "https://www.googleapis.com/auth/plus.login"]

105 "https://www.googleapis.com/auth/plus.login"]

93 requestClient LeaderboardsGet'{..}

106 requestClient LeaderboardsGet'{..}

94− = go _lgLeaderboardId _lgLanguage (Just AltJSON)

107+ = go _lgLeaderboardId _lgConsistencyToken _lgLanguage

108+ (Just AltJSON)

95 gamesService

109 gamesService

96 where go

110 where go

97 = buildClient

111 = buildClient

gogol-games/gen/Network/Google/Resource/Games/Leaderboards/List.hs+24−10

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Leaderboards.List

33 , LeaderboardsList

34

35 -- * Request Lenses

36+ , llConsistencyToken

36 , llLanguage

37 , llLanguage

37 , llPageToken

38 , llPageToken

38 , llMaxResults

39 , llMaxResults

@@ -47,25 +48,29 @@ type LeaderboardsListResource =

47 "games" :>

48 "games" :>

48 "v1" :>

49 "v1" :>

49 "leaderboards" :>

50 "leaderboards" :>

50− QueryParam "language" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "pageToken" Text :>

52+ QueryParam "language" Text :>

53+ QueryParam "pageToken" Text :>

52− QueryParam "maxResults" (Textual Int32) :>

54+ QueryParam "maxResults" (Textual Int32) :>

53− QueryParam "alt" AltJSON :>

55+ QueryParam "alt" AltJSON :>

54− Get '[JSON] LeaderboardListResponse

56+ Get '[JSON] LeaderboardListResponse

55

57

56-- | Lists all the leaderboard metadata for your application.

58-- | Lists all the leaderboard metadata for your application.

57--

59--

58-- /See:/ 'leaderboardsList' smart constructor.

60-- /See:/ 'leaderboardsList' smart constructor.

59data LeaderboardsList = LeaderboardsList'

61data LeaderboardsList = LeaderboardsList'

62+ { _llConsistencyToken :: !(Maybe (Textual Int64))

60− { _llLanguage :: !(Maybe Text)

63+ , _llLanguage :: !(Maybe Text)

61− , _llPageToken :: !(Maybe Text)

64+ , _llPageToken :: !(Maybe Text)

62− , _llMaxResults :: !(Maybe (Textual Int32))

65+ , _llMaxResults :: !(Maybe (Textual Int32))

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

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

64

67

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

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

66--

69--

67-- Use one of the following lenses to modify other fields as desired:

70-- Use one of the following lenses to modify other fields as desired:

68--

71--

72+-- * 'llConsistencyToken'

73+--

69-- * 'llLanguage'

74-- * 'llLanguage'

70--

75--

71-- * 'llPageToken'

76-- * 'llPageToken'

@@ -75,11 +80,19 @@ leaderboardsList

75 :: LeaderboardsList

80 :: LeaderboardsList

76leaderboardsList =

81leaderboardsList =

77 LeaderboardsList'

82 LeaderboardsList'

83+ { _llConsistencyToken = Nothing

78− { _llLanguage = Nothing

84+ , _llLanguage = Nothing

79 , _llPageToken = Nothing

85 , _llPageToken = Nothing

80 , _llMaxResults = Nothing

86 , _llMaxResults = Nothing

81 }

87 }

82

88

89+-- | The last-seen mutation timestamp.

90+llConsistencyToken :: Lens' LeaderboardsList (Maybe Int64)

91+llConsistencyToken

92+ = lens _llConsistencyToken

93+ (\ s a -> s{_llConsistencyToken = a})

94+ . mapping _Coerce

95+

83-- | The preferred language to use for strings returned by this method.

96-- | The preferred language to use for strings returned by this method.

84llLanguage :: Lens' LeaderboardsList (Maybe Text)

97llLanguage :: Lens' LeaderboardsList (Maybe Text)

85llLanguage

98llLanguage

@@ -104,7 +117,8 @@ instance GoogleRequest LeaderboardsList where

104 '["https://www.googleapis.com/auth/games",

117 '["https://www.googleapis.com/auth/games",

105 "https://www.googleapis.com/auth/plus.login"]

118 "https://www.googleapis.com/auth/plus.login"]

106 requestClient LeaderboardsList'{..}

119 requestClient LeaderboardsList'{..}

107− = go _llLanguage _llPageToken _llMaxResults

120+ = go _llConsistencyToken _llLanguage _llPageToken

121+ _llMaxResults

108 (Just AltJSON)

122 (Just AltJSON)

109 gamesService

123 gamesService

110 where go

124 where go

gogol-games/gen/Network/Google/Resource/Games/Metagame/GetMetagameConfig.hs+25−8

@@ -32,6 +32,8 @@ module Network.Google.Resource.Games.Metagame.GetMetagameConfig

32 , metagameGetMetagameConfig

33 , MetagameGetMetagameConfig

34

35+ -- * Request Lenses

36+ , mgmcConsistencyToken

35 ) where

37 ) where

36

38

37import Network.Google.Games.Types

39import Network.Google.Games.Types

@@ -43,21 +45,35 @@ type MetagameGetMetagameConfigResource =

43 "games" :>

45 "games" :>

44 "v1" :>

46 "v1" :>

45 "metagameConfig" :>

47 "metagameConfig" :>

48+ QueryParam "consistencyToken" (Textual Int64) :>

46− QueryParam "alt" AltJSON :>

49+ QueryParam "alt" AltJSON :>

47− Get '[JSON] MetagameConfig

50+ Get '[JSON] MetagameConfig

48

51

49-- | Return the metagame configuration data for the calling application.

52-- | Return the metagame configuration data for the calling application.

50--

53--

51-- /See:/ 'metagameGetMetagameConfig' smart constructor.

54-- /See:/ 'metagameGetMetagameConfig' smart constructor.

52−data MetagameGetMetagameConfig =

53− MetagameGetMetagameConfig'

55+newtype MetagameGetMetagameConfig = MetagameGetMetagameConfig'

56+ { _mgmcConsistencyToken :: Maybe (Textual Int64)

54− deriving (Eq,Show,Data,Typeable,Generic)

57+ } deriving (Eq,Show,Data,Typeable,Generic)

55

58

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

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

57--

60--

61+-- Use one of the following lenses to modify other fields as desired:

62+--

63+-- * 'mgmcConsistencyToken'

58metagameGetMetagameConfig

64metagameGetMetagameConfig

59 :: MetagameGetMetagameConfig

65 :: MetagameGetMetagameConfig

60−metagameGetMetagameConfig = MetagameGetMetagameConfig'

66+metagameGetMetagameConfig =

67+ MetagameGetMetagameConfig'

68+ { _mgmcConsistencyToken = Nothing

69+ }

70+

71+-- | The last-seen mutation timestamp.

72+mgmcConsistencyToken :: Lens' MetagameGetMetagameConfig (Maybe Int64)

73+mgmcConsistencyToken

74+ = lens _mgmcConsistencyToken

75+ (\ s a -> s{_mgmcConsistencyToken = a})

76+ . mapping _Coerce

61

77

62instance GoogleRequest MetagameGetMetagameConfig

78instance GoogleRequest MetagameGetMetagameConfig

63 where

79 where

@@ -65,8 +81,9 @@ instance GoogleRequest MetagameGetMetagameConfig

65 type Scopes MetagameGetMetagameConfig =

81 type Scopes MetagameGetMetagameConfig =

66 '["https://www.googleapis.com/auth/games",

82 '["https://www.googleapis.com/auth/games",

67 "https://www.googleapis.com/auth/plus.login"]

83 "https://www.googleapis.com/auth/plus.login"]

68− requestClient MetagameGetMetagameConfig'{}

84+ requestClient MetagameGetMetagameConfig'{..}

85+ = go _mgmcConsistencyToken (Just AltJSON)

69− = go (Just AltJSON) gamesService

86+ gamesService

70 where go

87 where go

71 = buildClient

88 = buildClient

72 (Proxy :: Proxy MetagameGetMetagameConfigResource)

89 (Proxy :: Proxy MetagameGetMetagameConfigResource)

gogol-games/gen/Network/Google/Resource/Games/Metagame/ListCategoriesByPlayer.hs+27−12

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Metagame.ListCategoriesByPlayer

34 , MetagameListCategoriesByPlayer

35

36 -- * Request Lenses

37+ , mlcbpConsistencyToken

37 , mlcbpCollection

38 , mlcbpCollection

38 , mlcbpLanguage

39 , mlcbpLanguage

39 , mlcbpPageToken

40 , mlcbpPageToken

@@ -55,28 +56,32 @@ type MetagameListCategoriesByPlayerResource =

55 Capture "collection"

56 Capture "collection"

56 MetagameListCategoriesByPlayerCollection

57 MetagameListCategoriesByPlayerCollection

57 :>

58 :>

58− QueryParam "language" Text :>

59+ QueryParam "consistencyToken" (Textual Int64) :>

59− QueryParam "pageToken" Text :>

60+ QueryParam "language" Text :>

61+ QueryParam "pageToken" Text :>

60− QueryParam "maxResults" (Textual Int32) :>

62+ QueryParam "maxResults" (Textual Int32) :>

61− QueryParam "alt" AltJSON :>

63+ QueryParam "alt" AltJSON :>

62− Get '[JSON] CategoryListResponse

64+ Get '[JSON] CategoryListResponse

63

65

64-- | List play data aggregated per category for the player corresponding to

66-- | List play data aggregated per category for the player corresponding to

65-- playerId.

67-- playerId.

66--

68--

67-- /See:/ 'metagameListCategoriesByPlayer' smart constructor.

69-- /See:/ 'metagameListCategoriesByPlayer' smart constructor.

68data MetagameListCategoriesByPlayer = MetagameListCategoriesByPlayer'

70data MetagameListCategoriesByPlayer = MetagameListCategoriesByPlayer'

71+ { _mlcbpConsistencyToken :: !(Maybe (Textual Int64))

69− { _mlcbpCollection :: !MetagameListCategoriesByPlayerCollection

72+ , _mlcbpCollection :: !MetagameListCategoriesByPlayerCollection

70− , _mlcbpLanguage :: !(Maybe Text)

73+ , _mlcbpLanguage :: !(Maybe Text)

71− , _mlcbpPageToken :: !(Maybe Text)

74+ , _mlcbpPageToken :: !(Maybe Text)

72− , _mlcbpPlayerId :: !Text

75+ , _mlcbpPlayerId :: !Text

73− , _mlcbpMaxResults :: !(Maybe (Textual Int32))

76+ , _mlcbpMaxResults :: !(Maybe (Textual Int32))

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

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

75

78

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

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

77--

80--

78-- Use one of the following lenses to modify other fields as desired:

81-- Use one of the following lenses to modify other fields as desired:

79--

82--

83+-- * 'mlcbpConsistencyToken'

84+--

80-- * 'mlcbpCollection'

85-- * 'mlcbpCollection'

81--

86--

82-- * 'mlcbpLanguage'

87-- * 'mlcbpLanguage'

@@ -92,13 +97,21 @@ metagameListCategoriesByPlayer

92 -> MetagameListCategoriesByPlayer

97 -> MetagameListCategoriesByPlayer

93metagameListCategoriesByPlayer pMlcbpCollection_ pMlcbpPlayerId_ =

98metagameListCategoriesByPlayer pMlcbpCollection_ pMlcbpPlayerId_ =

94 MetagameListCategoriesByPlayer'

99 MetagameListCategoriesByPlayer'

100+ { _mlcbpConsistencyToken = Nothing

95− { _mlcbpCollection = pMlcbpCollection_

101+ , _mlcbpCollection = pMlcbpCollection_

96 , _mlcbpLanguage = Nothing

102 , _mlcbpLanguage = Nothing

97 , _mlcbpPageToken = Nothing

103 , _mlcbpPageToken = Nothing

98 , _mlcbpPlayerId = pMlcbpPlayerId_

104 , _mlcbpPlayerId = pMlcbpPlayerId_

99 , _mlcbpMaxResults = Nothing

105 , _mlcbpMaxResults = Nothing

100 }

106 }

101

107

108+-- | The last-seen mutation timestamp.

109+mlcbpConsistencyToken :: Lens' MetagameListCategoriesByPlayer (Maybe Int64)

110+mlcbpConsistencyToken

111+ = lens _mlcbpConsistencyToken

112+ (\ s a -> s{_mlcbpConsistencyToken = a})

113+ . mapping _Coerce

114+

102-- | The collection of categories for which data will be returned.

115-- | The collection of categories for which data will be returned.

103mlcbpCollection :: Lens' MetagameListCategoriesByPlayer MetagameListCategoriesByPlayerCollection

116mlcbpCollection :: Lens' MetagameListCategoriesByPlayer MetagameListCategoriesByPlayerCollection

104mlcbpCollection

117mlcbpCollection

@@ -141,7 +154,9 @@ instance GoogleRequest MetagameListCategoriesByPlayer

141 '["https://www.googleapis.com/auth/games",

154 '["https://www.googleapis.com/auth/games",

142 "https://www.googleapis.com/auth/plus.login"]

155 "https://www.googleapis.com/auth/plus.login"]

143 requestClient MetagameListCategoriesByPlayer'{..}

156 requestClient MetagameListCategoriesByPlayer'{..}

144− = go _mlcbpPlayerId _mlcbpCollection _mlcbpLanguage

157+ = go _mlcbpPlayerId _mlcbpCollection

158+ _mlcbpConsistencyToken

159+ _mlcbpLanguage

145 _mlcbpPageToken

160 _mlcbpPageToken

146 _mlcbpMaxResults

161 _mlcbpMaxResults

147 (Just AltJSON)

162 (Just AltJSON)

gogol-games/gen/Network/Google/Resource/Games/Players/Get.hs+20−6

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Players.Get

34 , PlayersGet

35

36 -- * Request Lenses

37+ , pgConsistencyToken

37 , pgLanguage

38 , pgLanguage

38 , pgPlayerId

39 , pgPlayerId

39 ) where

40 ) where

@@ -48,22 +49,26 @@ type PlayersGetResource =

48 "v1" :>

49 "v1" :>

49 "players" :>

50 "players" :>

50 Capture "playerId" Text :>

51 Capture "playerId" Text :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "language" Text :>

53+ QueryParam "language" Text :>

52− QueryParam "alt" AltJSON :> Get '[JSON] Player

54+ QueryParam "alt" AltJSON :> Get '[JSON] Player

53

55

54-- | Retrieves the Player resource with the given ID. To retrieve the player

56-- | Retrieves the Player resource with the given ID. To retrieve the player

55-- for the currently authenticated user, set playerId to me.

57-- for the currently authenticated user, set playerId to me.

56--

58--

57-- /See:/ 'playersGet' smart constructor.

59-- /See:/ 'playersGet' smart constructor.

58data PlayersGet = PlayersGet'

60data PlayersGet = PlayersGet'

61+ { _pgConsistencyToken :: !(Maybe (Textual Int64))

59− { _pgLanguage :: !(Maybe Text)

62+ , _pgLanguage :: !(Maybe Text)

60− , _pgPlayerId :: !Text

63+ , _pgPlayerId :: !Text

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

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

62

65

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

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

64--

67--

65-- Use one of the following lenses to modify other fields as desired:

68-- Use one of the following lenses to modify other fields as desired:

66--

69--

70+-- * 'pgConsistencyToken'

71+--

67-- * 'pgLanguage'

72-- * 'pgLanguage'

68--

73--

69-- * 'pgPlayerId'

74-- * 'pgPlayerId'

@@ -72,10 +77,18 @@ playersGet

72 -> PlayersGet

77 -> PlayersGet

73playersGet pPgPlayerId_ =

78playersGet pPgPlayerId_ =

74 PlayersGet'

79 PlayersGet'

80+ { _pgConsistencyToken = Nothing

75− { _pgLanguage = Nothing

81+ , _pgLanguage = Nothing

76 , _pgPlayerId = pPgPlayerId_

82 , _pgPlayerId = pPgPlayerId_

77 }

83 }

78

84

85+-- | The last-seen mutation timestamp.

86+pgConsistencyToken :: Lens' PlayersGet (Maybe Int64)

87+pgConsistencyToken

88+ = lens _pgConsistencyToken

89+ (\ s a -> s{_pgConsistencyToken = a})

90+ . mapping _Coerce

91+

79-- | The preferred language to use for strings returned by this method.

92-- | The preferred language to use for strings returned by this method.

80pgLanguage :: Lens' PlayersGet (Maybe Text)

93pgLanguage :: Lens' PlayersGet (Maybe Text)

81pgLanguage

94pgLanguage

@@ -93,7 +106,8 @@ instance GoogleRequest PlayersGet where

93 '["https://www.googleapis.com/auth/games",

106 '["https://www.googleapis.com/auth/games",

94 "https://www.googleapis.com/auth/plus.login"]

107 "https://www.googleapis.com/auth/plus.login"]

95 requestClient PlayersGet'{..}

108 requestClient PlayersGet'{..}

96− = go _pgPlayerId _pgLanguage (Just AltJSON)

109+ = go _pgPlayerId _pgConsistencyToken _pgLanguage

110+ (Just AltJSON)

97 gamesService

111 gamesService

98 where go

112 where go

99 = buildClient (Proxy :: Proxy PlayersGetResource)

113 = buildClient (Proxy :: Proxy PlayersGetResource)

gogol-games/gen/Network/Google/Resource/Games/Players/List.hs+25−11

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Players.List

33 , PlayersList

34

35 -- * Request Lenses

36+ , plConsistencyToken

36 , plCollection

37 , plCollection

37 , plLanguage

38 , plLanguage

38 , plPageToken

39 , plPageToken

@@ -51,26 +52,30 @@ type PlayersListResource =

51 "me" :>

52 "me" :>

52 "players" :>

53 "players" :>

53 Capture "collection" PlayersListCollection :>

54 Capture "collection" PlayersListCollection :>

54− QueryParam "language" Text :>

55+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "pageToken" Text :>

56+ QueryParam "language" Text :>

57+ QueryParam "pageToken" Text :>

56− QueryParam "maxResults" (Textual Int32) :>

58+ QueryParam "maxResults" (Textual Int32) :>

57− QueryParam "alt" AltJSON :>

59+ QueryParam "alt" AltJSON :>

58− Get '[JSON] PlayerListResponse

60+ Get '[JSON] PlayerListResponse

59

61

60-- | Get the collection of players for the currently authenticated user.

62-- | Get the collection of players for the currently authenticated user.

61--

63--

62-- /See:/ 'playersList' smart constructor.

64-- /See:/ 'playersList' smart constructor.

63data PlayersList = PlayersList'

65data PlayersList = PlayersList'

66+ { _plConsistencyToken :: !(Maybe (Textual Int64))

64− { _plCollection :: !PlayersListCollection

67+ , _plCollection :: !PlayersListCollection

65− , _plLanguage :: !(Maybe Text)

68+ , _plLanguage :: !(Maybe Text)

66− , _plPageToken :: !(Maybe Text)

69+ , _plPageToken :: !(Maybe Text)

67− , _plMaxResults :: !(Maybe (Textual Int32))

70+ , _plMaxResults :: !(Maybe (Textual Int32))

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

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

69

72

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

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

71--

74--

72-- Use one of the following lenses to modify other fields as desired:

75-- Use one of the following lenses to modify other fields as desired:

73--

76--

77+-- * 'plConsistencyToken'

78+--

74-- * 'plCollection'

79-- * 'plCollection'

75--

80--

76-- * 'plLanguage'

81-- * 'plLanguage'

@@ -83,12 +88,20 @@ playersList

83 -> PlayersList

88 -> PlayersList

84playersList pPlCollection_ =

89playersList pPlCollection_ =

85 PlayersList'

90 PlayersList'

91+ { _plConsistencyToken = Nothing

86− { _plCollection = pPlCollection_

92+ , _plCollection = pPlCollection_

87 , _plLanguage = Nothing

93 , _plLanguage = Nothing

88 , _plPageToken = Nothing

94 , _plPageToken = Nothing

89 , _plMaxResults = Nothing

95 , _plMaxResults = Nothing

90 }

96 }

91

97

98+-- | The last-seen mutation timestamp.

99+plConsistencyToken :: Lens' PlayersList (Maybe Int64)

100+plConsistencyToken

101+ = lens _plConsistencyToken

102+ (\ s a -> s{_plConsistencyToken = a})

103+ . mapping _Coerce

104+

92-- | Collection of players being retrieved

105-- | Collection of players being retrieved

93plCollection :: Lens' PlayersList PlayersListCollection

106plCollection :: Lens' PlayersList PlayersListCollection

94plCollection

107plCollection

@@ -118,7 +131,8 @@ instance GoogleRequest PlayersList where

118 '["https://www.googleapis.com/auth/games",

131 '["https://www.googleapis.com/auth/games",

119 "https://www.googleapis.com/auth/plus.login"]

132 "https://www.googleapis.com/auth/plus.login"]

120 requestClient PlayersList'{..}

133 requestClient PlayersList'{..}

121− = go _plCollection _plLanguage _plPageToken

134+ = go _plCollection _plConsistencyToken _plLanguage

135+ _plPageToken

122 _plMaxResults

136 _plMaxResults

123 (Just AltJSON)

137 (Just AltJSON)

124 gamesService

138 gamesService

gogol-games/gen/Network/Google/Resource/Games/Pushtokens/Remove.hs+20−6

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Pushtokens.Remove

34 , PushtokensRemove

35

36 -- * Request Lenses

37+ , prConsistencyToken

37 , prPayload

38 , prPayload

38 ) where

39 ) where

39

40

@@ -47,30 +48,42 @@ type PushtokensRemoveResource =

47 "v1" :>

48 "v1" :>

48 "pushtokens" :>

49 "pushtokens" :>

49 "remove" :>

50 "remove" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "alt" AltJSON :>

52+ QueryParam "alt" AltJSON :>

51− ReqBody '[JSON] PushTokenId :> Post '[JSON] ()

53+ ReqBody '[JSON] PushTokenId :> Post '[JSON] ()

52

54

53-- | Removes a push token for the current user and application. Removing a

55-- | Removes a push token for the current user and application. Removing a

54-- non-existent push token will report success.

56-- non-existent push token will report success.

55--

57--

56-- /See:/ 'pushtokensRemove' smart constructor.

58-- /See:/ 'pushtokensRemove' smart constructor.

57−newtype PushtokensRemove = PushtokensRemove'

59+data PushtokensRemove = PushtokensRemove'

60+ { _prConsistencyToken :: !(Maybe (Textual Int64))

58− { _prPayload :: PushTokenId

61+ , _prPayload :: !PushTokenId

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

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

60

63

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

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

62--

65--

63-- Use one of the following lenses to modify other fields as desired:

66-- Use one of the following lenses to modify other fields as desired:

64--

67--

68+-- * 'prConsistencyToken'

69+--

65-- * 'prPayload'

70-- * 'prPayload'

66pushtokensRemove

71pushtokensRemove

67 :: PushTokenId -- ^ 'prPayload'

72 :: PushTokenId -- ^ 'prPayload'

68 -> PushtokensRemove

73 -> PushtokensRemove

69pushtokensRemove pPrPayload_ =

74pushtokensRemove pPrPayload_ =

70 PushtokensRemove'

75 PushtokensRemove'

76+ { _prConsistencyToken = Nothing

71− { _prPayload = pPrPayload_

77+ , _prPayload = pPrPayload_

72 }

78 }

73

79

80+-- | The last-seen mutation timestamp.

81+prConsistencyToken :: Lens' PushtokensRemove (Maybe Int64)

82+prConsistencyToken

83+ = lens _prConsistencyToken

84+ (\ s a -> s{_prConsistencyToken = a})

85+ . mapping _Coerce

86+

74-- | Multipart request metadata.

87-- | Multipart request metadata.

75prPayload :: Lens' PushtokensRemove PushTokenId

88prPayload :: Lens' PushtokensRemove PushTokenId

76prPayload

89prPayload

@@ -82,7 +95,8 @@ instance GoogleRequest PushtokensRemove where

82 '["https://www.googleapis.com/auth/games",

95 '["https://www.googleapis.com/auth/games",

83 "https://www.googleapis.com/auth/plus.login"]

96 "https://www.googleapis.com/auth/plus.login"]

84 requestClient PushtokensRemove'{..}

97 requestClient PushtokensRemove'{..}

85− = go (Just AltJSON) _prPayload gamesService

98+ = go _prConsistencyToken (Just AltJSON) _prPayload

99+ gamesService

86 where go

100 where go

87 = buildClient

101 = buildClient

88 (Proxy :: Proxy PushtokensRemoveResource)

102 (Proxy :: Proxy PushtokensRemoveResource)

gogol-games/gen/Network/Google/Resource/Games/Pushtokens/Update.hs+20−6

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Pushtokens.Update

33 , PushtokensUpdate

34

35 -- * Request Lenses

36+ , puConsistencyToken

36 , puPayload

37 , puPayload

37 ) where

38 ) where

38

39

@@ -45,29 +46,41 @@ type PushtokensUpdateResource =

45 "games" :>

46 "games" :>

46 "v1" :>

47 "v1" :>

47 "pushtokens" :>

48 "pushtokens" :>

49+ QueryParam "consistencyToken" (Textual Int64) :>

48− QueryParam "alt" AltJSON :>

50+ QueryParam "alt" AltJSON :>

49− ReqBody '[JSON] PushToken :> Put '[JSON] ()

51+ ReqBody '[JSON] PushToken :> Put '[JSON] ()

50

52

51-- | Registers a push token for the current user and application.

53-- | Registers a push token for the current user and application.

52--

54--

53-- /See:/ 'pushtokensUpdate' smart constructor.

55-- /See:/ 'pushtokensUpdate' smart constructor.

54−newtype PushtokensUpdate = PushtokensUpdate'

56+data PushtokensUpdate = PushtokensUpdate'

57+ { _puConsistencyToken :: !(Maybe (Textual Int64))

55− { _puPayload :: PushToken

58+ , _puPayload :: !PushToken

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

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

57

60

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

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

59--

62--

60-- Use one of the following lenses to modify other fields as desired:

63-- Use one of the following lenses to modify other fields as desired:

61--

64--

65+-- * 'puConsistencyToken'

66+--

62-- * 'puPayload'

67-- * 'puPayload'

63pushtokensUpdate

68pushtokensUpdate

64 :: PushToken -- ^ 'puPayload'

69 :: PushToken -- ^ 'puPayload'

65 -> PushtokensUpdate

70 -> PushtokensUpdate

66pushtokensUpdate pPuPayload_ =

71pushtokensUpdate pPuPayload_ =

67 PushtokensUpdate'

72 PushtokensUpdate'

73+ { _puConsistencyToken = Nothing

68− { _puPayload = pPuPayload_

74+ , _puPayload = pPuPayload_

69 }

75 }

70

76

77+-- | The last-seen mutation timestamp.

78+puConsistencyToken :: Lens' PushtokensUpdate (Maybe Int64)

79+puConsistencyToken

80+ = lens _puConsistencyToken

81+ (\ s a -> s{_puConsistencyToken = a})

82+ . mapping _Coerce

83+

71-- | Multipart request metadata.

84-- | Multipart request metadata.

72puPayload :: Lens' PushtokensUpdate PushToken

85puPayload :: Lens' PushtokensUpdate PushToken

73puPayload

86puPayload

@@ -79,7 +92,8 @@ instance GoogleRequest PushtokensUpdate where

79 '["https://www.googleapis.com/auth/games",

92 '["https://www.googleapis.com/auth/games",

80 "https://www.googleapis.com/auth/plus.login"]

93 "https://www.googleapis.com/auth/plus.login"]

81 requestClient PushtokensUpdate'{..}

94 requestClient PushtokensUpdate'{..}

82− = go (Just AltJSON) _puPayload gamesService

95+ = go _puConsistencyToken (Just AltJSON) _puPayload

96+ gamesService

83 where go

97 where go

84 = buildClient

98 = buildClient

85 (Proxy :: Proxy PushtokensUpdateResource)

99 (Proxy :: Proxy PushtokensUpdateResource)

gogol-games/gen/Network/Google/Resource/Games/QuestMilestones/Claim.hs+18−4

@@ -36,6 +36,7 @@ module Network.Google.Resource.Games.QuestMilestones.Claim

36

37 -- * Request Lenses

38 , qmcRequestId

39+ , qmcConsistencyToken

39 , qmcMilestoneId

40 , qmcMilestoneId

40 , qmcQuestId

41 , qmcQuestId

41 ) where

42 ) where

@@ -54,7 +55,8 @@ type QuestMilestonesClaimResource =

54 Capture "milestoneId" Text :>

55 Capture "milestoneId" Text :>

55 "claim" :>

56 "claim" :>

56 QueryParam "requestId" (Textual Int64) :>

57 QueryParam "requestId" (Textual Int64) :>

58+ QueryParam "consistencyToken" (Textual Int64) :>

57− QueryParam "alt" AltJSON :> Put '[JSON] ()

59+ QueryParam "alt" AltJSON :> Put '[JSON] ()

58

60

59-- | Report that a reward for the milestone corresponding to milestoneId for

61-- | Report that a reward for the milestone corresponding to milestoneId for

60-- the quest corresponding to questId has been claimed by the currently

62-- the quest corresponding to questId has been claimed by the currently

@@ -62,9 +64,10 @@ type QuestMilestonesClaimResource =

62--

64--

63-- /See:/ 'questMilestonesClaim' smart constructor.

65-- /See:/ 'questMilestonesClaim' smart constructor.

64data QuestMilestonesClaim = QuestMilestonesClaim'

66data QuestMilestonesClaim = QuestMilestonesClaim'

65− { _qmcRequestId :: !(Textual Int64)

67+ { _qmcRequestId :: !(Textual Int64)

68+ , _qmcConsistencyToken :: !(Maybe (Textual Int64))

66− , _qmcMilestoneId :: !Text

69+ , _qmcMilestoneId :: !Text

67− , _qmcQuestId :: !Text

70+ , _qmcQuestId :: !Text

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

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

69

72

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

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

@@ -73,6 +76,8 @@ data QuestMilestonesClaim = QuestMilestonesClaim'

73--

76--

74-- * 'qmcRequestId'

77-- * 'qmcRequestId'

75--

78--

79+-- * 'qmcConsistencyToken'

80+--

76-- * 'qmcMilestoneId'

81-- * 'qmcMilestoneId'

77--

82--

78-- * 'qmcQuestId'

83-- * 'qmcQuestId'

@@ -84,6 +89,7 @@ questMilestonesClaim

84questMilestonesClaim pQmcRequestId_ pQmcMilestoneId_ pQmcQuestId_ =

89questMilestonesClaim pQmcRequestId_ pQmcMilestoneId_ pQmcQuestId_ =

85 QuestMilestonesClaim'

90 QuestMilestonesClaim'

86 { _qmcRequestId = _Coerce # pQmcRequestId_

91 { _qmcRequestId = _Coerce # pQmcRequestId_

92+ , _qmcConsistencyToken = Nothing

87 , _qmcMilestoneId = pQmcMilestoneId_

93 , _qmcMilestoneId = pQmcMilestoneId_

88 , _qmcQuestId = pQmcQuestId_

94 , _qmcQuestId = pQmcQuestId_

89 }

95 }

@@ -95,6 +101,13 @@ qmcRequestId

95 = lens _qmcRequestId (\ s a -> s{_qmcRequestId = a})

101 = lens _qmcRequestId (\ s a -> s{_qmcRequestId = a})

96 . _Coerce

102 . _Coerce

97

103

104+-- | The last-seen mutation timestamp.

105+qmcConsistencyToken :: Lens' QuestMilestonesClaim (Maybe Int64)

106+qmcConsistencyToken

107+ = lens _qmcConsistencyToken

108+ (\ s a -> s{_qmcConsistencyToken = a})

109+ . mapping _Coerce

110+

98-- | The ID of the milestone.

111-- | The ID of the milestone.

99qmcMilestoneId :: Lens' QuestMilestonesClaim Text

112qmcMilestoneId :: Lens' QuestMilestonesClaim Text

100qmcMilestoneId

113qmcMilestoneId

@@ -113,6 +126,7 @@ instance GoogleRequest QuestMilestonesClaim where

113 "https://www.googleapis.com/auth/plus.login"]

126 "https://www.googleapis.com/auth/plus.login"]

114 requestClient QuestMilestonesClaim'{..}

127 requestClient QuestMilestonesClaim'{..}

115 = go _qmcQuestId _qmcMilestoneId (Just _qmcRequestId)

128 = go _qmcQuestId _qmcMilestoneId (Just _qmcRequestId)

129+ _qmcConsistencyToken

116 (Just AltJSON)

130 (Just AltJSON)

117 gamesService

131 gamesService

118 where go

132 where go

gogol-games/gen/Network/Google/Resource/Games/Quests/Accept.hs+20−6

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Quests.Accept

34 , QuestsAccept

35

36 -- * Request Lenses

37+ , qaConsistencyToken

37 , qaLanguage

38 , qaLanguage

38 , qaQuestId

39 , qaQuestId

39 ) where

40 ) where

@@ -49,22 +50,26 @@ type QuestsAcceptResource =

49 "quests" :>

50 "quests" :>

50 Capture "questId" Text :>

51 Capture "questId" Text :>

51 "accept" :>

52 "accept" :>

53+ QueryParam "consistencyToken" (Textual Int64) :>

52− QueryParam "language" Text :>

54+ QueryParam "language" Text :>

53− QueryParam "alt" AltJSON :> Post '[JSON] Quest

55+ QueryParam "alt" AltJSON :> Post '[JSON] Quest

54

56

55-- | Indicates that the currently authorized user will participate in the

57-- | Indicates that the currently authorized user will participate in the

56-- quest.

58-- quest.

57--

59--

58-- /See:/ 'questsAccept' smart constructor.

60-- /See:/ 'questsAccept' smart constructor.

59data QuestsAccept = QuestsAccept'

61data QuestsAccept = QuestsAccept'

62+ { _qaConsistencyToken :: !(Maybe (Textual Int64))

60− { _qaLanguage :: !(Maybe Text)

63+ , _qaLanguage :: !(Maybe Text)

61− , _qaQuestId :: !Text

64+ , _qaQuestId :: !Text

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

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

63

66

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

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

65--

68--

66-- Use one of the following lenses to modify other fields as desired:

69-- Use one of the following lenses to modify other fields as desired:

67--

70--

71+-- * 'qaConsistencyToken'

72+--

68-- * 'qaLanguage'

73-- * 'qaLanguage'

69--

74--

70-- * 'qaQuestId'

75-- * 'qaQuestId'

@@ -73,10 +78,18 @@ questsAccept

73 -> QuestsAccept

78 -> QuestsAccept

74questsAccept pQaQuestId_ =

79questsAccept pQaQuestId_ =

75 QuestsAccept'

80 QuestsAccept'

81+ { _qaConsistencyToken = Nothing

76− { _qaLanguage = Nothing

82+ , _qaLanguage = Nothing

77 , _qaQuestId = pQaQuestId_

83 , _qaQuestId = pQaQuestId_

78 }

84 }

79

85

86+-- | The last-seen mutation timestamp.

87+qaConsistencyToken :: Lens' QuestsAccept (Maybe Int64)

88+qaConsistencyToken

89+ = lens _qaConsistencyToken

90+ (\ s a -> s{_qaConsistencyToken = a})

91+ . mapping _Coerce

92+

80-- | The preferred language to use for strings returned by this method.

93-- | The preferred language to use for strings returned by this method.

81qaLanguage :: Lens' QuestsAccept (Maybe Text)

94qaLanguage :: Lens' QuestsAccept (Maybe Text)

82qaLanguage

95qaLanguage

@@ -93,7 +106,8 @@ instance GoogleRequest QuestsAccept where

93 '["https://www.googleapis.com/auth/games",

106 '["https://www.googleapis.com/auth/games",

94 "https://www.googleapis.com/auth/plus.login"]

107 "https://www.googleapis.com/auth/plus.login"]

95 requestClient QuestsAccept'{..}

108 requestClient QuestsAccept'{..}

96− = go _qaQuestId _qaLanguage (Just AltJSON)

109+ = go _qaQuestId _qaConsistencyToken _qaLanguage

110+ (Just AltJSON)

97 gamesService

111 gamesService

98 where go

112 where go

99 = buildClient (Proxy :: Proxy QuestsAcceptResource)

113 = buildClient (Proxy :: Proxy QuestsAcceptResource)

gogol-games/gen/Network/Google/Resource/Games/Quests/List.hs+25−11

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Quests.List

34 , QuestsList

35

36 -- * Request Lenses

37+ , qlConsistencyToken

37 , qlLanguage

38 , qlLanguage

38 , qlPageToken

39 , qlPageToken

39 , qlPlayerId

40 , qlPlayerId

@@ -51,27 +52,31 @@ type QuestsListResource =

51 "players" :>

52 "players" :>

52 Capture "playerId" Text :>

53 Capture "playerId" Text :>

53 "quests" :>

54 "quests" :>

54− QueryParam "language" Text :>

55+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "pageToken" Text :>

56+ QueryParam "language" Text :>

57+ QueryParam "pageToken" Text :>

56− QueryParam "maxResults" (Textual Int32) :>

58+ QueryParam "maxResults" (Textual Int32) :>

57− QueryParam "alt" AltJSON :>

59+ QueryParam "alt" AltJSON :>

58− Get '[JSON] QuestListResponse

60+ Get '[JSON] QuestListResponse

59

61

60-- | Get a list of quests for your application and the currently

62-- | Get a list of quests for your application and the currently

61-- authenticated player.

63-- authenticated player.

62--

64--

63-- /See:/ 'questsList' smart constructor.

65-- /See:/ 'questsList' smart constructor.

64data QuestsList = QuestsList'

66data QuestsList = QuestsList'

67+ { _qlConsistencyToken :: !(Maybe (Textual Int64))

65− { _qlLanguage :: !(Maybe Text)

68+ , _qlLanguage :: !(Maybe Text)

66− , _qlPageToken :: !(Maybe Text)

69+ , _qlPageToken :: !(Maybe Text)

67− , _qlPlayerId :: !Text

70+ , _qlPlayerId :: !Text

68− , _qlMaxResults :: !(Maybe (Textual Int32))

71+ , _qlMaxResults :: !(Maybe (Textual Int32))

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

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

70

73

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

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

72--

75--

73-- Use one of the following lenses to modify other fields as desired:

76-- Use one of the following lenses to modify other fields as desired:

74--

77--

78+-- * 'qlConsistencyToken'

79+--

75-- * 'qlLanguage'

80-- * 'qlLanguage'

76--

81--

77-- * 'qlPageToken'

82-- * 'qlPageToken'

@@ -84,12 +89,20 @@ questsList

84 -> QuestsList

89 -> QuestsList

85questsList pQlPlayerId_ =

90questsList pQlPlayerId_ =

86 QuestsList'

91 QuestsList'

92+ { _qlConsistencyToken = Nothing

87− { _qlLanguage = Nothing

93+ , _qlLanguage = Nothing

88 , _qlPageToken = Nothing

94 , _qlPageToken = Nothing

89 , _qlPlayerId = pQlPlayerId_

95 , _qlPlayerId = pQlPlayerId_

90 , _qlMaxResults = Nothing

96 , _qlMaxResults = Nothing

91 }

97 }

92

98

99+-- | The last-seen mutation timestamp.

100+qlConsistencyToken :: Lens' QuestsList (Maybe Int64)

101+qlConsistencyToken

102+ = lens _qlConsistencyToken

103+ (\ s a -> s{_qlConsistencyToken = a})

104+ . mapping _Coerce

105+

93-- | The preferred language to use for strings returned by this method.

106-- | The preferred language to use for strings returned by this method.

94qlLanguage :: Lens' QuestsList (Maybe Text)

107qlLanguage :: Lens' QuestsList (Maybe Text)

95qlLanguage

108qlLanguage

@@ -121,7 +134,8 @@ instance GoogleRequest QuestsList where

121 '["https://www.googleapis.com/auth/games",

134 '["https://www.googleapis.com/auth/games",

122 "https://www.googleapis.com/auth/plus.login"]

135 "https://www.googleapis.com/auth/plus.login"]

123 requestClient QuestsList'{..}

136 requestClient QuestsList'{..}

124− = go _qlPlayerId _qlLanguage _qlPageToken

137+ = go _qlPlayerId _qlConsistencyToken _qlLanguage

138+ _qlPageToken

125 _qlMaxResults

139 _qlMaxResults

126 (Just AltJSON)

140 (Just AltJSON)

127 gamesService

141 gamesService

gogol-games/gen/Network/Google/Resource/Games/Revisions/Check.hs+28−14

@@ -33,7 +33,8 @@ module Network.Google.Resource.Games.Revisions.Check

33 , RevisionsCheck

34

35 -- * Request Lenses

36− , rcClientRevision

36+ , revClientRevision

37+ , revConsistencyToken

37 ) where

38 ) where

38

39

39import Network.Google.Games.Types

40import Network.Google.Games.Types

@@ -47,37 +48,49 @@ type RevisionsCheckResource =

47 "revisions" :>

48 "revisions" :>

48 "check" :>

49 "check" :>

49 QueryParam "clientRevision" Text :>

50 QueryParam "clientRevision" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "alt" AltJSON :>

52+ QueryParam "alt" AltJSON :>

51− Get '[JSON] RevisionCheckResponse

53+ Get '[JSON] RevisionCheckResponse

52

54

53-- | Checks whether the games client is out of date.

55-- | Checks whether the games client is out of date.

54--

56--

55-- /See:/ 'revisionsCheck' smart constructor.

57-- /See:/ 'revisionsCheck' smart constructor.

56−newtype RevisionsCheck = RevisionsCheck'

58+data RevisionsCheck = RevisionsCheck'

57− { _rcClientRevision :: Text

59+ { _revClientRevision :: !Text

60+ , _revConsistencyToken :: !(Maybe (Textual Int64))

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

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

59

62

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

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

61--

64--

62-- Use one of the following lenses to modify other fields as desired:

65-- Use one of the following lenses to modify other fields as desired:

63--

66--

64−-- * 'rcClientRevision'

67+-- * 'revClientRevision'

68+--

69+-- * 'revConsistencyToken'

65revisionsCheck

70revisionsCheck

66− :: Text -- ^ 'rcClientRevision'

71+ :: Text -- ^ 'revClientRevision'

67 -> RevisionsCheck

72 -> RevisionsCheck

68−revisionsCheck pRcClientRevision_ =

73+revisionsCheck pRevClientRevision_ =

69 RevisionsCheck'

74 RevisionsCheck'

70− { _rcClientRevision = pRcClientRevision_

75+ { _revClientRevision = pRevClientRevision_

76+ , _revConsistencyToken = Nothing

71 }

77 }

72

78

73-- | The revision of the client SDK used by your application. Format:

79-- | The revision of the client SDK used by your application. Format:

74-- [PLATFORM_TYPE]:[VERSION_NUMBER]. Possible values of PLATFORM_TYPE are:

80-- [PLATFORM_TYPE]:[VERSION_NUMBER]. Possible values of PLATFORM_TYPE are:

75-- - \"ANDROID\" - Client is running the Android SDK. - \"IOS\" - Client is

81-- - \"ANDROID\" - Client is running the Android SDK. - \"IOS\" - Client is

76-- running the iOS SDK. - \"WEB_APP\" - Client is running as a Web App.

82-- running the iOS SDK. - \"WEB_APP\" - Client is running as a Web App.

77−rcClientRevision :: Lens' RevisionsCheck Text

83+revClientRevision :: Lens' RevisionsCheck Text

78−rcClientRevision

84+revClientRevision

79− = lens _rcClientRevision

85+ = lens _revClientRevision

80− (\ s a -> s{_rcClientRevision = a})

86+ (\ s a -> s{_revClientRevision = a})

87+

88+-- | The last-seen mutation timestamp.

89+revConsistencyToken :: Lens' RevisionsCheck (Maybe Int64)

90+revConsistencyToken

91+ = lens _revConsistencyToken

92+ (\ s a -> s{_revConsistencyToken = a})

93+ . mapping _Coerce

81

94

82instance GoogleRequest RevisionsCheck where

95instance GoogleRequest RevisionsCheck where

83 type Rs RevisionsCheck = RevisionCheckResponse

96 type Rs RevisionsCheck = RevisionCheckResponse

@@ -85,7 +98,8 @@ instance GoogleRequest RevisionsCheck where

85 '["https://www.googleapis.com/auth/games",

98 '["https://www.googleapis.com/auth/games",

86 "https://www.googleapis.com/auth/plus.login"]

99 "https://www.googleapis.com/auth/plus.login"]

87 requestClient RevisionsCheck'{..}

100 requestClient RevisionsCheck'{..}

101+ = go (Just _revClientRevision) _revConsistencyToken

88− = go (Just _rcClientRevision) (Just AltJSON)

102+ (Just AltJSON)

89 gamesService

103 gamesService

90 where go

104 where go

91 = buildClient (Proxy :: Proxy RevisionsCheckResource)

105 = buildClient (Proxy :: Proxy RevisionsCheckResource)

gogol-games/gen/Network/Google/Resource/Games/Rooms/Create.hs+22−8

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Rooms.Create

34 , RoomsCreate

35

36 -- * Request Lenses

37+ , rcConsistencyToken

37 , rcPayload

38 , rcPayload

38 , rcLanguage

39 , rcLanguage

39 ) where

40 ) where

@@ -48,24 +49,28 @@ type RoomsCreateResource =

48 "v1" :>

49 "v1" :>

49 "rooms" :>

50 "rooms" :>

50 "create" :>

51 "create" :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "language" Text :>

53+ QueryParam "language" Text :>

52− QueryParam "alt" AltJSON :>

54+ QueryParam "alt" AltJSON :>

53− ReqBody '[JSON] RoomCreateRequest :>

55+ ReqBody '[JSON] RoomCreateRequest :>

54− Post '[JSON] Room

56+ Post '[JSON] Room

55

57

56-- | Create a room. For internal use by the Games SDK only. Calling this

58-- | Create a room. For internal use by the Games SDK only. Calling this

57-- method directly is unsupported.

59-- method directly is unsupported.

58--

60--

59-- /See:/ 'roomsCreate' smart constructor.

61-- /See:/ 'roomsCreate' smart constructor.

60data RoomsCreate = RoomsCreate'

62data RoomsCreate = RoomsCreate'

63+ { _rcConsistencyToken :: !(Maybe (Textual Int64))

61− { _rcPayload :: !RoomCreateRequest

64+ , _rcPayload :: !RoomCreateRequest

62− , _rcLanguage :: !(Maybe Text)

65+ , _rcLanguage :: !(Maybe Text)

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

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

64

67

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

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

66--

69--

67-- Use one of the following lenses to modify other fields as desired:

70-- Use one of the following lenses to modify other fields as desired:

68--

71--

72+-- * 'rcConsistencyToken'

73+--

69-- * 'rcPayload'

74-- * 'rcPayload'

70--

75--

71-- * 'rcLanguage'

76-- * 'rcLanguage'

@@ -74,10 +79,18 @@ roomsCreate

74 -> RoomsCreate

79 -> RoomsCreate

75roomsCreate pRcPayload_ =

80roomsCreate pRcPayload_ =

76 RoomsCreate'

81 RoomsCreate'

82+ { _rcConsistencyToken = Nothing

77− { _rcPayload = pRcPayload_

83+ , _rcPayload = pRcPayload_

78 , _rcLanguage = Nothing

84 , _rcLanguage = Nothing

79 }

85 }

80

86

87+-- | The last-seen mutation timestamp.

88+rcConsistencyToken :: Lens' RoomsCreate (Maybe Int64)

89+rcConsistencyToken

90+ = lens _rcConsistencyToken

91+ (\ s a -> s{_rcConsistencyToken = a})

92+ . mapping _Coerce

93+

81-- | Multipart request metadata.

94-- | Multipart request metadata.

82rcPayload :: Lens' RoomsCreate RoomCreateRequest

95rcPayload :: Lens' RoomsCreate RoomCreateRequest

83rcPayload

96rcPayload

@@ -94,7 +107,8 @@ instance GoogleRequest RoomsCreate where

94 '["https://www.googleapis.com/auth/games",

107 '["https://www.googleapis.com/auth/games",

95 "https://www.googleapis.com/auth/plus.login"]

108 "https://www.googleapis.com/auth/plus.login"]

96 requestClient RoomsCreate'{..}

109 requestClient RoomsCreate'{..}

97− = go _rcLanguage (Just AltJSON) _rcPayload

110+ = go _rcConsistencyToken _rcLanguage (Just AltJSON)

111+ _rcPayload

98 gamesService

112 gamesService

99 where go

113 where go

100 = buildClient (Proxy :: Proxy RoomsCreateResource)

114 = buildClient (Proxy :: Proxy RoomsCreateResource)

gogol-games/gen/Network/Google/Resource/Games/Rooms/Decline.hs+20−6

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Rooms.Decline

34 , RoomsDecline

35

36 -- * Request Lenses

37+ , rooConsistencyToken

37 , rooRoomId

38 , rooRoomId

38 , rooLanguage

39 , rooLanguage

39 ) where

40 ) where

@@ -49,22 +50,26 @@ type RoomsDeclineResource =

49 "rooms" :>

50 "rooms" :>

50 Capture "roomId" Text :>

51 Capture "roomId" Text :>

51 "decline" :>

52 "decline" :>

53+ QueryParam "consistencyToken" (Textual Int64) :>

52− QueryParam "language" Text :>

54+ QueryParam "language" Text :>

53− QueryParam "alt" AltJSON :> Post '[JSON] Room

55+ QueryParam "alt" AltJSON :> Post '[JSON] Room

54

56

55-- | Decline an invitation to join a room. For internal use by the Games SDK

57-- | Decline an invitation to join a room. For internal use by the Games SDK

56-- only. Calling this method directly is unsupported.

58-- only. Calling this method directly is unsupported.

57--

59--

58-- /See:/ 'roomsDecline' smart constructor.

60-- /See:/ 'roomsDecline' smart constructor.

59data RoomsDecline = RoomsDecline'

61data RoomsDecline = RoomsDecline'

62+ { _rooConsistencyToken :: !(Maybe (Textual Int64))

60− { _rooRoomId :: !Text

63+ , _rooRoomId :: !Text

61− , _rooLanguage :: !(Maybe Text)

64+ , _rooLanguage :: !(Maybe Text)

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

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

63

66

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

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

65--

68--

66-- Use one of the following lenses to modify other fields as desired:

69-- Use one of the following lenses to modify other fields as desired:

67--

70--

71+-- * 'rooConsistencyToken'

72+--

68-- * 'rooRoomId'

73-- * 'rooRoomId'

69--

74--

70-- * 'rooLanguage'

75-- * 'rooLanguage'

@@ -73,10 +78,18 @@ roomsDecline

73 -> RoomsDecline

78 -> RoomsDecline

74roomsDecline pRooRoomId_ =

79roomsDecline pRooRoomId_ =

75 RoomsDecline'

80 RoomsDecline'

81+ { _rooConsistencyToken = Nothing

76− { _rooRoomId = pRooRoomId_

82+ , _rooRoomId = pRooRoomId_

77 , _rooLanguage = Nothing

83 , _rooLanguage = Nothing

78 }

84 }

79

85

86+-- | The last-seen mutation timestamp.

87+rooConsistencyToken :: Lens' RoomsDecline (Maybe Int64)

88+rooConsistencyToken

89+ = lens _rooConsistencyToken

90+ (\ s a -> s{_rooConsistencyToken = a})

91+ . mapping _Coerce

92+

80-- | The ID of the room.

93-- | The ID of the room.

81rooRoomId :: Lens' RoomsDecline Text

94rooRoomId :: Lens' RoomsDecline Text

82rooRoomId

95rooRoomId

@@ -93,7 +106,8 @@ instance GoogleRequest RoomsDecline where

93 '["https://www.googleapis.com/auth/games",

106 '["https://www.googleapis.com/auth/games",

94 "https://www.googleapis.com/auth/plus.login"]

107 "https://www.googleapis.com/auth/plus.login"]

95 requestClient RoomsDecline'{..}

108 requestClient RoomsDecline'{..}

96− = go _rooRoomId _rooLanguage (Just AltJSON)

109+ = go _rooRoomId _rooConsistencyToken _rooLanguage

110+ (Just AltJSON)

97 gamesService

111 gamesService

98 where go

112 where go

99 = buildClient (Proxy :: Proxy RoomsDeclineResource)

113 = buildClient (Proxy :: Proxy RoomsDeclineResource)

gogol-games/gen/Network/Google/Resource/Games/Rooms/Dismiss.hs+19−5

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Rooms.Dismiss

34 , RoomsDismiss

35

36 -- * Request Lenses

37+ , rdConsistencyToken

37 , rdRoomId

38 , rdRoomId

38 ) where

39 ) where

39

40

@@ -48,29 +49,41 @@ type RoomsDismissResource =

48 "rooms" :>

49 "rooms" :>

49 Capture "roomId" Text :>

50 Capture "roomId" Text :>

50 "dismiss" :>

51 "dismiss" :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "alt" AltJSON :> Post '[JSON] ()

53+ QueryParam "alt" AltJSON :> Post '[JSON] ()

52

54

53-- | Dismiss an invitation to join a room. For internal use by the Games SDK

55-- | Dismiss an invitation to join a room. For internal use by the Games SDK

54-- only. Calling this method directly is unsupported.

56-- only. Calling this method directly is unsupported.

55--

57--

56-- /See:/ 'roomsDismiss' smart constructor.

58-- /See:/ 'roomsDismiss' smart constructor.

57−newtype RoomsDismiss = RoomsDismiss'

59+data RoomsDismiss = RoomsDismiss'

60+ { _rdConsistencyToken :: !(Maybe (Textual Int64))

58− { _rdRoomId :: Text

61+ , _rdRoomId :: !Text

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

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

60

63

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

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

62--

65--

63-- Use one of the following lenses to modify other fields as desired:

66-- Use one of the following lenses to modify other fields as desired:

64--

67--

68+-- * 'rdConsistencyToken'

69+--

65-- * 'rdRoomId'

70-- * 'rdRoomId'

66roomsDismiss

71roomsDismiss

67 :: Text -- ^ 'rdRoomId'

72 :: Text -- ^ 'rdRoomId'

68 -> RoomsDismiss

73 -> RoomsDismiss

69roomsDismiss pRdRoomId_ =

74roomsDismiss pRdRoomId_ =

70 RoomsDismiss'

75 RoomsDismiss'

76+ { _rdConsistencyToken = Nothing

71− { _rdRoomId = pRdRoomId_

77+ , _rdRoomId = pRdRoomId_

72 }

78 }

73

79

80+-- | The last-seen mutation timestamp.

81+rdConsistencyToken :: Lens' RoomsDismiss (Maybe Int64)

82+rdConsistencyToken

83+ = lens _rdConsistencyToken

84+ (\ s a -> s{_rdConsistencyToken = a})

85+ . mapping _Coerce

86+

74-- | The ID of the room.

87-- | The ID of the room.

75rdRoomId :: Lens' RoomsDismiss Text

88rdRoomId :: Lens' RoomsDismiss Text

76rdRoomId = lens _rdRoomId (\ s a -> s{_rdRoomId = a})

89rdRoomId = lens _rdRoomId (\ s a -> s{_rdRoomId = a})

@@ -81,7 +94,8 @@ instance GoogleRequest RoomsDismiss where

81 '["https://www.googleapis.com/auth/games",

94 '["https://www.googleapis.com/auth/games",

82 "https://www.googleapis.com/auth/plus.login"]

95 "https://www.googleapis.com/auth/plus.login"]

83 requestClient RoomsDismiss'{..}

96 requestClient RoomsDismiss'{..}

84− = go _rdRoomId (Just AltJSON) gamesService

97+ = go _rdRoomId _rdConsistencyToken (Just AltJSON)

98+ gamesService

85 where go

99 where go

86 = buildClient (Proxy :: Proxy RoomsDismissResource)

100 = buildClient (Proxy :: Proxy RoomsDismissResource)

87 mempty

101 mempty

gogol-games/gen/Network/Google/Resource/Games/Rooms/Get.hs+20−6

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Rooms.Get

33 , RoomsGet

34

35 -- * Request Lenses

36+ , rgConsistencyToken

36 , rgRoomId

37 , rgRoomId

37 , rgLanguage

38 , rgLanguage

38 ) where

39 ) where

@@ -47,21 +48,25 @@ type RoomsGetResource =

47 "v1" :>

48 "v1" :>

48 "rooms" :>

49 "rooms" :>

49 Capture "roomId" Text :>

50 Capture "roomId" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "alt" AltJSON :> Get '[JSON] Room

53+ QueryParam "alt" AltJSON :> Get '[JSON] Room

52

54

53-- | Get the data for a room.

55-- | Get the data for a room.

54--

56--

55-- /See:/ 'roomsGet' smart constructor.

57-- /See:/ 'roomsGet' smart constructor.

56data RoomsGet = RoomsGet'

58data RoomsGet = RoomsGet'

59+ { _rgConsistencyToken :: !(Maybe (Textual Int64))

57− { _rgRoomId :: !Text

60+ , _rgRoomId :: !Text

58− , _rgLanguage :: !(Maybe Text)

61+ , _rgLanguage :: !(Maybe Text)

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

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

60

63

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

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

62--

65--

63-- Use one of the following lenses to modify other fields as desired:

66-- Use one of the following lenses to modify other fields as desired:

64--

67--

68+-- * 'rgConsistencyToken'

69+--

65-- * 'rgRoomId'

70-- * 'rgRoomId'

66--

71--

67-- * 'rgLanguage'

72-- * 'rgLanguage'

@@ -70,10 +75,18 @@ roomsGet

70 -> RoomsGet

75 -> RoomsGet

71roomsGet pRgRoomId_ =

76roomsGet pRgRoomId_ =

72 RoomsGet'

77 RoomsGet'

78+ { _rgConsistencyToken = Nothing

73− { _rgRoomId = pRgRoomId_

79+ , _rgRoomId = pRgRoomId_

74 , _rgLanguage = Nothing

80 , _rgLanguage = Nothing

75 }

81 }

76

82

83+-- | The last-seen mutation timestamp.

84+rgConsistencyToken :: Lens' RoomsGet (Maybe Int64)

85+rgConsistencyToken

86+ = lens _rgConsistencyToken

87+ (\ s a -> s{_rgConsistencyToken = a})

88+ . mapping _Coerce

89+

77-- | The ID of the room.

90-- | The ID of the room.

78rgRoomId :: Lens' RoomsGet Text

91rgRoomId :: Lens' RoomsGet Text

79rgRoomId = lens _rgRoomId (\ s a -> s{_rgRoomId = a})

92rgRoomId = lens _rgRoomId (\ s a -> s{_rgRoomId = a})

@@ -89,7 +102,8 @@ instance GoogleRequest RoomsGet where

89 '["https://www.googleapis.com/auth/games",

102 '["https://www.googleapis.com/auth/games",

90 "https://www.googleapis.com/auth/plus.login"]

103 "https://www.googleapis.com/auth/plus.login"]

91 requestClient RoomsGet'{..}

104 requestClient RoomsGet'{..}

92− = go _rgRoomId _rgLanguage (Just AltJSON)

105+ = go _rgRoomId _rgConsistencyToken _rgLanguage

106+ (Just AltJSON)

93 gamesService

107 gamesService

94 where go

108 where go

95 = buildClient (Proxy :: Proxy RoomsGetResource)

109 = buildClient (Proxy :: Proxy RoomsGetResource)

gogol-games/gen/Network/Google/Resource/Games/Rooms/Join.hs+23−8

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Rooms.Join

34 , RoomsJoin

35

36 -- * Request Lenses

37+ , rjConsistencyToken

37 , rjPayload

38 , rjPayload

38 , rjRoomId

39 , rjRoomId

39 , rjLanguage

40 , rjLanguage

@@ -50,24 +51,28 @@ type RoomsJoinResource =

50 "rooms" :>

51 "rooms" :>

51 Capture "roomId" Text :>

52 Capture "roomId" Text :>

52 "join" :>

53 "join" :>

54+ QueryParam "consistencyToken" (Textual Int64) :>

53− QueryParam "language" Text :>

55+ QueryParam "language" Text :>

54− QueryParam "alt" AltJSON :>

56+ QueryParam "alt" AltJSON :>

55− ReqBody '[JSON] RoomJoinRequest :> Post '[JSON] Room

57+ ReqBody '[JSON] RoomJoinRequest :> Post '[JSON] Room

56

58

57-- | Join a room. For internal use by the Games SDK only. Calling this method

59-- | Join a room. For internal use by the Games SDK only. Calling this method

58-- directly is unsupported.

60-- directly is unsupported.

59--

61--

60-- /See:/ 'roomsJoin' smart constructor.

62-- /See:/ 'roomsJoin' smart constructor.

61data RoomsJoin = RoomsJoin'

63data RoomsJoin = RoomsJoin'

64+ { _rjConsistencyToken :: !(Maybe (Textual Int64))

62− { _rjPayload :: !RoomJoinRequest

65+ , _rjPayload :: !RoomJoinRequest

63− , _rjRoomId :: !Text

66+ , _rjRoomId :: !Text

64− , _rjLanguage :: !(Maybe Text)

67+ , _rjLanguage :: !(Maybe Text)

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

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

66

69

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

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

68--

71--

69-- Use one of the following lenses to modify other fields as desired:

72-- Use one of the following lenses to modify other fields as desired:

70--

73--

74+-- * 'rjConsistencyToken'

75+--

71-- * 'rjPayload'

76-- * 'rjPayload'

72--

77--

73-- * 'rjRoomId'

78-- * 'rjRoomId'

@@ -79,11 +84,19 @@ roomsJoin

79 -> RoomsJoin

84 -> RoomsJoin

80roomsJoin pRjPayload_ pRjRoomId_ =

85roomsJoin pRjPayload_ pRjRoomId_ =

81 RoomsJoin'

86 RoomsJoin'

87+ { _rjConsistencyToken = Nothing

82− { _rjPayload = pRjPayload_

88+ , _rjPayload = pRjPayload_

83 , _rjRoomId = pRjRoomId_

89 , _rjRoomId = pRjRoomId_

84 , _rjLanguage = Nothing

90 , _rjLanguage = Nothing

85 }

91 }

86

92

93+-- | The last-seen mutation timestamp.

94+rjConsistencyToken :: Lens' RoomsJoin (Maybe Int64)

95+rjConsistencyToken

96+ = lens _rjConsistencyToken

97+ (\ s a -> s{_rjConsistencyToken = a})

98+ . mapping _Coerce

99+

87-- | Multipart request metadata.

100-- | Multipart request metadata.

88rjPayload :: Lens' RoomsJoin RoomJoinRequest

101rjPayload :: Lens' RoomsJoin RoomJoinRequest

89rjPayload

102rjPayload

@@ -104,7 +117,9 @@ instance GoogleRequest RoomsJoin where

104 '["https://www.googleapis.com/auth/games",

117 '["https://www.googleapis.com/auth/games",

105 "https://www.googleapis.com/auth/plus.login"]

118 "https://www.googleapis.com/auth/plus.login"]

106 requestClient RoomsJoin'{..}

119 requestClient RoomsJoin'{..}

107− = go _rjRoomId _rjLanguage (Just AltJSON) _rjPayload

120+ = go _rjRoomId _rjConsistencyToken _rjLanguage

121+ (Just AltJSON)

122+ _rjPayload

108 gamesService

123 gamesService

109 where go

124 where go

110 = buildClient (Proxy :: Proxy RoomsJoinResource)

125 = buildClient (Proxy :: Proxy RoomsJoinResource)

gogol-games/gen/Network/Google/Resource/Games/Rooms/Leave.hs+23−8

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Rooms.Leave

34 , RoomsLeave

35

36 -- * Request Lenses

37+ , rlConsistencyToken

37 , rlPayload

38 , rlPayload

38 , rlRoomId

39 , rlRoomId

39 , rlLanguage

40 , rlLanguage

@@ -50,24 +51,28 @@ type RoomsLeaveResource =

50 "rooms" :>

51 "rooms" :>

51 Capture "roomId" Text :>

52 Capture "roomId" Text :>

52 "leave" :>

53 "leave" :>

54+ QueryParam "consistencyToken" (Textual Int64) :>

53− QueryParam "language" Text :>

55+ QueryParam "language" Text :>

54− QueryParam "alt" AltJSON :>

56+ QueryParam "alt" AltJSON :>

55− ReqBody '[JSON] RoomLeaveRequest :> Post '[JSON] Room

57+ ReqBody '[JSON] RoomLeaveRequest :> Post '[JSON] Room

56

58

57-- | Leave a room. For internal use by the Games SDK only. Calling this

59-- | Leave a room. For internal use by the Games SDK only. Calling this

58-- method directly is unsupported.

60-- method directly is unsupported.

59--

61--

60-- /See:/ 'roomsLeave' smart constructor.

62-- /See:/ 'roomsLeave' smart constructor.

61data RoomsLeave = RoomsLeave'

63data RoomsLeave = RoomsLeave'

64+ { _rlConsistencyToken :: !(Maybe (Textual Int64))

62− { _rlPayload :: !RoomLeaveRequest

65+ , _rlPayload :: !RoomLeaveRequest

63− , _rlRoomId :: !Text

66+ , _rlRoomId :: !Text

64− , _rlLanguage :: !(Maybe Text)

67+ , _rlLanguage :: !(Maybe Text)

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

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

66

69

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

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

68--

71--

69-- Use one of the following lenses to modify other fields as desired:

72-- Use one of the following lenses to modify other fields as desired:

70--

73--

74+-- * 'rlConsistencyToken'

75+--

71-- * 'rlPayload'

76-- * 'rlPayload'

72--

77--

73-- * 'rlRoomId'

78-- * 'rlRoomId'

@@ -79,11 +84,19 @@ roomsLeave

79 -> RoomsLeave

84 -> RoomsLeave

80roomsLeave pRlPayload_ pRlRoomId_ =

85roomsLeave pRlPayload_ pRlRoomId_ =

81 RoomsLeave'

86 RoomsLeave'

87+ { _rlConsistencyToken = Nothing

82− { _rlPayload = pRlPayload_

88+ , _rlPayload = pRlPayload_

83 , _rlRoomId = pRlRoomId_

89 , _rlRoomId = pRlRoomId_

84 , _rlLanguage = Nothing

90 , _rlLanguage = Nothing

85 }

91 }

86

92

93+-- | The last-seen mutation timestamp.

94+rlConsistencyToken :: Lens' RoomsLeave (Maybe Int64)

95+rlConsistencyToken

96+ = lens _rlConsistencyToken

97+ (\ s a -> s{_rlConsistencyToken = a})

98+ . mapping _Coerce

99+

87-- | Multipart request metadata.

100-- | Multipart request metadata.

88rlPayload :: Lens' RoomsLeave RoomLeaveRequest

101rlPayload :: Lens' RoomsLeave RoomLeaveRequest

89rlPayload

102rlPayload

@@ -104,7 +117,9 @@ instance GoogleRequest RoomsLeave where

104 '["https://www.googleapis.com/auth/games",

117 '["https://www.googleapis.com/auth/games",

105 "https://www.googleapis.com/auth/plus.login"]

118 "https://www.googleapis.com/auth/plus.login"]

106 requestClient RoomsLeave'{..}

119 requestClient RoomsLeave'{..}

107− = go _rlRoomId _rlLanguage (Just AltJSON) _rlPayload

120+ = go _rlRoomId _rlConsistencyToken _rlLanguage

121+ (Just AltJSON)

122+ _rlPayload

108 gamesService

123 gamesService

109 where go

124 where go

110 = buildClient (Proxy :: Proxy RoomsLeaveResource)

125 = buildClient (Proxy :: Proxy RoomsLeaveResource)

gogol-games/gen/Network/Google/Resource/Games/Rooms/List.hs+23−9

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Rooms.List

33 , RoomsList

34

35 -- * Request Lenses

36+ , rConsistencyToken

36 , rLanguage

37 , rLanguage

37 , rPageToken

38 , rPageToken

38 , rMaxResults

39 , rMaxResults

@@ -47,24 +48,28 @@ type RoomsListResource =

47 "games" :>

48 "games" :>

48 "v1" :>

49 "v1" :>

49 "rooms" :>

50 "rooms" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "pageToken" Text :>

53+ QueryParam "pageToken" Text :>

52− QueryParam "maxResults" (Textual Int32) :>

54+ QueryParam "maxResults" (Textual Int32) :>

53− QueryParam "alt" AltJSON :> Get '[JSON] RoomList

55+ QueryParam "alt" AltJSON :> Get '[JSON] RoomList

54

56

55-- | Returns invitations to join rooms.

57-- | Returns invitations to join rooms.

56--

58--

57-- /See:/ 'roomsList' smart constructor.

59-- /See:/ 'roomsList' smart constructor.

58data RoomsList = RoomsList'

60data RoomsList = RoomsList'

61+ { _rConsistencyToken :: !(Maybe (Textual Int64))

59− { _rLanguage :: !(Maybe Text)

62+ , _rLanguage :: !(Maybe Text)

60− , _rPageToken :: !(Maybe Text)

63+ , _rPageToken :: !(Maybe Text)

61− , _rMaxResults :: !(Maybe (Textual Int32))

64+ , _rMaxResults :: !(Maybe (Textual Int32))

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

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

63

66

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

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

65--

68--

66-- Use one of the following lenses to modify other fields as desired:

69-- Use one of the following lenses to modify other fields as desired:

67--

70--

71+-- * 'rConsistencyToken'

72+--

68-- * 'rLanguage'

73-- * 'rLanguage'

69--

74--

70-- * 'rPageToken'

75-- * 'rPageToken'

@@ -74,11 +79,19 @@ roomsList

74 :: RoomsList

79 :: RoomsList

75roomsList =

80roomsList =

76 RoomsList'

81 RoomsList'

82+ { _rConsistencyToken = Nothing

77− { _rLanguage = Nothing

83+ , _rLanguage = Nothing

78 , _rPageToken = Nothing

84 , _rPageToken = Nothing

79 , _rMaxResults = Nothing

85 , _rMaxResults = Nothing

80 }

86 }

81

87

88+-- | The last-seen mutation timestamp.

89+rConsistencyToken :: Lens' RoomsList (Maybe Int64)

90+rConsistencyToken

91+ = lens _rConsistencyToken

92+ (\ s a -> s{_rConsistencyToken = a})

93+ . mapping _Coerce

94+

82-- | The preferred language to use for strings returned by this method.

95-- | The preferred language to use for strings returned by this method.

83rLanguage :: Lens' RoomsList (Maybe Text)

96rLanguage :: Lens' RoomsList (Maybe Text)

84rLanguage

97rLanguage

@@ -103,7 +116,8 @@ instance GoogleRequest RoomsList where

103 '["https://www.googleapis.com/auth/games",

116 '["https://www.googleapis.com/auth/games",

104 "https://www.googleapis.com/auth/plus.login"]

117 "https://www.googleapis.com/auth/plus.login"]

105 requestClient RoomsList'{..}

118 requestClient RoomsList'{..}

106− = go _rLanguage _rPageToken _rMaxResults

119+ = go _rConsistencyToken _rLanguage _rPageToken

120+ _rMaxResults

107 (Just AltJSON)

121 (Just AltJSON)

108 gamesService

122 gamesService

109 where go

123 where go

gogol-games/gen/Network/Google/Resource/Games/Rooms/ReportStatus.hs+23−9

@@ -35,6 +35,7 @@ module Network.Google.Resource.Games.Rooms.ReportStatus

35 , RoomsReportStatus

36

37 -- * Request Lenses

38+ , rrsConsistencyToken

38 , rrsPayload

39 , rrsPayload

39 , rrsRoomId

40 , rrsRoomId

40 , rrsLanguage

41 , rrsLanguage

@@ -51,10 +52,11 @@ type RoomsReportStatusResource =

51 "rooms" :>

52 "rooms" :>

52 Capture "roomId" Text :>

53 Capture "roomId" Text :>

53 "reportstatus" :>

54 "reportstatus" :>

55+ QueryParam "consistencyToken" (Textual Int64) :>

54− QueryParam "language" Text :>

56+ QueryParam "language" Text :>

55− QueryParam "alt" AltJSON :>

57+ QueryParam "alt" AltJSON :>

56− ReqBody '[JSON] RoomP2PStatuses :>

58+ ReqBody '[JSON] RoomP2PStatuses :>

57− Post '[JSON] RoomStatus

59+ Post '[JSON] RoomStatus

58

60

59-- | Updates sent by a client reporting the status of peers in a room. For

61-- | Updates sent by a client reporting the status of peers in a room. For

60-- internal use by the Games SDK only. Calling this method directly is

62-- internal use by the Games SDK only. Calling this method directly is

@@ -62,15 +64,18 @@ type RoomsReportStatusResource =

62--

64--

63-- /See:/ 'roomsReportStatus' smart constructor.

65-- /See:/ 'roomsReportStatus' smart constructor.

64data RoomsReportStatus = RoomsReportStatus'

66data RoomsReportStatus = RoomsReportStatus'

67+ { _rrsConsistencyToken :: !(Maybe (Textual Int64))

65− { _rrsPayload :: !RoomP2PStatuses

68+ , _rrsPayload :: !RoomP2PStatuses

66− , _rrsRoomId :: !Text

69+ , _rrsRoomId :: !Text

67− , _rrsLanguage :: !(Maybe Text)

70+ , _rrsLanguage :: !(Maybe Text)

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

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

69

72

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

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

71--

74--

72-- Use one of the following lenses to modify other fields as desired:

75-- Use one of the following lenses to modify other fields as desired:

73--

76--

77+-- * 'rrsConsistencyToken'

78+--

74-- * 'rrsPayload'

79-- * 'rrsPayload'

75--

80--

76-- * 'rrsRoomId'

81-- * 'rrsRoomId'

@@ -82,11 +87,19 @@ roomsReportStatus

82 -> RoomsReportStatus

87 -> RoomsReportStatus

83roomsReportStatus pRrsPayload_ pRrsRoomId_ =

88roomsReportStatus pRrsPayload_ pRrsRoomId_ =

84 RoomsReportStatus'

89 RoomsReportStatus'

90+ { _rrsConsistencyToken = Nothing

85− { _rrsPayload = pRrsPayload_

91+ , _rrsPayload = pRrsPayload_

86 , _rrsRoomId = pRrsRoomId_

92 , _rrsRoomId = pRrsRoomId_

87 , _rrsLanguage = Nothing

93 , _rrsLanguage = Nothing

88 }

94 }

89

95

96+-- | The last-seen mutation timestamp.

97+rrsConsistencyToken :: Lens' RoomsReportStatus (Maybe Int64)

98+rrsConsistencyToken

99+ = lens _rrsConsistencyToken

100+ (\ s a -> s{_rrsConsistencyToken = a})

101+ . mapping _Coerce

102+

90-- | Multipart request metadata.

103-- | Multipart request metadata.

91rrsPayload :: Lens' RoomsReportStatus RoomP2PStatuses

104rrsPayload :: Lens' RoomsReportStatus RoomP2PStatuses

92rrsPayload

105rrsPayload

@@ -108,7 +121,8 @@ instance GoogleRequest RoomsReportStatus where

108 '["https://www.googleapis.com/auth/games",

121 '["https://www.googleapis.com/auth/games",

109 "https://www.googleapis.com/auth/plus.login"]

122 "https://www.googleapis.com/auth/plus.login"]

110 requestClient RoomsReportStatus'{..}

123 requestClient RoomsReportStatus'{..}

111− = go _rrsRoomId _rrsLanguage (Just AltJSON)

124+ = go _rrsRoomId _rrsConsistencyToken _rrsLanguage

125+ (Just AltJSON)

112 _rrsPayload

126 _rrsPayload

113 gamesService

127 gamesService

114 where go

128 where go

gogol-games/gen/Network/Google/Resource/Games/Scores/Get.hs+29−15

@@ -37,6 +37,7 @@ module Network.Google.Resource.Games.Scores.Get

37 , ScoresGet

38

39 -- * Request Lenses

40+ , sgConsistencyToken

40 , sgTimeSpan

41 , sgTimeSpan

41 , sgLeaderboardId

42 , sgLeaderboardId

42 , sgIncludeRankType

43 , sgIncludeRankType

@@ -60,13 +61,14 @@ type ScoresGetResource =

60 Capture "leaderboardId" Text :>

61 Capture "leaderboardId" Text :>

61 "scores" :>

62 "scores" :>

62 Capture "timeSpan" ScoresGetTimeSpan :>

63 Capture "timeSpan" ScoresGetTimeSpan :>

64+ QueryParam "consistencyToken" (Textual Int64) :>

63− QueryParam "includeRankType" ScoresGetIncludeRankType

65+ QueryParam "includeRankType" ScoresGetIncludeRankType

64− :>

66+ :>

65− QueryParam "language" Text :>

67+ QueryParam "language" Text :>

66− QueryParam "pageToken" Text :>

68+ QueryParam "pageToken" Text :>

67− QueryParam "maxResults" (Textual Int32) :>

69+ QueryParam "maxResults" (Textual Int32) :>

68− QueryParam "alt" AltJSON :>

70+ QueryParam "alt" AltJSON :>

69− Get '[JSON] PlayerLeaderboardScoreListResponse

71+ Get '[JSON] PlayerLeaderboardScoreListResponse

70

72

71-- | Get high scores, and optionally ranks, in leaderboards for the currently

73-- | Get high scores, and optionally ranks, in leaderboards for the currently

72-- authenticated player. For a specific time span, leaderboardId can be set

74-- authenticated player. For a specific time span, leaderboardId can be set

@@ -76,19 +78,22 @@ type ScoresGetResource =

76--

78--

77-- /See:/ 'scoresGet' smart constructor.

79-- /See:/ 'scoresGet' smart constructor.

78data ScoresGet = ScoresGet'

80data ScoresGet = ScoresGet'

81+ { _sgConsistencyToken :: !(Maybe (Textual Int64))

79− { _sgTimeSpan :: !ScoresGetTimeSpan

82+ , _sgTimeSpan :: !ScoresGetTimeSpan

80− , _sgLeaderboardId :: !Text

83+ , _sgLeaderboardId :: !Text

81− , _sgIncludeRankType :: !(Maybe ScoresGetIncludeRankType)

84+ , _sgIncludeRankType :: !(Maybe ScoresGetIncludeRankType)

82− , _sgLanguage :: !(Maybe Text)

85+ , _sgLanguage :: !(Maybe Text)

83− , _sgPageToken :: !(Maybe Text)

86+ , _sgPageToken :: !(Maybe Text)

84− , _sgPlayerId :: !Text

87+ , _sgPlayerId :: !Text

85− , _sgMaxResults :: !(Maybe (Textual Int32))

88+ , _sgMaxResults :: !(Maybe (Textual Int32))

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

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

87

90

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

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

89--

92--

90-- Use one of the following lenses to modify other fields as desired:

93-- Use one of the following lenses to modify other fields as desired:

91--

94--

95+-- * 'sgConsistencyToken'

96+--

92-- * 'sgTimeSpan'

97-- * 'sgTimeSpan'

93--

98--

94-- * 'sgLeaderboardId'

99-- * 'sgLeaderboardId'

@@ -109,7 +114,8 @@ scoresGet

109 -> ScoresGet

114 -> ScoresGet

110scoresGet pSgTimeSpan_ pSgLeaderboardId_ pSgPlayerId_ =

115scoresGet pSgTimeSpan_ pSgLeaderboardId_ pSgPlayerId_ =

111 ScoresGet'

116 ScoresGet'

117+ { _sgConsistencyToken = Nothing

112− { _sgTimeSpan = pSgTimeSpan_

118+ , _sgTimeSpan = pSgTimeSpan_

113 , _sgLeaderboardId = pSgLeaderboardId_

119 , _sgLeaderboardId = pSgLeaderboardId_

114 , _sgIncludeRankType = Nothing

120 , _sgIncludeRankType = Nothing

115 , _sgLanguage = Nothing

121 , _sgLanguage = Nothing

@@ -118,6 +124,13 @@ scoresGet pSgTimeSpan_ pSgLeaderboardId_ pSgPlayerId_ =

118 , _sgMaxResults = Nothing

124 , _sgMaxResults = Nothing

119 }

125 }

120

126

127+-- | The last-seen mutation timestamp.

128+sgConsistencyToken :: Lens' ScoresGet (Maybe Int64)

129+sgConsistencyToken

130+ = lens _sgConsistencyToken

131+ (\ s a -> s{_sgConsistencyToken = a})

132+ . mapping _Coerce

133+

121-- | The time span for the scores and ranks you\'re requesting.

134-- | The time span for the scores and ranks you\'re requesting.

122sgTimeSpan :: Lens' ScoresGet ScoresGetTimeSpan

135sgTimeSpan :: Lens' ScoresGet ScoresGetTimeSpan

123sgTimeSpan

136sgTimeSpan

@@ -169,6 +182,7 @@ instance GoogleRequest ScoresGet where

169 "https://www.googleapis.com/auth/plus.login"]

182 "https://www.googleapis.com/auth/plus.login"]

170 requestClient ScoresGet'{..}

183 requestClient ScoresGet'{..}

171 = go _sgPlayerId _sgLeaderboardId _sgTimeSpan

184 = go _sgPlayerId _sgLeaderboardId _sgTimeSpan

185+ _sgConsistencyToken

172 _sgIncludeRankType

186 _sgIncludeRankType

173 _sgLanguage

187 _sgLanguage

174 _sgPageToken

188 _sgPageToken

gogol-games/gen/Network/Google/Resource/Games/Scores/List.hs+26−12

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Scores.List

33 , ScoresList

34

35 -- * Request Lenses

36+ , sllConsistencyToken

36 , sllCollection

37 , sllCollection

37 , sllTimeSpan

38 , sllTimeSpan

38 , sllLeaderboardId

39 , sllLeaderboardId

@@ -54,28 +55,32 @@ type ScoresListResource =

54 "scores" :>

55 "scores" :>

55 Capture "collection" ScoresListCollection :>

56 Capture "collection" ScoresListCollection :>

56 QueryParam "timeSpan" ScoresListTimeSpan :>

57 QueryParam "timeSpan" ScoresListTimeSpan :>

57− QueryParam "language" Text :>

58+ QueryParam "consistencyToken" (Textual Int64) :>

58− QueryParam "pageToken" Text :>

59+ QueryParam "language" Text :>

60+ QueryParam "pageToken" Text :>

59− QueryParam "maxResults" (Textual Int32) :>

61+ QueryParam "maxResults" (Textual Int32) :>

60− QueryParam "alt" AltJSON :>

62+ QueryParam "alt" AltJSON :>

61− Get '[JSON] LeaderboardScores

63+ Get '[JSON] LeaderboardScores

62

64

63-- | Lists the scores in a leaderboard, starting from the top.

65-- | Lists the scores in a leaderboard, starting from the top.

64--

66--

65-- /See:/ 'scoresList' smart constructor.

67-- /See:/ 'scoresList' smart constructor.

66data ScoresList = ScoresList'

68data ScoresList = ScoresList'

69+ { _sllConsistencyToken :: !(Maybe (Textual Int64))

67− { _sllCollection :: !ScoresListCollection

70+ , _sllCollection :: !ScoresListCollection

68− , _sllTimeSpan :: !ScoresListTimeSpan

71+ , _sllTimeSpan :: !ScoresListTimeSpan

69− , _sllLeaderboardId :: !Text

72+ , _sllLeaderboardId :: !Text

70− , _sllLanguage :: !(Maybe Text)

73+ , _sllLanguage :: !(Maybe Text)

71− , _sllPageToken :: !(Maybe Text)

74+ , _sllPageToken :: !(Maybe Text)

72− , _sllMaxResults :: !(Maybe (Textual Int32))

75+ , _sllMaxResults :: !(Maybe (Textual Int32))

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

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

74

77

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

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

76--

79--

77-- Use one of the following lenses to modify other fields as desired:

80-- Use one of the following lenses to modify other fields as desired:

78--

81--

82+-- * 'sllConsistencyToken'

83+--

79-- * 'sllCollection'

84-- * 'sllCollection'

80--

85--

81-- * 'sllTimeSpan'

86-- * 'sllTimeSpan'

@@ -94,7 +99,8 @@ scoresList

94 -> ScoresList

99 -> ScoresList

95scoresList pSllCollection_ pSllTimeSpan_ pSllLeaderboardId_ =

100scoresList pSllCollection_ pSllTimeSpan_ pSllLeaderboardId_ =

96 ScoresList'

101 ScoresList'

102+ { _sllConsistencyToken = Nothing

97− { _sllCollection = pSllCollection_

103+ , _sllCollection = pSllCollection_

98 , _sllTimeSpan = pSllTimeSpan_

104 , _sllTimeSpan = pSllTimeSpan_

99 , _sllLeaderboardId = pSllLeaderboardId_

105 , _sllLeaderboardId = pSllLeaderboardId_

100 , _sllLanguage = Nothing

106 , _sllLanguage = Nothing

@@ -102,6 +108,13 @@ scoresList pSllCollection_ pSllTimeSpan_ pSllLeaderboardId_ =

102 , _sllMaxResults = Nothing

108 , _sllMaxResults = Nothing

103 }

109 }

104

110

111+-- | The last-seen mutation timestamp.

112+sllConsistencyToken :: Lens' ScoresList (Maybe Int64)

113+sllConsistencyToken

114+ = lens _sllConsistencyToken

115+ (\ s a -> s{_sllConsistencyToken = a})

116+ . mapping _Coerce

117+

105-- | The collection of scores you\'re requesting.

118-- | The collection of scores you\'re requesting.

106sllCollection :: Lens' ScoresList ScoresListCollection

119sllCollection :: Lens' ScoresList ScoresListCollection

107sllCollection

120sllCollection

@@ -146,6 +159,7 @@ instance GoogleRequest ScoresList where

146 requestClient ScoresList'{..}

159 requestClient ScoresList'{..}

147 = go _sllLeaderboardId _sllCollection

160 = go _sllLeaderboardId _sllCollection

148 (Just _sllTimeSpan)

161 (Just _sllTimeSpan)

162+ _sllConsistencyToken

149 _sllLanguage

163 _sllLanguage

150 _sllPageToken

164 _sllPageToken

151 _sllMaxResults

165 _sllMaxResults

gogol-games/gen/Network/Google/Resource/Games/Scores/ListWindow.hs+23−9

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Scores.ListWindow

34 , ScoresListWindow

35

36 -- * Request Lenses

37+ , slwConsistencyToken

37 , slwCollection

38 , slwCollection

38 , slwTimeSpan

39 , slwTimeSpan

39 , slwReturnTopIfAbsent

40 , slwReturnTopIfAbsent

@@ -57,20 +58,22 @@ type ScoresListWindowResource =

57 "window" :>

58 "window" :>

58 Capture "collection" ScoresListWindowCollection :>

59 Capture "collection" ScoresListWindowCollection :>

59 QueryParam "timeSpan" ScoresListWindowTimeSpan :>

60 QueryParam "timeSpan" ScoresListWindowTimeSpan :>

61+ QueryParam "consistencyToken" (Textual Int64) :>

60− QueryParam "returnTopIfAbsent" Bool :>

62+ QueryParam "returnTopIfAbsent" Bool :>

61− QueryParam "language" Text :>

63+ QueryParam "language" Text :>

62− QueryParam "resultsAbove" (Textual Int32) :>

64+ QueryParam "resultsAbove" (Textual Int32) :>

63− QueryParam "pageToken" Text :>

65+ QueryParam "pageToken" Text :>

64− QueryParam "maxResults" (Textual Int32) :>

66+ QueryParam "maxResults" (Textual Int32) :>

65− QueryParam "alt" AltJSON :>

67+ QueryParam "alt" AltJSON :>

66− Get '[JSON] LeaderboardScores

68+ Get '[JSON] LeaderboardScores

67

69

68-- | Lists the scores in a leaderboard around (and including) a player\'s

70-- | Lists the scores in a leaderboard around (and including) a player\'s

69-- score.

71-- score.

70--

72--

71-- /See:/ 'scoresListWindow' smart constructor.

73-- /See:/ 'scoresListWindow' smart constructor.

72data ScoresListWindow = ScoresListWindow'

74data ScoresListWindow = ScoresListWindow'

75+ { _slwConsistencyToken :: !(Maybe (Textual Int64))

73− { _slwCollection :: !ScoresListWindowCollection

76+ , _slwCollection :: !ScoresListWindowCollection

74 , _slwTimeSpan :: !ScoresListWindowTimeSpan

77 , _slwTimeSpan :: !ScoresListWindowTimeSpan

75 , _slwReturnTopIfAbsent :: !(Maybe Bool)

78 , _slwReturnTopIfAbsent :: !(Maybe Bool)

76 , _slwLeaderboardId :: !Text

79 , _slwLeaderboardId :: !Text

@@ -84,6 +87,8 @@ data ScoresListWindow = ScoresListWindow'

84--

87--

85-- Use one of the following lenses to modify other fields as desired:

88-- Use one of the following lenses to modify other fields as desired:

86--

89--

90+-- * 'slwConsistencyToken'

91+--

87-- * 'slwCollection'

92-- * 'slwCollection'

88--

93--

89-- * 'slwTimeSpan'

94-- * 'slwTimeSpan'

@@ -106,7 +111,8 @@ scoresListWindow

106 -> ScoresListWindow

111 -> ScoresListWindow

107scoresListWindow pSlwCollection_ pSlwTimeSpan_ pSlwLeaderboardId_ =

112scoresListWindow pSlwCollection_ pSlwTimeSpan_ pSlwLeaderboardId_ =

108 ScoresListWindow'

113 ScoresListWindow'

114+ { _slwConsistencyToken = Nothing

109− { _slwCollection = pSlwCollection_

115+ , _slwCollection = pSlwCollection_

110 , _slwTimeSpan = pSlwTimeSpan_

116 , _slwTimeSpan = pSlwTimeSpan_

111 , _slwReturnTopIfAbsent = Nothing

117 , _slwReturnTopIfAbsent = Nothing

112 , _slwLeaderboardId = pSlwLeaderboardId_

118 , _slwLeaderboardId = pSlwLeaderboardId_

@@ -116,6 +122,13 @@ scoresListWindow pSlwCollection_ pSlwTimeSpan_ pSlwLeaderboardId_ =

116 , _slwMaxResults = Nothing

122 , _slwMaxResults = Nothing

117 }

123 }

118

124

125+-- | The last-seen mutation timestamp.

126+slwConsistencyToken :: Lens' ScoresListWindow (Maybe Int64)

127+slwConsistencyToken

128+ = lens _slwConsistencyToken

129+ (\ s a -> s{_slwConsistencyToken = a})

130+ . mapping _Coerce

131+

119-- | The collection of scores you\'re requesting.

132-- | The collection of scores you\'re requesting.

120slwCollection :: Lens' ScoresListWindow ScoresListWindowCollection

133slwCollection :: Lens' ScoresListWindow ScoresListWindowCollection

121slwCollection

134slwCollection

@@ -177,6 +190,7 @@ instance GoogleRequest ScoresListWindow where

177 requestClient ScoresListWindow'{..}

190 requestClient ScoresListWindow'{..}

178 = go _slwLeaderboardId _slwCollection

191 = go _slwLeaderboardId _slwCollection

179 (Just _slwTimeSpan)

192 (Just _slwTimeSpan)

193+ _slwConsistencyToken

180 _slwReturnTopIfAbsent

194 _slwReturnTopIfAbsent

181 _slwLanguage

195 _slwLanguage

182 _slwResultsAbove

196 _slwResultsAbove

gogol-games/gen/Network/Google/Resource/Games/Scores/Submit.hs+21−7

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Scores.Submit

34

35 -- * Request Lenses

36 , ssScoreTag

37+ , ssConsistencyToken

37 , ssScore

38 , ssScore

38 , ssLeaderboardId

39 , ssLeaderboardId

39 , ssLanguage

40 , ssLanguage

@@ -52,18 +53,20 @@ type ScoresSubmitResource =

52 "scores" :>

53 "scores" :>

53 QueryParam "score" (Textual Int64) :>

54 QueryParam "score" (Textual Int64) :>

54 QueryParam "scoreTag" Text :>

55 QueryParam "scoreTag" Text :>

56+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "language" Text :>

57+ QueryParam "language" Text :>

56− QueryParam "alt" AltJSON :>

58+ QueryParam "alt" AltJSON :>

57− Post '[JSON] PlayerScoreResponse

59+ Post '[JSON] PlayerScoreResponse

58

60

59-- | Submits a score to the specified leaderboard.

61-- | Submits a score to the specified leaderboard.

60--

62--

61-- /See:/ 'scoresSubmit' smart constructor.

63-- /See:/ 'scoresSubmit' smart constructor.

62data ScoresSubmit = ScoresSubmit'

64data ScoresSubmit = ScoresSubmit'

63− { _ssScoreTag :: !(Maybe Text)

65+ { _ssScoreTag :: !(Maybe Text)

66+ , _ssConsistencyToken :: !(Maybe (Textual Int64))

64− , _ssScore :: !(Textual Int64)

67+ , _ssScore :: !(Textual Int64)

65− , _ssLeaderboardId :: !Text

68+ , _ssLeaderboardId :: !Text

66− , _ssLanguage :: !(Maybe Text)

69+ , _ssLanguage :: !(Maybe Text)

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

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

68

71

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

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

@@ -72,6 +75,8 @@ data ScoresSubmit = ScoresSubmit'

72--

75--

73-- * 'ssScoreTag'

76-- * 'ssScoreTag'

74--

77--

78+-- * 'ssConsistencyToken'

79+--

75-- * 'ssScore'

80-- * 'ssScore'

76--

81--

77-- * 'ssLeaderboardId'

82-- * 'ssLeaderboardId'

@@ -84,6 +89,7 @@ scoresSubmit

84scoresSubmit pSsScore_ pSsLeaderboardId_ =

89scoresSubmit pSsScore_ pSsLeaderboardId_ =

85 ScoresSubmit'

90 ScoresSubmit'

86 { _ssScoreTag = Nothing

91 { _ssScoreTag = Nothing

92+ , _ssConsistencyToken = Nothing

87 , _ssScore = _Coerce # pSsScore_

93 , _ssScore = _Coerce # pSsScore_

88 , _ssLeaderboardId = pSsLeaderboardId_

94 , _ssLeaderboardId = pSsLeaderboardId_

89 , _ssLanguage = Nothing

95 , _ssLanguage = Nothing

@@ -96,6 +102,13 @@ ssScoreTag :: Lens' ScoresSubmit (Maybe Text)

96ssScoreTag

102ssScoreTag

97 = lens _ssScoreTag (\ s a -> s{_ssScoreTag = a})

103 = lens _ssScoreTag (\ s a -> s{_ssScoreTag = a})

98

104

105+-- | The last-seen mutation timestamp.

106+ssConsistencyToken :: Lens' ScoresSubmit (Maybe Int64)

107+ssConsistencyToken

108+ = lens _ssConsistencyToken

109+ (\ s a -> s{_ssConsistencyToken = a})

110+ . mapping _Coerce

111+

99-- | The score you\'re submitting. The submitted score is ignored if it is

112-- | The score you\'re submitting. The submitted score is ignored if it is

100-- worse than a previously submitted score, where worse depends on the

113-- worse than a previously submitted score, where worse depends on the

101-- leaderboard sort order. The meaning of the score value depends on the

114-- leaderboard sort order. The meaning of the score value depends on the

@@ -124,6 +137,7 @@ instance GoogleRequest ScoresSubmit where

124 "https://www.googleapis.com/auth/plus.login"]

137 "https://www.googleapis.com/auth/plus.login"]

125 requestClient ScoresSubmit'{..}

138 requestClient ScoresSubmit'{..}

126 = go _ssLeaderboardId (Just _ssScore) _ssScoreTag

139 = go _ssLeaderboardId (Just _ssScore) _ssScoreTag

140+ _ssConsistencyToken

127 _ssLanguage

141 _ssLanguage

128 (Just AltJSON)

142 (Just AltJSON)

129 gamesService

143 gamesService

gogol-games/gen/Network/Google/Resource/Games/Scores/SubmitMultiple.hs+22−8

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Scores.SubmitMultiple

33 , ScoresSubmitMultiple

34

35 -- * Request Lenses

36+ , ssmConsistencyToken

36 , ssmPayload

37 , ssmPayload

37 , ssmLanguage

38 , ssmLanguage

38 ) where

39 ) where

@@ -47,23 +48,27 @@ type ScoresSubmitMultipleResource =

47 "v1" :>

48 "v1" :>

48 "leaderboards" :>

49 "leaderboards" :>

49 "scores" :>

50 "scores" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "alt" AltJSON :>

53+ QueryParam "alt" AltJSON :>

52− ReqBody '[JSON] PlayerScoreSubmissionList :>

54+ ReqBody '[JSON] PlayerScoreSubmissionList :>

53− Post '[JSON] PlayerScoreListResponse

55+ Post '[JSON] PlayerScoreListResponse

54

56

55-- | Submits multiple scores to leaderboards.

57-- | Submits multiple scores to leaderboards.

56--

58--

57-- /See:/ 'scoresSubmitMultiple' smart constructor.

59-- /See:/ 'scoresSubmitMultiple' smart constructor.

58data ScoresSubmitMultiple = ScoresSubmitMultiple'

60data ScoresSubmitMultiple = ScoresSubmitMultiple'

61+ { _ssmConsistencyToken :: !(Maybe (Textual Int64))

59− { _ssmPayload :: !PlayerScoreSubmissionList

62+ , _ssmPayload :: !PlayerScoreSubmissionList

60− , _ssmLanguage :: !(Maybe Text)

63+ , _ssmLanguage :: !(Maybe Text)

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

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

62

65

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

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

64--

67--

65-- Use one of the following lenses to modify other fields as desired:

68-- Use one of the following lenses to modify other fields as desired:

66--

69--

70+-- * 'ssmConsistencyToken'

71+--

67-- * 'ssmPayload'

72-- * 'ssmPayload'

68--

73--

69-- * 'ssmLanguage'

74-- * 'ssmLanguage'

@@ -72,10 +77,18 @@ scoresSubmitMultiple

72 -> ScoresSubmitMultiple

77 -> ScoresSubmitMultiple

73scoresSubmitMultiple pSsmPayload_ =

78scoresSubmitMultiple pSsmPayload_ =

74 ScoresSubmitMultiple'

79 ScoresSubmitMultiple'

80+ { _ssmConsistencyToken = Nothing

75− { _ssmPayload = pSsmPayload_

81+ , _ssmPayload = pSsmPayload_

76 , _ssmLanguage = Nothing

82 , _ssmLanguage = Nothing

77 }

83 }

78

84

85+-- | The last-seen mutation timestamp.

86+ssmConsistencyToken :: Lens' ScoresSubmitMultiple (Maybe Int64)

87+ssmConsistencyToken

88+ = lens _ssmConsistencyToken

89+ (\ s a -> s{_ssmConsistencyToken = a})

90+ . mapping _Coerce

91+

79-- | Multipart request metadata.

92-- | Multipart request metadata.

80ssmPayload :: Lens' ScoresSubmitMultiple PlayerScoreSubmissionList

93ssmPayload :: Lens' ScoresSubmitMultiple PlayerScoreSubmissionList

81ssmPayload

94ssmPayload

@@ -93,7 +106,8 @@ instance GoogleRequest ScoresSubmitMultiple where

93 '["https://www.googleapis.com/auth/games",

106 '["https://www.googleapis.com/auth/games",

94 "https://www.googleapis.com/auth/plus.login"]

107 "https://www.googleapis.com/auth/plus.login"]

95 requestClient ScoresSubmitMultiple'{..}

108 requestClient ScoresSubmitMultiple'{..}

96− = go _ssmLanguage (Just AltJSON) _ssmPayload

109+ = go _ssmConsistencyToken _ssmLanguage (Just AltJSON)

110+ _ssmPayload

97 gamesService

111 gamesService

98 where go

112 where go

99 = buildClient

113 = buildClient

gogol-games/gen/Network/Google/Resource/Games/Snapshots/Get.hs+20−6

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.Snapshots.Get

33 , SnapshotsGet

34

35 -- * Request Lenses

36+ , sConsistencyToken

36 , sLanguage

37 , sLanguage

37 , sSnapshotId

38 , sSnapshotId

38 ) where

39 ) where

@@ -47,21 +48,25 @@ type SnapshotsGetResource =

47 "v1" :>

48 "v1" :>

48 "snapshots" :>

49 "snapshots" :>

49 Capture "snapshotId" Text :>

50 Capture "snapshotId" Text :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "alt" AltJSON :> Get '[JSON] Snapshot

53+ QueryParam "alt" AltJSON :> Get '[JSON] Snapshot

52

54

53-- | Retrieves the metadata for a given snapshot ID.

55-- | Retrieves the metadata for a given snapshot ID.

54--

56--

55-- /See:/ 'snapshotsGet' smart constructor.

57-- /See:/ 'snapshotsGet' smart constructor.

56data SnapshotsGet = SnapshotsGet'

58data SnapshotsGet = SnapshotsGet'

59+ { _sConsistencyToken :: !(Maybe (Textual Int64))

57− { _sLanguage :: !(Maybe Text)

60+ , _sLanguage :: !(Maybe Text)

58− , _sSnapshotId :: !Text

61+ , _sSnapshotId :: !Text

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

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

60

63

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

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

62--

65--

63-- Use one of the following lenses to modify other fields as desired:

66-- Use one of the following lenses to modify other fields as desired:

64--

67--

68+-- * 'sConsistencyToken'

69+--

65-- * 'sLanguage'

70-- * 'sLanguage'

66--

71--

67-- * 'sSnapshotId'

72-- * 'sSnapshotId'

@@ -70,10 +75,18 @@ snapshotsGet

70 -> SnapshotsGet

75 -> SnapshotsGet

71snapshotsGet pSSnapshotId_ =

76snapshotsGet pSSnapshotId_ =

72 SnapshotsGet'

77 SnapshotsGet'

78+ { _sConsistencyToken = Nothing

73− { _sLanguage = Nothing

79+ , _sLanguage = Nothing

74 , _sSnapshotId = pSSnapshotId_

80 , _sSnapshotId = pSSnapshotId_

75 }

81 }

76

82

83+-- | The last-seen mutation timestamp.

84+sConsistencyToken :: Lens' SnapshotsGet (Maybe Int64)

85+sConsistencyToken

86+ = lens _sConsistencyToken

87+ (\ s a -> s{_sConsistencyToken = a})

88+ . mapping _Coerce

89+

77-- | The preferred language to use for strings returned by this method.

90-- | The preferred language to use for strings returned by this method.

78sLanguage :: Lens' SnapshotsGet (Maybe Text)

91sLanguage :: Lens' SnapshotsGet (Maybe Text)

79sLanguage

92sLanguage

@@ -91,7 +104,8 @@ instance GoogleRequest SnapshotsGet where

91 "https://www.googleapis.com/auth/games",

104 "https://www.googleapis.com/auth/games",

92 "https://www.googleapis.com/auth/plus.login"]

105 "https://www.googleapis.com/auth/plus.login"]

93 requestClient SnapshotsGet'{..}

106 requestClient SnapshotsGet'{..}

94− = go _sSnapshotId _sLanguage (Just AltJSON)

107+ = go _sSnapshotId _sConsistencyToken _sLanguage

108+ (Just AltJSON)

95 gamesService

109 gamesService

96 where go

110 where go

97 = buildClient (Proxy :: Proxy SnapshotsGetResource)

111 = buildClient (Proxy :: Proxy SnapshotsGetResource)

gogol-games/gen/Network/Google/Resource/Games/Snapshots/List.hs+25−11

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.Snapshots.List

34 , SnapshotsList

35

36 -- * Request Lenses

37+ , slConsistencyToken

37 , slLanguage

38 , slLanguage

38 , slPageToken

39 , slPageToken

39 , slPlayerId

40 , slPlayerId

@@ -51,27 +52,31 @@ type SnapshotsListResource =

51 "players" :>

52 "players" :>

52 Capture "playerId" Text :>

53 Capture "playerId" Text :>

53 "snapshots" :>

54 "snapshots" :>

54− QueryParam "language" Text :>

55+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "pageToken" Text :>

56+ QueryParam "language" Text :>

57+ QueryParam "pageToken" Text :>

56− QueryParam "maxResults" (Textual Int32) :>

58+ QueryParam "maxResults" (Textual Int32) :>

57− QueryParam "alt" AltJSON :>

59+ QueryParam "alt" AltJSON :>

58− Get '[JSON] SnapshotListResponse

60+ Get '[JSON] SnapshotListResponse

59

61

60-- | Retrieves a list of snapshots created by your application for the player

62-- | Retrieves a list of snapshots created by your application for the player

61-- corresponding to the player ID.

63-- corresponding to the player ID.

62--

64--

63-- /See:/ 'snapshotsList' smart constructor.

65-- /See:/ 'snapshotsList' smart constructor.

64data SnapshotsList = SnapshotsList'

66data SnapshotsList = SnapshotsList'

67+ { _slConsistencyToken :: !(Maybe (Textual Int64))

65− { _slLanguage :: !(Maybe Text)

68+ , _slLanguage :: !(Maybe Text)

66− , _slPageToken :: !(Maybe Text)

69+ , _slPageToken :: !(Maybe Text)

67− , _slPlayerId :: !Text

70+ , _slPlayerId :: !Text

68− , _slMaxResults :: !(Maybe (Textual Int32))

71+ , _slMaxResults :: !(Maybe (Textual Int32))

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

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

70

73

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

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

72--

75--

73-- Use one of the following lenses to modify other fields as desired:

76-- Use one of the following lenses to modify other fields as desired:

74--

77--

78+-- * 'slConsistencyToken'

79+--

75-- * 'slLanguage'

80-- * 'slLanguage'

76--

81--

77-- * 'slPageToken'

82-- * 'slPageToken'

@@ -84,12 +89,20 @@ snapshotsList

84 -> SnapshotsList

89 -> SnapshotsList

85snapshotsList pSlPlayerId_ =

90snapshotsList pSlPlayerId_ =

86 SnapshotsList'

91 SnapshotsList'

92+ { _slConsistencyToken = Nothing

87− { _slLanguage = Nothing

93+ , _slLanguage = Nothing

88 , _slPageToken = Nothing

94 , _slPageToken = Nothing

89 , _slPlayerId = pSlPlayerId_

95 , _slPlayerId = pSlPlayerId_

90 , _slMaxResults = Nothing

96 , _slMaxResults = Nothing

91 }

97 }

92

98

99+-- | The last-seen mutation timestamp.

100+slConsistencyToken :: Lens' SnapshotsList (Maybe Int64)

101+slConsistencyToken

102+ = lens _slConsistencyToken

103+ (\ s a -> s{_slConsistencyToken = a})

104+ . mapping _Coerce

105+

93-- | The preferred language to use for strings returned by this method.

106-- | The preferred language to use for strings returned by this method.

94slLanguage :: Lens' SnapshotsList (Maybe Text)

107slLanguage :: Lens' SnapshotsList (Maybe Text)

95slLanguage

108slLanguage

@@ -121,7 +134,8 @@ instance GoogleRequest SnapshotsList where

121 "https://www.googleapis.com/auth/games",

134 "https://www.googleapis.com/auth/games",

122 "https://www.googleapis.com/auth/plus.login"]

135 "https://www.googleapis.com/auth/plus.login"]

123 requestClient SnapshotsList'{..}

136 requestClient SnapshotsList'{..}

124− = go _slPlayerId _slLanguage _slPageToken

137+ = go _slPlayerId _slConsistencyToken _slLanguage

138+ _slPageToken

125 _slMaxResults

139 _slMaxResults

126 (Just AltJSON)

140 (Just AltJSON)

127 gamesService

141 gamesService

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Cancel.hs+25−12

@@ -33,7 +33,8 @@ module Network.Google.Resource.Games.TurnBasedMatches.Cancel

33 , TurnBasedMatchesCancel

34

35 -- * Request Lenses

36− , tbmcMatchId

36+ , tConsistencyToken

37+ , tMatchId

37 ) where

38 ) where

38

39

39import Network.Google.Games.Types

40import Network.Google.Games.Types

@@ -47,32 +48,43 @@ type TurnBasedMatchesCancelResource =

47 "turnbasedmatches" :>

48 "turnbasedmatches" :>

48 Capture "matchId" Text :>

49 Capture "matchId" Text :>

49 "cancel" :>

50 "cancel" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "alt" AltJSON :> Put '[JSON] ()

52+ QueryParam "alt" AltJSON :> Put '[JSON] ()

51

53

52-- | Cancel a turn-based match.

54-- | Cancel a turn-based match.

53--

55--

54-- /See:/ 'turnBasedMatchesCancel' smart constructor.

56-- /See:/ 'turnBasedMatchesCancel' smart constructor.

55−newtype TurnBasedMatchesCancel = TurnBasedMatchesCancel'

57+data TurnBasedMatchesCancel = TurnBasedMatchesCancel'

56− { _tbmcMatchId :: Text

58+ { _tConsistencyToken :: !(Maybe (Textual Int64))

59+ , _tMatchId :: !Text

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

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

58

61

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

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

60--

63--

61-- Use one of the following lenses to modify other fields as desired:

64-- Use one of the following lenses to modify other fields as desired:

62--

65--

63−-- * 'tbmcMatchId'

66+-- * 'tConsistencyToken'

67+--

68+-- * 'tMatchId'

64turnBasedMatchesCancel

69turnBasedMatchesCancel

65− :: Text -- ^ 'tbmcMatchId'

70+ :: Text -- ^ 'tMatchId'

66 -> TurnBasedMatchesCancel

71 -> TurnBasedMatchesCancel

67−turnBasedMatchesCancel pTbmcMatchId_ =

72+turnBasedMatchesCancel pTMatchId_ =

68 TurnBasedMatchesCancel'

73 TurnBasedMatchesCancel'

69− { _tbmcMatchId = pTbmcMatchId_

74+ { _tConsistencyToken = Nothing

75+ , _tMatchId = pTMatchId_

70 }

76 }

71

77

78+-- | The last-seen mutation timestamp.

79+tConsistencyToken :: Lens' TurnBasedMatchesCancel (Maybe Int64)

80+tConsistencyToken

81+ = lens _tConsistencyToken

82+ (\ s a -> s{_tConsistencyToken = a})

83+ . mapping _Coerce

84+

72-- | The ID of the match.

85-- | The ID of the match.

73−tbmcMatchId :: Lens' TurnBasedMatchesCancel Text

86+tMatchId :: Lens' TurnBasedMatchesCancel Text

74−tbmcMatchId

87+tMatchId = lens _tMatchId (\ s a -> s{_tMatchId = a})

75− = lens _tbmcMatchId (\ s a -> s{_tbmcMatchId = a})

76

88

77instance GoogleRequest TurnBasedMatchesCancel where

89instance GoogleRequest TurnBasedMatchesCancel where

78 type Rs TurnBasedMatchesCancel = ()

90 type Rs TurnBasedMatchesCancel = ()

@@ -80,7 +92,8 @@ instance GoogleRequest TurnBasedMatchesCancel where

80 '["https://www.googleapis.com/auth/games",

92 '["https://www.googleapis.com/auth/games",

81 "https://www.googleapis.com/auth/plus.login"]

93 "https://www.googleapis.com/auth/plus.login"]

82 requestClient TurnBasedMatchesCancel'{..}

94 requestClient TurnBasedMatchesCancel'{..}

95+ = go _tMatchId _tConsistencyToken (Just AltJSON)

83− = go _tbmcMatchId (Just AltJSON) gamesService

96+ gamesService

84 where go

97 where go

85 = buildClient

98 = buildClient

86 (Proxy :: Proxy TurnBasedMatchesCancelResource)

99 (Proxy :: Proxy TurnBasedMatchesCancelResource)

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Create.hs+23−8

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Create

33 , TurnBasedMatchesCreate

34

35 -- * Request Lenses

36+ , tbmcConsistencyToken

36 , tbmcPayload

37 , tbmcPayload

37 , tbmcLanguage

38 , tbmcLanguage

38 ) where

39 ) where

@@ -47,23 +48,27 @@ type TurnBasedMatchesCreateResource =

47 "v1" :>

48 "v1" :>

48 "turnbasedmatches" :>

49 "turnbasedmatches" :>

49 "create" :>

50 "create" :>

51+ QueryParam "consistencyToken" (Textual Int64) :>

50− QueryParam "language" Text :>

52+ QueryParam "language" Text :>

51− QueryParam "alt" AltJSON :>

53+ QueryParam "alt" AltJSON :>

52− ReqBody '[JSON] TurnBasedMatchCreateRequest :>

54+ ReqBody '[JSON] TurnBasedMatchCreateRequest :>

53− Post '[JSON] TurnBasedMatch

55+ Post '[JSON] TurnBasedMatch

54

56

55-- | Create a turn-based match.

57-- | Create a turn-based match.

56--

58--

57-- /See:/ 'turnBasedMatchesCreate' smart constructor.

59-- /See:/ 'turnBasedMatchesCreate' smart constructor.

58data TurnBasedMatchesCreate = TurnBasedMatchesCreate'

60data TurnBasedMatchesCreate = TurnBasedMatchesCreate'

61+ { _tbmcConsistencyToken :: !(Maybe (Textual Int64))

59− { _tbmcPayload :: !TurnBasedMatchCreateRequest

62+ , _tbmcPayload :: !TurnBasedMatchCreateRequest

60− , _tbmcLanguage :: !(Maybe Text)

63+ , _tbmcLanguage :: !(Maybe Text)

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

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

62

65

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

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

64--

67--

65-- Use one of the following lenses to modify other fields as desired:

68-- Use one of the following lenses to modify other fields as desired:

66--

69--

70+-- * 'tbmcConsistencyToken'

71+--

67-- * 'tbmcPayload'

72-- * 'tbmcPayload'

68--

73--

69-- * 'tbmcLanguage'

74-- * 'tbmcLanguage'

@@ -72,10 +77,18 @@ turnBasedMatchesCreate

72 -> TurnBasedMatchesCreate

77 -> TurnBasedMatchesCreate

73turnBasedMatchesCreate pTbmcPayload_ =

78turnBasedMatchesCreate pTbmcPayload_ =

74 TurnBasedMatchesCreate'

79 TurnBasedMatchesCreate'

80+ { _tbmcConsistencyToken = Nothing

75− { _tbmcPayload = pTbmcPayload_

81+ , _tbmcPayload = pTbmcPayload_

76 , _tbmcLanguage = Nothing

82 , _tbmcLanguage = Nothing

77 }

83 }

78

84

85+-- | The last-seen mutation timestamp.

86+tbmcConsistencyToken :: Lens' TurnBasedMatchesCreate (Maybe Int64)

87+tbmcConsistencyToken

88+ = lens _tbmcConsistencyToken

89+ (\ s a -> s{_tbmcConsistencyToken = a})

90+ . mapping _Coerce

91+

79-- | Multipart request metadata.

92-- | Multipart request metadata.

80tbmcPayload :: Lens' TurnBasedMatchesCreate TurnBasedMatchCreateRequest

93tbmcPayload :: Lens' TurnBasedMatchesCreate TurnBasedMatchCreateRequest

81tbmcPayload

94tbmcPayload

@@ -92,7 +105,9 @@ instance GoogleRequest TurnBasedMatchesCreate where

92 '["https://www.googleapis.com/auth/games",

105 '["https://www.googleapis.com/auth/games",

93 "https://www.googleapis.com/auth/plus.login"]

106 "https://www.googleapis.com/auth/plus.login"]

94 requestClient TurnBasedMatchesCreate'{..}

107 requestClient TurnBasedMatchesCreate'{..}

108+ = go _tbmcConsistencyToken _tbmcLanguage

109+ (Just AltJSON)

95− = go _tbmcLanguage (Just AltJSON) _tbmcPayload

110+ _tbmcPayload

96 gamesService

111 gamesService

97 where go

112 where go

98 = buildClient

113 = buildClient

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Decline.hs+21−7

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Decline

33 , TurnBasedMatchesDecline

34

35 -- * Request Lenses

36+ , tbmdConsistencyToken

36 , tbmdLanguage

37 , tbmdLanguage

37 , tbmdMatchId

38 , tbmdMatchId

38 ) where

39 ) where

@@ -48,22 +49,26 @@ type TurnBasedMatchesDeclineResource =

48 "turnbasedmatches" :>

49 "turnbasedmatches" :>

49 Capture "matchId" Text :>

50 Capture "matchId" Text :>

50 "decline" :>

51 "decline" :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "language" Text :>

53+ QueryParam "language" Text :>

52− QueryParam "alt" AltJSON :>

54+ QueryParam "alt" AltJSON :>

53− Put '[JSON] TurnBasedMatch

55+ Put '[JSON] TurnBasedMatch

54

56

55-- | Decline an invitation to play a turn-based match.

57-- | Decline an invitation to play a turn-based match.

56--

58--

57-- /See:/ 'turnBasedMatchesDecline' smart constructor.

59-- /See:/ 'turnBasedMatchesDecline' smart constructor.

58data TurnBasedMatchesDecline = TurnBasedMatchesDecline'

60data TurnBasedMatchesDecline = TurnBasedMatchesDecline'

61+ { _tbmdConsistencyToken :: !(Maybe (Textual Int64))

59− { _tbmdLanguage :: !(Maybe Text)

62+ , _tbmdLanguage :: !(Maybe Text)

60− , _tbmdMatchId :: !Text

63+ , _tbmdMatchId :: !Text

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

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

62

65

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

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

64--

67--

65-- Use one of the following lenses to modify other fields as desired:

68-- Use one of the following lenses to modify other fields as desired:

66--

69--

70+-- * 'tbmdConsistencyToken'

71+--

67-- * 'tbmdLanguage'

72-- * 'tbmdLanguage'

68--

73--

69-- * 'tbmdMatchId'

74-- * 'tbmdMatchId'

@@ -72,10 +77,18 @@ turnBasedMatchesDecline

72 -> TurnBasedMatchesDecline

77 -> TurnBasedMatchesDecline

73turnBasedMatchesDecline pTbmdMatchId_ =

78turnBasedMatchesDecline pTbmdMatchId_ =

74 TurnBasedMatchesDecline'

79 TurnBasedMatchesDecline'

80+ { _tbmdConsistencyToken = Nothing

75− { _tbmdLanguage = Nothing

81+ , _tbmdLanguage = Nothing

76 , _tbmdMatchId = pTbmdMatchId_

82 , _tbmdMatchId = pTbmdMatchId_

77 }

83 }

78

84

85+-- | The last-seen mutation timestamp.

86+tbmdConsistencyToken :: Lens' TurnBasedMatchesDecline (Maybe Int64)

87+tbmdConsistencyToken

88+ = lens _tbmdConsistencyToken

89+ (\ s a -> s{_tbmdConsistencyToken = a})

90+ . mapping _Coerce

91+

79-- | The preferred language to use for strings returned by this method.

92-- | The preferred language to use for strings returned by this method.

80tbmdLanguage :: Lens' TurnBasedMatchesDecline (Maybe Text)

93tbmdLanguage :: Lens' TurnBasedMatchesDecline (Maybe Text)

81tbmdLanguage

94tbmdLanguage

@@ -92,7 +105,8 @@ instance GoogleRequest TurnBasedMatchesDecline where

92 '["https://www.googleapis.com/auth/games",

105 '["https://www.googleapis.com/auth/games",

93 "https://www.googleapis.com/auth/plus.login"]

106 "https://www.googleapis.com/auth/plus.login"]

94 requestClient TurnBasedMatchesDecline'{..}

107 requestClient TurnBasedMatchesDecline'{..}

95− = go _tbmdMatchId _tbmdLanguage (Just AltJSON)

108+ = go _tbmdMatchId _tbmdConsistencyToken _tbmdLanguage

109+ (Just AltJSON)

96 gamesService

110 gamesService

97 where go

111 where go

98 = buildClient

112 = buildClient

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Dismiss.hs+27−11

@@ -34,7 +34,8 @@ module Network.Google.Resource.Games.TurnBasedMatches.Dismiss

34 , TurnBasedMatchesDismiss

35

36 -- * Request Lenses

37− , tMatchId

37+ , tbmdsConsistencyToken

38+ , tbmdsMatchId

38 ) where

39 ) where

39

40

40import Network.Google.Games.Types

41import Network.Google.Games.Types

@@ -48,32 +49,45 @@ type TurnBasedMatchesDismissResource =

48 "turnbasedmatches" :>

49 "turnbasedmatches" :>

49 Capture "matchId" Text :>

50 Capture "matchId" Text :>

50 "dismiss" :>

51 "dismiss" :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "alt" AltJSON :> Put '[JSON] ()

53+ QueryParam "alt" AltJSON :> Put '[JSON] ()

52

54

53-- | Dismiss a turn-based match from the match list. The match will no longer

55-- | Dismiss a turn-based match from the match list. The match will no longer

54-- show up in the list and will not generate notifications.

56-- show up in the list and will not generate notifications.

55--

57--

56-- /See:/ 'turnBasedMatchesDismiss' smart constructor.

58-- /See:/ 'turnBasedMatchesDismiss' smart constructor.

57−newtype TurnBasedMatchesDismiss = TurnBasedMatchesDismiss'

59+data TurnBasedMatchesDismiss = TurnBasedMatchesDismiss'

58− { _tMatchId :: Text

60+ { _tbmdsConsistencyToken :: !(Maybe (Textual Int64))

61+ , _tbmdsMatchId :: !Text

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

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

60

63

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

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

62--

65--

63-- Use one of the following lenses to modify other fields as desired:

66-- Use one of the following lenses to modify other fields as desired:

64--

67--

65−-- * 'tMatchId'

68+-- * 'tbmdsConsistencyToken'

69+--

70+-- * 'tbmdsMatchId'

66turnBasedMatchesDismiss

71turnBasedMatchesDismiss

67− :: Text -- ^ 'tMatchId'

72+ :: Text -- ^ 'tbmdsMatchId'

68 -> TurnBasedMatchesDismiss

73 -> TurnBasedMatchesDismiss

69−turnBasedMatchesDismiss pTMatchId_ =

74+turnBasedMatchesDismiss pTbmdsMatchId_ =

70 TurnBasedMatchesDismiss'

75 TurnBasedMatchesDismiss'

71− { _tMatchId = pTMatchId_

76+ { _tbmdsConsistencyToken = Nothing

77+ , _tbmdsMatchId = pTbmdsMatchId_

72 }

78 }

73

79

80+-- | The last-seen mutation timestamp.

81+tbmdsConsistencyToken :: Lens' TurnBasedMatchesDismiss (Maybe Int64)

82+tbmdsConsistencyToken

83+ = lens _tbmdsConsistencyToken

84+ (\ s a -> s{_tbmdsConsistencyToken = a})

85+ . mapping _Coerce

86+

74-- | The ID of the match.

87-- | The ID of the match.

75−tMatchId :: Lens' TurnBasedMatchesDismiss Text

88+tbmdsMatchId :: Lens' TurnBasedMatchesDismiss Text

76−tMatchId = lens _tMatchId (\ s a -> s{_tMatchId = a})

89+tbmdsMatchId

90+ = lens _tbmdsMatchId (\ s a -> s{_tbmdsMatchId = a})

77

91

78instance GoogleRequest TurnBasedMatchesDismiss where

92instance GoogleRequest TurnBasedMatchesDismiss where

79 type Rs TurnBasedMatchesDismiss = ()

93 type Rs TurnBasedMatchesDismiss = ()

@@ -81,7 +95,9 @@ instance GoogleRequest TurnBasedMatchesDismiss where

81 '["https://www.googleapis.com/auth/games",

95 '["https://www.googleapis.com/auth/games",

82 "https://www.googleapis.com/auth/plus.login"]

96 "https://www.googleapis.com/auth/plus.login"]

83 requestClient TurnBasedMatchesDismiss'{..}

97 requestClient TurnBasedMatchesDismiss'{..}

98+ = go _tbmdsMatchId _tbmdsConsistencyToken

99+ (Just AltJSON)

84− = go _tMatchId (Just AltJSON) gamesService

100+ gamesService

85 where go

101 where go

86 = buildClient

102 = buildClient

87 (Proxy :: Proxy TurnBasedMatchesDismissResource)

103 (Proxy :: Proxy TurnBasedMatchesDismissResource)

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Finish.hs+23−9

@@ -35,6 +35,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Finish

35 , TurnBasedMatchesFinish

36

37 -- * Request Lenses

38+ , tbmfConsistencyToken

38 , tbmfPayload

39 , tbmfPayload

39 , tbmfLanguage

40 , tbmfLanguage

40 , tbmfMatchId

41 , tbmfMatchId

@@ -51,10 +52,11 @@ type TurnBasedMatchesFinishResource =

51 "turnbasedmatches" :>

52 "turnbasedmatches" :>

52 Capture "matchId" Text :>

53 Capture "matchId" Text :>

53 "finish" :>

54 "finish" :>

55+ QueryParam "consistencyToken" (Textual Int64) :>

54− QueryParam "language" Text :>

56+ QueryParam "language" Text :>

55− QueryParam "alt" AltJSON :>

57+ QueryParam "alt" AltJSON :>

56− ReqBody '[JSON] TurnBasedMatchResults :>

58+ ReqBody '[JSON] TurnBasedMatchResults :>

57− Put '[JSON] TurnBasedMatch

59+ Put '[JSON] TurnBasedMatch

58

60

59-- | Finish a turn-based match. Each player should make this call once, after

61-- | Finish a turn-based match. Each player should make this call once, after

60-- all results are in. Only the player whose turn it is may make the first

62-- all results are in. Only the player whose turn it is may make the first

@@ -62,15 +64,18 @@ type TurnBasedMatchesFinishResource =

62--

64--

63-- /See:/ 'turnBasedMatchesFinish' smart constructor.

65-- /See:/ 'turnBasedMatchesFinish' smart constructor.

64data TurnBasedMatchesFinish = TurnBasedMatchesFinish'

66data TurnBasedMatchesFinish = TurnBasedMatchesFinish'

67+ { _tbmfConsistencyToken :: !(Maybe (Textual Int64))

65− { _tbmfPayload :: !TurnBasedMatchResults

68+ , _tbmfPayload :: !TurnBasedMatchResults

66− , _tbmfLanguage :: !(Maybe Text)

69+ , _tbmfLanguage :: !(Maybe Text)

67− , _tbmfMatchId :: !Text

70+ , _tbmfMatchId :: !Text

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

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

69

72

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

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

71--

74--

72-- Use one of the following lenses to modify other fields as desired:

75-- Use one of the following lenses to modify other fields as desired:

73--

76--

77+-- * 'tbmfConsistencyToken'

78+--

74-- * 'tbmfPayload'

79-- * 'tbmfPayload'

75--

80--

76-- * 'tbmfLanguage'

81-- * 'tbmfLanguage'

@@ -82,11 +87,19 @@ turnBasedMatchesFinish

82 -> TurnBasedMatchesFinish

87 -> TurnBasedMatchesFinish

83turnBasedMatchesFinish pTbmfPayload_ pTbmfMatchId_ =

88turnBasedMatchesFinish pTbmfPayload_ pTbmfMatchId_ =

84 TurnBasedMatchesFinish'

89 TurnBasedMatchesFinish'

90+ { _tbmfConsistencyToken = Nothing

85− { _tbmfPayload = pTbmfPayload_

91+ , _tbmfPayload = pTbmfPayload_

86 , _tbmfLanguage = Nothing

92 , _tbmfLanguage = Nothing

87 , _tbmfMatchId = pTbmfMatchId_

93 , _tbmfMatchId = pTbmfMatchId_

88 }

94 }

89

95

96+-- | The last-seen mutation timestamp.

97+tbmfConsistencyToken :: Lens' TurnBasedMatchesFinish (Maybe Int64)

98+tbmfConsistencyToken

99+ = lens _tbmfConsistencyToken

100+ (\ s a -> s{_tbmfConsistencyToken = a})

101+ . mapping _Coerce

102+

90-- | Multipart request metadata.

103-- | Multipart request metadata.

91tbmfPayload :: Lens' TurnBasedMatchesFinish TurnBasedMatchResults

104tbmfPayload :: Lens' TurnBasedMatchesFinish TurnBasedMatchResults

92tbmfPayload

105tbmfPayload

@@ -108,7 +121,8 @@ instance GoogleRequest TurnBasedMatchesFinish where

108 '["https://www.googleapis.com/auth/games",

121 '["https://www.googleapis.com/auth/games",

109 "https://www.googleapis.com/auth/plus.login"]

122 "https://www.googleapis.com/auth/plus.login"]

110 requestClient TurnBasedMatchesFinish'{..}

123 requestClient TurnBasedMatchesFinish'{..}

111− = go _tbmfMatchId _tbmfLanguage (Just AltJSON)

124+ = go _tbmfMatchId _tbmfConsistencyToken _tbmfLanguage

125+ (Just AltJSON)

112 _tbmfPayload

126 _tbmfPayload

113 gamesService

127 gamesService

114 where go

128 where go

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Get.hs+22−7

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Get

33 , TurnBasedMatchesGet

34

35 -- * Request Lenses

36+ , tbmgConsistencyToken

36 , tbmgIncludeMatchData

37 , tbmgIncludeMatchData

37 , tbmgLanguage

38 , tbmgLanguage

38 , tbmgMatchId

39 , tbmgMatchId

@@ -48,16 +49,18 @@ type TurnBasedMatchesGetResource =

48 "v1" :>

49 "v1" :>

49 "turnbasedmatches" :>

50 "turnbasedmatches" :>

50 Capture "matchId" Text :>

51 Capture "matchId" Text :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "includeMatchData" Bool :>

53+ QueryParam "includeMatchData" Bool :>

52− QueryParam "language" Text :>

54+ QueryParam "language" Text :>

53− QueryParam "alt" AltJSON :>

55+ QueryParam "alt" AltJSON :>

54− Get '[JSON] TurnBasedMatch

56+ Get '[JSON] TurnBasedMatch

55

57

56-- | Get the data for a turn-based match.

58-- | Get the data for a turn-based match.

57--

59--

58-- /See:/ 'turnBasedMatchesGet' smart constructor.

60-- /See:/ 'turnBasedMatchesGet' smart constructor.

59data TurnBasedMatchesGet = TurnBasedMatchesGet'

61data TurnBasedMatchesGet = TurnBasedMatchesGet'

62+ { _tbmgConsistencyToken :: !(Maybe (Textual Int64))

60− { _tbmgIncludeMatchData :: !(Maybe Bool)

63+ , _tbmgIncludeMatchData :: !(Maybe Bool)

61 , _tbmgLanguage :: !(Maybe Text)

64 , _tbmgLanguage :: !(Maybe Text)

62 , _tbmgMatchId :: !Text

65 , _tbmgMatchId :: !Text

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

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

@@ -66,6 +69,8 @@ data TurnBasedMatchesGet = TurnBasedMatchesGet'

66--

69--

67-- Use one of the following lenses to modify other fields as desired:

70-- Use one of the following lenses to modify other fields as desired:

68--

71--

72+-- * 'tbmgConsistencyToken'

73+--

69-- * 'tbmgIncludeMatchData'

74-- * 'tbmgIncludeMatchData'

70--

75--

71-- * 'tbmgLanguage'

76-- * 'tbmgLanguage'

@@ -76,11 +81,19 @@ turnBasedMatchesGet

76 -> TurnBasedMatchesGet

81 -> TurnBasedMatchesGet

77turnBasedMatchesGet pTbmgMatchId_ =

82turnBasedMatchesGet pTbmgMatchId_ =

78 TurnBasedMatchesGet'

83 TurnBasedMatchesGet'

84+ { _tbmgConsistencyToken = Nothing

79− { _tbmgIncludeMatchData = Nothing

85+ , _tbmgIncludeMatchData = Nothing

80 , _tbmgLanguage = Nothing

86 , _tbmgLanguage = Nothing

81 , _tbmgMatchId = pTbmgMatchId_

87 , _tbmgMatchId = pTbmgMatchId_

82 }

88 }

83

89

90+-- | The last-seen mutation timestamp.

91+tbmgConsistencyToken :: Lens' TurnBasedMatchesGet (Maybe Int64)

92+tbmgConsistencyToken

93+ = lens _tbmgConsistencyToken

94+ (\ s a -> s{_tbmgConsistencyToken = a})

95+ . mapping _Coerce

96+

84-- | Get match data along with metadata.

97-- | Get match data along with metadata.

85tbmgIncludeMatchData :: Lens' TurnBasedMatchesGet (Maybe Bool)

98tbmgIncludeMatchData :: Lens' TurnBasedMatchesGet (Maybe Bool)

86tbmgIncludeMatchData

99tbmgIncludeMatchData

@@ -103,7 +116,9 @@ instance GoogleRequest TurnBasedMatchesGet where

103 '["https://www.googleapis.com/auth/games",

116 '["https://www.googleapis.com/auth/games",

104 "https://www.googleapis.com/auth/plus.login"]

117 "https://www.googleapis.com/auth/plus.login"]

105 requestClient TurnBasedMatchesGet'{..}

118 requestClient TurnBasedMatchesGet'{..}

119+ = go _tbmgMatchId _tbmgConsistencyToken

106− = go _tbmgMatchId _tbmgIncludeMatchData _tbmgLanguage

120+ _tbmgIncludeMatchData

121+ _tbmgLanguage

107 (Just AltJSON)

122 (Just AltJSON)

108 gamesService

123 gamesService

109 where go

124 where go

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Join.hs+21−7

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Join

33 , TurnBasedMatchesJoin

34

35 -- * Request Lenses

36+ , tbmjConsistencyToken

36 , tbmjLanguage

37 , tbmjLanguage

37 , tbmjMatchId

38 , tbmjMatchId

38 ) where

39 ) where

@@ -48,22 +49,26 @@ type TurnBasedMatchesJoinResource =

48 "turnbasedmatches" :>

49 "turnbasedmatches" :>

49 Capture "matchId" Text :>

50 Capture "matchId" Text :>

50 "join" :>

51 "join" :>

52+ QueryParam "consistencyToken" (Textual Int64) :>

51− QueryParam "language" Text :>

53+ QueryParam "language" Text :>

52− QueryParam "alt" AltJSON :>

54+ QueryParam "alt" AltJSON :>

53− Put '[JSON] TurnBasedMatch

55+ Put '[JSON] TurnBasedMatch

54

56

55-- | Join a turn-based match.

57-- | Join a turn-based match.

56--

58--

57-- /See:/ 'turnBasedMatchesJoin' smart constructor.

59-- /See:/ 'turnBasedMatchesJoin' smart constructor.

58data TurnBasedMatchesJoin = TurnBasedMatchesJoin'

60data TurnBasedMatchesJoin = TurnBasedMatchesJoin'

61+ { _tbmjConsistencyToken :: !(Maybe (Textual Int64))

59− { _tbmjLanguage :: !(Maybe Text)

62+ , _tbmjLanguage :: !(Maybe Text)

60− , _tbmjMatchId :: !Text

63+ , _tbmjMatchId :: !Text

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

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

62

65

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

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

64--

67--

65-- Use one of the following lenses to modify other fields as desired:

68-- Use one of the following lenses to modify other fields as desired:

66--

69--

70+-- * 'tbmjConsistencyToken'

71+--

67-- * 'tbmjLanguage'

72-- * 'tbmjLanguage'

68--

73--

69-- * 'tbmjMatchId'

74-- * 'tbmjMatchId'

@@ -72,10 +77,18 @@ turnBasedMatchesJoin

72 -> TurnBasedMatchesJoin

77 -> TurnBasedMatchesJoin

73turnBasedMatchesJoin pTbmjMatchId_ =

78turnBasedMatchesJoin pTbmjMatchId_ =

74 TurnBasedMatchesJoin'

79 TurnBasedMatchesJoin'

80+ { _tbmjConsistencyToken = Nothing

75− { _tbmjLanguage = Nothing

81+ , _tbmjLanguage = Nothing

76 , _tbmjMatchId = pTbmjMatchId_

82 , _tbmjMatchId = pTbmjMatchId_

77 }

83 }

78

84

85+-- | The last-seen mutation timestamp.

86+tbmjConsistencyToken :: Lens' TurnBasedMatchesJoin (Maybe Int64)

87+tbmjConsistencyToken

88+ = lens _tbmjConsistencyToken

89+ (\ s a -> s{_tbmjConsistencyToken = a})

90+ . mapping _Coerce

91+

79-- | The preferred language to use for strings returned by this method.

92-- | The preferred language to use for strings returned by this method.

80tbmjLanguage :: Lens' TurnBasedMatchesJoin (Maybe Text)

93tbmjLanguage :: Lens' TurnBasedMatchesJoin (Maybe Text)

81tbmjLanguage

94tbmjLanguage

@@ -92,7 +105,8 @@ instance GoogleRequest TurnBasedMatchesJoin where

92 '["https://www.googleapis.com/auth/games",

105 '["https://www.googleapis.com/auth/games",

93 "https://www.googleapis.com/auth/plus.login"]

106 "https://www.googleapis.com/auth/plus.login"]

94 requestClient TurnBasedMatchesJoin'{..}

107 requestClient TurnBasedMatchesJoin'{..}

95− = go _tbmjMatchId _tbmjLanguage (Just AltJSON)

108+ = go _tbmjMatchId _tbmjConsistencyToken _tbmjLanguage

109+ (Just AltJSON)

96 gamesService

110 gamesService

97 where go

111 where go

98 = buildClient

112 = buildClient

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Leave.hs+21−7

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Leave

34 , TurnBasedMatchesLeave

35

36 -- * Request Lenses

37+ , tbmlConsistencyToken

37 , tbmlLanguage

38 , tbmlLanguage

38 , tbmlMatchId

39 , tbmlMatchId

39 ) where

40 ) where

@@ -49,23 +50,27 @@ type TurnBasedMatchesLeaveResource =

49 "turnbasedmatches" :>

50 "turnbasedmatches" :>

50 Capture "matchId" Text :>

51 Capture "matchId" Text :>

51 "leave" :>

52 "leave" :>

53+ QueryParam "consistencyToken" (Textual Int64) :>

52− QueryParam "language" Text :>

54+ QueryParam "language" Text :>

53− QueryParam "alt" AltJSON :>

55+ QueryParam "alt" AltJSON :>

54− Put '[JSON] TurnBasedMatch

56+ Put '[JSON] TurnBasedMatch

55

57

56-- | Leave a turn-based match when it is not the current player\'s turn,

58-- | Leave a turn-based match when it is not the current player\'s turn,

57-- without canceling the match.

59-- without canceling the match.

58--

60--

59-- /See:/ 'turnBasedMatchesLeave' smart constructor.

61-- /See:/ 'turnBasedMatchesLeave' smart constructor.

60data TurnBasedMatchesLeave = TurnBasedMatchesLeave'

62data TurnBasedMatchesLeave = TurnBasedMatchesLeave'

63+ { _tbmlConsistencyToken :: !(Maybe (Textual Int64))

61− { _tbmlLanguage :: !(Maybe Text)

64+ , _tbmlLanguage :: !(Maybe Text)

62− , _tbmlMatchId :: !Text

65+ , _tbmlMatchId :: !Text

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

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

64

67

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

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

66--

69--

67-- Use one of the following lenses to modify other fields as desired:

70-- Use one of the following lenses to modify other fields as desired:

68--

71--

72+-- * 'tbmlConsistencyToken'

73+--

69-- * 'tbmlLanguage'

74-- * 'tbmlLanguage'

70--

75--

71-- * 'tbmlMatchId'

76-- * 'tbmlMatchId'

@@ -74,10 +79,18 @@ turnBasedMatchesLeave

74 -> TurnBasedMatchesLeave

79 -> TurnBasedMatchesLeave

75turnBasedMatchesLeave pTbmlMatchId_ =

80turnBasedMatchesLeave pTbmlMatchId_ =

76 TurnBasedMatchesLeave'

81 TurnBasedMatchesLeave'

82+ { _tbmlConsistencyToken = Nothing

77− { _tbmlLanguage = Nothing

83+ , _tbmlLanguage = Nothing

78 , _tbmlMatchId = pTbmlMatchId_

84 , _tbmlMatchId = pTbmlMatchId_

79 }

85 }

80

86

87+-- | The last-seen mutation timestamp.

88+tbmlConsistencyToken :: Lens' TurnBasedMatchesLeave (Maybe Int64)

89+tbmlConsistencyToken

90+ = lens _tbmlConsistencyToken

91+ (\ s a -> s{_tbmlConsistencyToken = a})

92+ . mapping _Coerce

93+

81-- | The preferred language to use for strings returned by this method.

94-- | The preferred language to use for strings returned by this method.

82tbmlLanguage :: Lens' TurnBasedMatchesLeave (Maybe Text)

95tbmlLanguage :: Lens' TurnBasedMatchesLeave (Maybe Text)

83tbmlLanguage

96tbmlLanguage

@@ -94,7 +107,8 @@ instance GoogleRequest TurnBasedMatchesLeave where

94 '["https://www.googleapis.com/auth/games",

107 '["https://www.googleapis.com/auth/games",

95 "https://www.googleapis.com/auth/plus.login"]

108 "https://www.googleapis.com/auth/plus.login"]

96 requestClient TurnBasedMatchesLeave'{..}

109 requestClient TurnBasedMatchesLeave'{..}

97− = go _tbmlMatchId _tbmlLanguage (Just AltJSON)

110+ = go _tbmlMatchId _tbmlConsistencyToken _tbmlLanguage

111+ (Just AltJSON)

98 gamesService

112 gamesService

99 where go

113 where go

100 = buildClient

114 = buildClient

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/LeaveTurn.hs+20−6

@@ -34,6 +34,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.LeaveTurn

34 , TurnBasedMatchesLeaveTurn

35

36 -- * Request Lenses

37+ , tbmltConsistencyToken

37 , tbmltLanguage

38 , tbmltLanguage

38 , tbmltPendingParticipantId

39 , tbmltPendingParticipantId

39 , tbmltMatchId

40 , tbmltMatchId

@@ -52,17 +53,19 @@ type TurnBasedMatchesLeaveTurnResource =

52 Capture "matchId" Text :>

53 Capture "matchId" Text :>

53 "leaveTurn" :>

54 "leaveTurn" :>

54 QueryParam "matchVersion" (Textual Int32) :>

55 QueryParam "matchVersion" (Textual Int32) :>

56+ QueryParam "consistencyToken" (Textual Int64) :>

55− QueryParam "language" Text :>

57+ QueryParam "language" Text :>

56− QueryParam "pendingParticipantId" Text :>

58+ QueryParam "pendingParticipantId" Text :>

57− QueryParam "alt" AltJSON :>

59+ QueryParam "alt" AltJSON :>

58− Put '[JSON] TurnBasedMatch

60+ Put '[JSON] TurnBasedMatch

59

61

60-- | Leave a turn-based match during the current player\'s turn, without

62-- | Leave a turn-based match during the current player\'s turn, without

61-- canceling the match.

63-- canceling the match.

62--

64--

63-- /See:/ 'turnBasedMatchesLeaveTurn' smart constructor.

65-- /See:/ 'turnBasedMatchesLeaveTurn' smart constructor.

64data TurnBasedMatchesLeaveTurn = TurnBasedMatchesLeaveTurn'

66data TurnBasedMatchesLeaveTurn = TurnBasedMatchesLeaveTurn'

67+ { _tbmltConsistencyToken :: !(Maybe (Textual Int64))

65− { _tbmltLanguage :: !(Maybe Text)

68+ , _tbmltLanguage :: !(Maybe Text)

66 , _tbmltPendingParticipantId :: !(Maybe Text)

69 , _tbmltPendingParticipantId :: !(Maybe Text)

67 , _tbmltMatchId :: !Text

70 , _tbmltMatchId :: !Text

68 , _tbmltMatchVersion :: !(Textual Int32)

71 , _tbmltMatchVersion :: !(Textual Int32)

@@ -72,6 +75,8 @@ data TurnBasedMatchesLeaveTurn = TurnBasedMatchesLeaveTurn'

72--

75--

73-- Use one of the following lenses to modify other fields as desired:

76-- Use one of the following lenses to modify other fields as desired:

74--

77--

78+-- * 'tbmltConsistencyToken'

79+--

75-- * 'tbmltLanguage'

80-- * 'tbmltLanguage'

76--

81--

77-- * 'tbmltPendingParticipantId'

82-- * 'tbmltPendingParticipantId'

@@ -85,12 +90,20 @@ turnBasedMatchesLeaveTurn

85 -> TurnBasedMatchesLeaveTurn

90 -> TurnBasedMatchesLeaveTurn

86turnBasedMatchesLeaveTurn pTbmltMatchId_ pTbmltMatchVersion_ =

91turnBasedMatchesLeaveTurn pTbmltMatchId_ pTbmltMatchVersion_ =

87 TurnBasedMatchesLeaveTurn'

92 TurnBasedMatchesLeaveTurn'

93+ { _tbmltConsistencyToken = Nothing

88− { _tbmltLanguage = Nothing

94+ , _tbmltLanguage = Nothing

89 , _tbmltPendingParticipantId = Nothing

95 , _tbmltPendingParticipantId = Nothing

90 , _tbmltMatchId = pTbmltMatchId_

96 , _tbmltMatchId = pTbmltMatchId_

91 , _tbmltMatchVersion = _Coerce # pTbmltMatchVersion_

97 , _tbmltMatchVersion = _Coerce # pTbmltMatchVersion_

92 }

98 }

93

99

100+-- | The last-seen mutation timestamp.

101+tbmltConsistencyToken :: Lens' TurnBasedMatchesLeaveTurn (Maybe Int64)

102+tbmltConsistencyToken

103+ = lens _tbmltConsistencyToken

104+ (\ s a -> s{_tbmltConsistencyToken = a})

105+ . mapping _Coerce

106+

94-- | The preferred language to use for strings returned by this method.

107-- | The preferred language to use for strings returned by this method.

95tbmltLanguage :: Lens' TurnBasedMatchesLeaveTurn (Maybe Text)

108tbmltLanguage :: Lens' TurnBasedMatchesLeaveTurn (Maybe Text)

96tbmltLanguage

109tbmltLanguage

@@ -126,6 +139,7 @@ instance GoogleRequest TurnBasedMatchesLeaveTurn

126 "https://www.googleapis.com/auth/plus.login"]

139 "https://www.googleapis.com/auth/plus.login"]

127 requestClient TurnBasedMatchesLeaveTurn'{..}

140 requestClient TurnBasedMatchesLeaveTurn'{..}

128 = go _tbmltMatchId (Just _tbmltMatchVersion)

141 = go _tbmltMatchId (Just _tbmltMatchVersion)

142+ _tbmltConsistencyToken

129 _tbmltLanguage

143 _tbmltLanguage

130 _tbmltPendingParticipantId

144 _tbmltPendingParticipantId

131 (Just AltJSON)

145 (Just AltJSON)

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/List.hs+63−48

@@ -33,11 +33,12 @@ module Network.Google.Resource.Games.TurnBasedMatches.List

33 , TurnBasedMatchesList

34

35 -- * Request Lenses

36− , tMaxCompletedMatches

36+ , turMaxCompletedMatches

37− , tIncludeMatchData

37+ , turConsistencyToken

38− , tLanguage

38+ , turIncludeMatchData

39− , tPageToken

39+ , turLanguage

40− , tMaxResults

40+ , turPageToken

41+ , turMaxResults

41 ) where

42 ) where

42

43

43import Network.Google.Games.Types

44import Network.Google.Games.Types

@@ -50,55 +51,67 @@ type TurnBasedMatchesListResource =

50 "v1" :>

51 "v1" :>

51 "turnbasedmatches" :>

52 "turnbasedmatches" :>

52 QueryParam "maxCompletedMatches" (Textual Int32) :>

53 QueryParam "maxCompletedMatches" (Textual Int32) :>

54+ QueryParam "consistencyToken" (Textual Int64) :>

53− QueryParam "includeMatchData" Bool :>

55+ QueryParam "includeMatchData" Bool :>

54− QueryParam "language" Text :>

56+ QueryParam "language" Text :>

55− QueryParam "pageToken" Text :>

57+ QueryParam "pageToken" Text :>

56− QueryParam "maxResults" (Textual Int32) :>

58+ QueryParam "maxResults" (Textual Int32) :>

57− QueryParam "alt" AltJSON :>

59+ QueryParam "alt" AltJSON :>

58− Get '[JSON] TurnBasedMatchList

60+ Get '[JSON] TurnBasedMatchList

59

61

60-- | Returns turn-based matches the player is or was involved in.

62-- | Returns turn-based matches the player is or was involved in.

61--

63--

62-- /See:/ 'turnBasedMatchesList' smart constructor.

64-- /See:/ 'turnBasedMatchesList' smart constructor.

63data TurnBasedMatchesList = TurnBasedMatchesList'

65data TurnBasedMatchesList = TurnBasedMatchesList'

64− { _tMaxCompletedMatches :: !(Maybe (Textual Int32))

66+ { _turMaxCompletedMatches :: !(Maybe (Textual Int32))

65− , _tIncludeMatchData :: !(Maybe Bool)

67+ , _turConsistencyToken :: !(Maybe (Textual Int64))

68+ , _turIncludeMatchData :: !(Maybe Bool)

66− , _tLanguage :: !(Maybe Text)

69+ , _turLanguage :: !(Maybe Text)

67− , _tPageToken :: !(Maybe Text)

70+ , _turPageToken :: !(Maybe Text)

68− , _tMaxResults :: !(Maybe (Textual Int32))

71+ , _turMaxResults :: !(Maybe (Textual Int32))

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

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

70

73

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

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

72--

75--

73-- Use one of the following lenses to modify other fields as desired:

76-- Use one of the following lenses to modify other fields as desired:

74--

77--

75−-- * 'tMaxCompletedMatches'

78+-- * 'turMaxCompletedMatches'

76--

79--

77−-- * 'tIncludeMatchData'

80+-- * 'turConsistencyToken'

78--

81--

79−-- * 'tLanguage'

82+-- * 'turIncludeMatchData'

80--

83--

81−-- * 'tPageToken'

84+-- * 'turLanguage'

82--

85--

83−-- * 'tMaxResults'

86+-- * 'turPageToken'

87+--

88+-- * 'turMaxResults'

84turnBasedMatchesList

89turnBasedMatchesList

85 :: TurnBasedMatchesList

90 :: TurnBasedMatchesList

86turnBasedMatchesList =

91turnBasedMatchesList =

87 TurnBasedMatchesList'

92 TurnBasedMatchesList'

88− { _tMaxCompletedMatches = Nothing

93+ { _turMaxCompletedMatches = Nothing

89− , _tIncludeMatchData = Nothing

94+ , _turConsistencyToken = Nothing

90− , _tLanguage = Nothing

95+ , _turIncludeMatchData = Nothing

91− , _tPageToken = Nothing

96+ , _turLanguage = Nothing

92− , _tMaxResults = Nothing

97+ , _turPageToken = Nothing

98+ , _turMaxResults = Nothing

93 }

99 }

94

100

95-- | The maximum number of completed or canceled matches to return in the

101-- | The maximum number of completed or canceled matches to return in the

96-- response. If not set, all matches returned could be completed or

102-- response. If not set, all matches returned could be completed or

97-- canceled.

103-- canceled.

98−tMaxCompletedMatches :: Lens' TurnBasedMatchesList (Maybe Int32)

104+turMaxCompletedMatches :: Lens' TurnBasedMatchesList (Maybe Int32)

99−tMaxCompletedMatches

105+turMaxCompletedMatches

100− = lens _tMaxCompletedMatches

106+ = lens _turMaxCompletedMatches

101− (\ s a -> s{_tMaxCompletedMatches = a})

107+ (\ s a -> s{_turMaxCompletedMatches = a})

108+ . mapping _Coerce

109+

110+-- | The last-seen mutation timestamp.

111+turConsistencyToken :: Lens' TurnBasedMatchesList (Maybe Int64)

112+turConsistencyToken

113+ = lens _turConsistencyToken

114+ (\ s a -> s{_turConsistencyToken = a})

102 . mapping _Coerce

115 . mapping _Coerce

103

116

104-- | True if match data should be returned in the response. Note that not all

117-- | True if match data should be returned in the response. Note that not all

@@ -106,28 +119,29 @@ tMaxCompletedMatches

106-- server may decide to only return data for some of the matches to limit

119-- server may decide to only return data for some of the matches to limit

107-- download size for the client. The remainder of the data for these

120-- download size for the client. The remainder of the data for these

108-- matches will be retrievable on request.

121-- matches will be retrievable on request.

109−tIncludeMatchData :: Lens' TurnBasedMatchesList (Maybe Bool)

122+turIncludeMatchData :: Lens' TurnBasedMatchesList (Maybe Bool)

110−tIncludeMatchData

123+turIncludeMatchData

111− = lens _tIncludeMatchData

124+ = lens _turIncludeMatchData

112− (\ s a -> s{_tIncludeMatchData = a})

125+ (\ s a -> s{_turIncludeMatchData = a})

113

126

114-- | The preferred language to use for strings returned by this method.

127-- | The preferred language to use for strings returned by this method.

115−tLanguage :: Lens' TurnBasedMatchesList (Maybe Text)

128+turLanguage :: Lens' TurnBasedMatchesList (Maybe Text)

116−tLanguage

129+turLanguage

117− = lens _tLanguage (\ s a -> s{_tLanguage = a})

130+ = lens _turLanguage (\ s a -> s{_turLanguage = a})

118

131

119-- | The token returned by the previous request.

132-- | The token returned by the previous request.

120−tPageToken :: Lens' TurnBasedMatchesList (Maybe Text)

133+turPageToken :: Lens' TurnBasedMatchesList (Maybe Text)

121−tPageToken

134+turPageToken

122− = lens _tPageToken (\ s a -> s{_tPageToken = a})

135+ = lens _turPageToken (\ s a -> s{_turPageToken = a})

123

136

124-- | The maximum number of matches to return in the response, used for

137-- | The maximum number of matches to return in the response, used for

125-- paging. For any response, the actual number of matches to return may be

138-- paging. For any response, the actual number of matches to return may be

126-- less than the specified maxResults.

139-- less than the specified maxResults.

127−tMaxResults :: Lens' TurnBasedMatchesList (Maybe Int32)

140+turMaxResults :: Lens' TurnBasedMatchesList (Maybe Int32)

128−tMaxResults

141+turMaxResults

129− = lens _tMaxResults (\ s a -> s{_tMaxResults = a}) .

142+ = lens _turMaxResults

143+ (\ s a -> s{_turMaxResults = a})

130− mapping _Coerce

144+ . mapping _Coerce

131

145

132instance GoogleRequest TurnBasedMatchesList where

146instance GoogleRequest TurnBasedMatchesList where

133 type Rs TurnBasedMatchesList = TurnBasedMatchList

147 type Rs TurnBasedMatchesList = TurnBasedMatchList

@@ -135,10 +149,11 @@ instance GoogleRequest TurnBasedMatchesList where

135 '["https://www.googleapis.com/auth/games",

149 '["https://www.googleapis.com/auth/games",

136 "https://www.googleapis.com/auth/plus.login"]

150 "https://www.googleapis.com/auth/plus.login"]

137 requestClient TurnBasedMatchesList'{..}

151 requestClient TurnBasedMatchesList'{..}

138− = go _tMaxCompletedMatches _tIncludeMatchData

152+ = go _turMaxCompletedMatches _turConsistencyToken

139− _tLanguage

153+ _turIncludeMatchData

140− _tPageToken

154+ _turLanguage

141− _tMaxResults

155+ _turPageToken

156+ _turMaxResults

142 (Just AltJSON)

157 (Just AltJSON)

143 gamesService

158 gamesService

144 where go

159 where go

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Rematch.hs+22−7

@@ -37,6 +37,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Rematch

37

38 -- * Request Lenses

39 , tbmrRequestId

40+ , tbmrConsistencyToken

40 , tbmrLanguage

41 , tbmrLanguage

41 , tbmrMatchId

42 , tbmrMatchId

42 ) where

43 ) where

@@ -53,9 +54,10 @@ type TurnBasedMatchesRematchResource =

53 Capture "matchId" Text :>

54 Capture "matchId" Text :>

54 "rematch" :>

55 "rematch" :>

55 QueryParam "requestId" (Textual Int64) :>

56 QueryParam "requestId" (Textual Int64) :>

57+ QueryParam "consistencyToken" (Textual Int64) :>

56− QueryParam "language" Text :>

58+ QueryParam "language" Text :>

57− QueryParam "alt" AltJSON :>

59+ QueryParam "alt" AltJSON :>

58− Post '[JSON] TurnBasedMatchRematch

60+ Post '[JSON] TurnBasedMatchRematch

59

61

60-- | Create a rematch of a match that was previously completed, with the same

62-- | Create a rematch of a match that was previously completed, with the same

61-- participants. This can be called by only one player on a match still in

63-- participants. This can be called by only one player on a match still in

@@ -64,9 +66,10 @@ type TurnBasedMatchesRematchResource =

64--

66--

65-- /See:/ 'turnBasedMatchesRematch' smart constructor.

67-- /See:/ 'turnBasedMatchesRematch' smart constructor.

66data TurnBasedMatchesRematch = TurnBasedMatchesRematch'

68data TurnBasedMatchesRematch = TurnBasedMatchesRematch'

69+ { _tbmrRequestId :: !(Maybe (Textual Int64))

67− { _tbmrRequestId :: !(Maybe (Textual Int64))

70+ , _tbmrConsistencyToken :: !(Maybe (Textual Int64))

68− , _tbmrLanguage :: !(Maybe Text)

71+ , _tbmrLanguage :: !(Maybe Text)

69− , _tbmrMatchId :: !Text

72+ , _tbmrMatchId :: !Text

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

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

71

74

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

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

@@ -75,6 +78,8 @@ data TurnBasedMatchesRematch = TurnBasedMatchesRematch'

75--

78--

76-- * 'tbmrRequestId'

79-- * 'tbmrRequestId'

77--

80--

81+-- * 'tbmrConsistencyToken'

82+--

78-- * 'tbmrLanguage'

83-- * 'tbmrLanguage'

79--

84--

80-- * 'tbmrMatchId'

85-- * 'tbmrMatchId'

@@ -84,6 +89,7 @@ turnBasedMatchesRematch

84turnBasedMatchesRematch pTbmrMatchId_ =

89turnBasedMatchesRematch pTbmrMatchId_ =

85 TurnBasedMatchesRematch'

90 TurnBasedMatchesRematch'

86 { _tbmrRequestId = Nothing

91 { _tbmrRequestId = Nothing

92+ , _tbmrConsistencyToken = Nothing

87 , _tbmrLanguage = Nothing

93 , _tbmrLanguage = Nothing

88 , _tbmrMatchId = pTbmrMatchId_

94 , _tbmrMatchId = pTbmrMatchId_

89 }

95 }

@@ -97,6 +103,13 @@ tbmrRequestId

97 (\ s a -> s{_tbmrRequestId = a})

103 (\ s a -> s{_tbmrRequestId = a})

98 . mapping _Coerce

104 . mapping _Coerce

99

105

106+-- | The last-seen mutation timestamp.

107+tbmrConsistencyToken :: Lens' TurnBasedMatchesRematch (Maybe Int64)

108+tbmrConsistencyToken

109+ = lens _tbmrConsistencyToken

110+ (\ s a -> s{_tbmrConsistencyToken = a})

111+ . mapping _Coerce

112+

100-- | The preferred language to use for strings returned by this method.

113-- | The preferred language to use for strings returned by this method.

101tbmrLanguage :: Lens' TurnBasedMatchesRematch (Maybe Text)

114tbmrLanguage :: Lens' TurnBasedMatchesRematch (Maybe Text)

102tbmrLanguage

115tbmrLanguage

@@ -114,7 +127,9 @@ instance GoogleRequest TurnBasedMatchesRematch where

114 '["https://www.googleapis.com/auth/games",

127 '["https://www.googleapis.com/auth/games",

115 "https://www.googleapis.com/auth/plus.login"]

128 "https://www.googleapis.com/auth/plus.login"]

116 requestClient TurnBasedMatchesRematch'{..}

129 requestClient TurnBasedMatchesRematch'{..}

117− = go _tbmrMatchId _tbmrRequestId _tbmrLanguage

130+ = go _tbmrMatchId _tbmrRequestId

131+ _tbmrConsistencyToken

132+ _tbmrLanguage

118 (Just AltJSON)

133 (Just AltJSON)

119 gamesService

134 gamesService

120 where go

135 where go

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Sync.hs+21−7

@@ -37,6 +37,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.Sync

37

38 -- * Request Lenses

39 , tbmsMaxCompletedMatches

40+ , tbmsConsistencyToken

40 , tbmsIncludeMatchData

41 , tbmsIncludeMatchData

41 , tbmsLanguage

42 , tbmsLanguage

42 , tbmsPageToken

43 , tbmsPageToken

@@ -54,12 +55,13 @@ type TurnBasedMatchesSyncResource =

54 "turnbasedmatches" :>

55 "turnbasedmatches" :>

55 "sync" :>

56 "sync" :>

56 QueryParam "maxCompletedMatches" (Textual Int32) :>

57 QueryParam "maxCompletedMatches" (Textual Int32) :>

58+ QueryParam "consistencyToken" (Textual Int64) :>

57− QueryParam "includeMatchData" Bool :>

59+ QueryParam "includeMatchData" Bool :>

58− QueryParam "language" Text :>

60+ QueryParam "language" Text :>

59− QueryParam "pageToken" Text :>

61+ QueryParam "pageToken" Text :>

60− QueryParam "maxResults" (Textual Int32) :>

62+ QueryParam "maxResults" (Textual Int32) :>

61− QueryParam "alt" AltJSON :>

63+ QueryParam "alt" AltJSON :>

62− Get '[JSON] TurnBasedMatchSync

64+ Get '[JSON] TurnBasedMatchSync

63

65

64-- | Returns turn-based matches the player is or was involved in that changed

66-- | Returns turn-based matches the player is or was involved in that changed

65-- since the last sync call, with the least recent changes coming first.

67-- since the last sync call, with the least recent changes coming first.

@@ -69,6 +71,7 @@ type TurnBasedMatchesSyncResource =

69-- /See:/ 'turnBasedMatchesSync' smart constructor.

71-- /See:/ 'turnBasedMatchesSync' smart constructor.

70data TurnBasedMatchesSync = TurnBasedMatchesSync'

72data TurnBasedMatchesSync = TurnBasedMatchesSync'

71 { _tbmsMaxCompletedMatches :: !(Maybe (Textual Int32))

73 { _tbmsMaxCompletedMatches :: !(Maybe (Textual Int32))

74+ , _tbmsConsistencyToken :: !(Maybe (Textual Int64))

72 , _tbmsIncludeMatchData :: !(Maybe Bool)

75 , _tbmsIncludeMatchData :: !(Maybe Bool)

73 , _tbmsLanguage :: !(Maybe Text)

76 , _tbmsLanguage :: !(Maybe Text)

74 , _tbmsPageToken :: !(Maybe Text)

77 , _tbmsPageToken :: !(Maybe Text)

@@ -81,6 +84,8 @@ data TurnBasedMatchesSync = TurnBasedMatchesSync'

81--

84--

82-- * 'tbmsMaxCompletedMatches'

85-- * 'tbmsMaxCompletedMatches'

83--

86--

87+-- * 'tbmsConsistencyToken'

88+--

84-- * 'tbmsIncludeMatchData'

89-- * 'tbmsIncludeMatchData'

85--

90--

86-- * 'tbmsLanguage'

91-- * 'tbmsLanguage'

@@ -93,6 +98,7 @@ turnBasedMatchesSync

93turnBasedMatchesSync =

98turnBasedMatchesSync =

94 TurnBasedMatchesSync'

99 TurnBasedMatchesSync'

95 { _tbmsMaxCompletedMatches = Nothing

100 { _tbmsMaxCompletedMatches = Nothing

101+ , _tbmsConsistencyToken = Nothing

96 , _tbmsIncludeMatchData = Nothing

102 , _tbmsIncludeMatchData = Nothing

97 , _tbmsLanguage = Nothing

103 , _tbmsLanguage = Nothing

98 , _tbmsPageToken = Nothing

104 , _tbmsPageToken = Nothing

@@ -108,6 +114,13 @@ tbmsMaxCompletedMatches

108 (\ s a -> s{_tbmsMaxCompletedMatches = a})

114 (\ s a -> s{_tbmsMaxCompletedMatches = a})

109 . mapping _Coerce

115 . mapping _Coerce

110

116

117+-- | The last-seen mutation timestamp.

118+tbmsConsistencyToken :: Lens' TurnBasedMatchesSync (Maybe Int64)

119+tbmsConsistencyToken

120+ = lens _tbmsConsistencyToken

121+ (\ s a -> s{_tbmsConsistencyToken = a})

122+ . mapping _Coerce

123+

111-- | True if match data should be returned in the response. Note that not all

124-- | True if match data should be returned in the response. Note that not all

112-- data will necessarily be returned if include_match_data is true; the

125-- data will necessarily be returned if include_match_data is true; the

113-- server may decide to only return data for some of the matches to limit

126-- server may decide to only return data for some of the matches to limit

@@ -144,7 +157,8 @@ instance GoogleRequest TurnBasedMatchesSync where

144 '["https://www.googleapis.com/auth/games",

157 '["https://www.googleapis.com/auth/games",

145 "https://www.googleapis.com/auth/plus.login"]

158 "https://www.googleapis.com/auth/plus.login"]

146 requestClient TurnBasedMatchesSync'{..}

159 requestClient TurnBasedMatchesSync'{..}

160+ = go _tbmsMaxCompletedMatches _tbmsConsistencyToken

147− = go _tbmsMaxCompletedMatches _tbmsIncludeMatchData

161+ _tbmsIncludeMatchData

148 _tbmsLanguage

162 _tbmsLanguage

149 _tbmsPageToken

163 _tbmsPageToken

150 _tbmsMaxResults

164 _tbmsMaxResults

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/TakeTurn.hs+24−9

@@ -33,6 +33,7 @@ module Network.Google.Resource.Games.TurnBasedMatches.TakeTurn

33 , TurnBasedMatchesTakeTurn

34

35 -- * Request Lenses

36+ , tbmttConsistencyToken

36 , tbmttPayload

37 , tbmttPayload

37 , tbmttLanguage

38 , tbmttLanguage

38 , tbmttMatchId

39 , tbmttMatchId

@@ -49,24 +50,28 @@ type TurnBasedMatchesTakeTurnResource =

49 "turnbasedmatches" :>

50 "turnbasedmatches" :>

50 Capture "matchId" Text :>

51 Capture "matchId" Text :>

51 "turn" :>

52 "turn" :>

53+ QueryParam "consistencyToken" (Textual Int64) :>

52− QueryParam "language" Text :>

54+ QueryParam "language" Text :>

53− QueryParam "alt" AltJSON :>

55+ QueryParam "alt" AltJSON :>

54− ReqBody '[JSON] TurnBasedMatchTurn :>

56+ ReqBody '[JSON] TurnBasedMatchTurn :>

55− Put '[JSON] TurnBasedMatch

57+ Put '[JSON] TurnBasedMatch

56

58

57-- | Commit the results of a player turn.

59-- | Commit the results of a player turn.

58--

60--

59-- /See:/ 'turnBasedMatchesTakeTurn' smart constructor.

61-- /See:/ 'turnBasedMatchesTakeTurn' smart constructor.

60data TurnBasedMatchesTakeTurn = TurnBasedMatchesTakeTurn'

62data TurnBasedMatchesTakeTurn = TurnBasedMatchesTakeTurn'

63+ { _tbmttConsistencyToken :: !(Maybe (Textual Int64))

61− { _tbmttPayload :: !TurnBasedMatchTurn

64+ , _tbmttPayload :: !TurnBasedMatchTurn

62− , _tbmttLanguage :: !(Maybe Text)

65+ , _tbmttLanguage :: !(Maybe Text)

63− , _tbmttMatchId :: !Text

66+ , _tbmttMatchId :: !Text

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

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

65

68

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

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

67--

70--

68-- Use one of the following lenses to modify other fields as desired:

71-- Use one of the following lenses to modify other fields as desired:

69--

72--

73+-- * 'tbmttConsistencyToken'

74+--

70-- * 'tbmttPayload'

75-- * 'tbmttPayload'

71--

76--

72-- * 'tbmttLanguage'

77-- * 'tbmttLanguage'

@@ -78,11 +83,19 @@ turnBasedMatchesTakeTurn

78 -> TurnBasedMatchesTakeTurn

83 -> TurnBasedMatchesTakeTurn

79turnBasedMatchesTakeTurn pTbmttPayload_ pTbmttMatchId_ =

84turnBasedMatchesTakeTurn pTbmttPayload_ pTbmttMatchId_ =

80 TurnBasedMatchesTakeTurn'

85 TurnBasedMatchesTakeTurn'

86+ { _tbmttConsistencyToken = Nothing

81− { _tbmttPayload = pTbmttPayload_

87+ , _tbmttPayload = pTbmttPayload_

82 , _tbmttLanguage = Nothing

88 , _tbmttLanguage = Nothing

83 , _tbmttMatchId = pTbmttMatchId_

89 , _tbmttMatchId = pTbmttMatchId_

84 }

90 }

85

91

92+-- | The last-seen mutation timestamp.

93+tbmttConsistencyToken :: Lens' TurnBasedMatchesTakeTurn (Maybe Int64)

94+tbmttConsistencyToken

95+ = lens _tbmttConsistencyToken

96+ (\ s a -> s{_tbmttConsistencyToken = a})

97+ . mapping _Coerce

98+

86-- | Multipart request metadata.

99-- | Multipart request metadata.

87tbmttPayload :: Lens' TurnBasedMatchesTakeTurn TurnBasedMatchTurn

100tbmttPayload :: Lens' TurnBasedMatchesTakeTurn TurnBasedMatchTurn

88tbmttPayload

101tbmttPayload

@@ -105,7 +118,9 @@ instance GoogleRequest TurnBasedMatchesTakeTurn where

105 '["https://www.googleapis.com/auth/games",

118 '["https://www.googleapis.com/auth/games",

106 "https://www.googleapis.com/auth/plus.login"]

119 "https://www.googleapis.com/auth/plus.login"]

107 requestClient TurnBasedMatchesTakeTurn'{..}

120 requestClient TurnBasedMatchesTakeTurn'{..}

121+ = go _tbmttMatchId _tbmttConsistencyToken

108− = go _tbmttMatchId _tbmttLanguage (Just AltJSON)

122+ _tbmttLanguage

123+ (Just AltJSON)

109 _tbmttPayload

124 _tbmttPayload

110 gamesService

125 gamesService

111 where go

126 where go