module Network.Google.Resource.Games.Achievements.Increment
(
AchievementsIncrementResource
, achievementsIncrement
, AchievementsIncrement
, aiRequestId
, aiAchievementId
, aiConsistencyToken
, aiStepsToIncrement
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type AchievementsIncrementResource =
"games" :>
"v1" :>
"achievements" :>
Capture "achievementId" Text :>
"increment" :>
QueryParam "stepsToIncrement" (Textual Int32) :>
QueryParam "requestId" (Textual Int64) :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "alt" AltJSON :>
Post '[JSON] AchievementIncrementResponse
data AchievementsIncrement = AchievementsIncrement'
{ _aiRequestId :: !(Maybe (Textual Int64))
, _aiAchievementId :: !Text
, _aiConsistencyToken :: !(Maybe (Textual Int64))
, _aiStepsToIncrement :: !(Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
achievementsIncrement
:: Text
-> Int32
-> AchievementsIncrement
achievementsIncrement pAiAchievementId_ pAiStepsToIncrement_ =
AchievementsIncrement'
{ _aiRequestId = Nothing
, _aiAchievementId = pAiAchievementId_
, _aiConsistencyToken = Nothing
, _aiStepsToIncrement = _Coerce # pAiStepsToIncrement_
}
aiRequestId :: Lens' AchievementsIncrement (Maybe Int64)
aiRequestId
= lens _aiRequestId (\ s a -> s{_aiRequestId = a}) .
mapping _Coerce
aiAchievementId :: Lens' AchievementsIncrement Text
aiAchievementId
= lens _aiAchievementId
(\ s a -> s{_aiAchievementId = a})
aiConsistencyToken :: Lens' AchievementsIncrement (Maybe Int64)
aiConsistencyToken
= lens _aiConsistencyToken
(\ s a -> s{_aiConsistencyToken = a})
. mapping _Coerce
aiStepsToIncrement :: Lens' AchievementsIncrement Int32
aiStepsToIncrement
= lens _aiStepsToIncrement
(\ s a -> s{_aiStepsToIncrement = a})
. _Coerce
instance GoogleRequest AchievementsIncrement where
type Rs AchievementsIncrement =
AchievementIncrementResponse
type Scopes AchievementsIncrement =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient AchievementsIncrement'{..}
= go _aiAchievementId (Just _aiStepsToIncrement)
_aiRequestId
_aiConsistencyToken
(Just AltJSON)
gamesService
where go
= buildClient
(Proxy :: Proxy AchievementsIncrementResource)
mempty