{-# 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.GamesConfiguration.AchievementConfigurations.Get
(
AchievementConfigurationsGetResource
, achievementConfigurationsGet
, AchievementConfigurationsGet
, acgAchievementId
) where
import Network.Google.GamesConfiguration.Types
import Network.Google.Prelude
type AchievementConfigurationsGetResource =
"games" :>
"v1configuration" :>
"achievements" :>
Capture "achievementId" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] AchievementConfiguration
newtype AchievementConfigurationsGet = AchievementConfigurationsGet'
{ _acgAchievementId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
achievementConfigurationsGet
:: Text
-> AchievementConfigurationsGet
achievementConfigurationsGet pAcgAchievementId_ =
AchievementConfigurationsGet'
{ _acgAchievementId = pAcgAchievementId_
}
acgAchievementId :: Lens' AchievementConfigurationsGet Text
acgAchievementId
= lens _acgAchievementId
(\ s a -> s{_acgAchievementId = a})
instance GoogleRequest AchievementConfigurationsGet
where
type Rs AchievementConfigurationsGet =
AchievementConfiguration
type Scopes AchievementConfigurationsGet =
'["https://www.googleapis.com/auth/androidpublisher"]
requestClient AchievementConfigurationsGet'{..}
= go _acgAchievementId (Just AltJSON)
gamesConfigurationService
where go
= buildClient
(Proxy :: Proxy AchievementConfigurationsGetResource)
mempty