{-# 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.ResetForAllPlayers
(
AchievementsResetForAllPlayersResource
, achievementsResetForAllPlayers
, AchievementsResetForAllPlayers
, arfapAchievementId
) where
import Network.Google.GamesManagement.Types
import Network.Google.Prelude
type AchievementsResetForAllPlayersResource =
"games" :>
"v1management" :>
"achievements" :>
Capture "achievementId" Text :>
"resetForAllPlayers" :>
QueryParam "alt" AltJSON :> Post '[JSON] ()
newtype AchievementsResetForAllPlayers = AchievementsResetForAllPlayers'
{ _arfapAchievementId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
achievementsResetForAllPlayers
:: Text
-> AchievementsResetForAllPlayers
achievementsResetForAllPlayers pArfapAchievementId_ =
AchievementsResetForAllPlayers'
{ _arfapAchievementId = pArfapAchievementId_
}
arfapAchievementId :: Lens' AchievementsResetForAllPlayers Text
arfapAchievementId
= lens _arfapAchievementId
(\ s a -> s{_arfapAchievementId = a})
instance GoogleRequest AchievementsResetForAllPlayers
where
type Rs AchievementsResetForAllPlayers = ()
type Scopes AchievementsResetForAllPlayers =
'["https://www.googleapis.com/auth/games"]
requestClient AchievementsResetForAllPlayers'{..}
= go _arfapAchievementId (Just AltJSON)
gamesManagementService
where go
= buildClient
(Proxy ::
Proxy AchievementsResetForAllPlayersResource)
mempty