module Network.Google.Resource.Games.Achievements.UpdateMultiple
(
AchievementsUpdateMultipleResource
, achievementsUpdateMultiple
, AchievementsUpdateMultiple
, aumConsistencyToken
, aumPayload
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type AchievementsUpdateMultipleResource =
"games" :>
"v1" :>
"achievements" :>
"updateMultiple" :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AchievementUpdateMultipleRequest :>
Post '[JSON] AchievementUpdateMultipleResponse
data AchievementsUpdateMultiple = AchievementsUpdateMultiple'
{ _aumConsistencyToken :: !(Maybe (Textual Int64))
, _aumPayload :: !AchievementUpdateMultipleRequest
} deriving (Eq,Show,Data,Typeable,Generic)
achievementsUpdateMultiple
:: AchievementUpdateMultipleRequest
-> AchievementsUpdateMultiple
achievementsUpdateMultiple pAumPayload_ =
AchievementsUpdateMultiple'
{ _aumConsistencyToken = Nothing
, _aumPayload = pAumPayload_
}
aumConsistencyToken :: Lens' AchievementsUpdateMultiple (Maybe Int64)
aumConsistencyToken
= lens _aumConsistencyToken
(\ s a -> s{_aumConsistencyToken = a})
. mapping _Coerce
aumPayload :: Lens' AchievementsUpdateMultiple AchievementUpdateMultipleRequest
aumPayload
= lens _aumPayload (\ s a -> s{_aumPayload = a})
instance GoogleRequest AchievementsUpdateMultiple
where
type Rs AchievementsUpdateMultiple =
AchievementUpdateMultipleResponse
type Scopes AchievementsUpdateMultiple =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient AchievementsUpdateMultiple'{..}
= go _aumConsistencyToken (Just AltJSON) _aumPayload
gamesService
where go
= buildClient
(Proxy :: Proxy AchievementsUpdateMultipleResource)
mempty