{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.GamesManagement.Achievements.ResetMultipleForAllPlayers
(
AchievementsResetMultipleForAllPlayersResource
, achievementsResetMultipleForAllPlayers
, AchievementsResetMultipleForAllPlayers
, armfapPayload
) where
import Network.Google.GamesManagement.Types
import Network.Google.Prelude
type AchievementsResetMultipleForAllPlayersResource =
"games" :>
"v1management" :>
"achievements" :>
"resetMultipleForAllPlayers" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AchievementResetMultipleForAllRequest
:> Post '[JSON] ()
newtype AchievementsResetMultipleForAllPlayers = AchievementsResetMultipleForAllPlayers'
{ _armfapPayload :: AchievementResetMultipleForAllRequest
} deriving (Eq,Show,Data,Typeable,Generic)
achievementsResetMultipleForAllPlayers
:: AchievementResetMultipleForAllRequest
-> AchievementsResetMultipleForAllPlayers
achievementsResetMultipleForAllPlayers pArmfapPayload_ =
AchievementsResetMultipleForAllPlayers'
{ _armfapPayload = pArmfapPayload_
}
armfapPayload :: Lens' AchievementsResetMultipleForAllPlayers AchievementResetMultipleForAllRequest
armfapPayload
= lens _armfapPayload
(\ s a -> s{_armfapPayload = a})
instance GoogleRequest
AchievementsResetMultipleForAllPlayers where
type Rs AchievementsResetMultipleForAllPlayers = ()
type Scopes AchievementsResetMultipleForAllPlayers =
'["https://www.googleapis.com/auth/games"]
requestClient
AchievementsResetMultipleForAllPlayers'{..}
= go (Just AltJSON) _armfapPayload
gamesManagementService
where go
= buildClient
(Proxy ::
Proxy AchievementsResetMultipleForAllPlayersResource)
mempty