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