{-# 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
-- | Retrieves the metadata of the achievement configuration with the given
-- ID.
--
-- /See:/ 'achievementConfigurationsGet' smart constructor.
newtype AchievementConfigurationsGet = AchievementConfigurationsGet'
{ _acgAchievementId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'AchievementConfigurationsGet' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'acgAchievementId'
achievementConfigurationsGet
:: Text -- ^ 'acgAchievementId'
-> AchievementConfigurationsGet
achievementConfigurationsGet pAcgAchievementId_ =
AchievementConfigurationsGet'
{ _acgAchievementId = pAcgAchievementId_
}
-- | The ID of the achievement used by this method.
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