module Network.Google.Resource.Games.Leaderboards.Get
(
LeaderboardsGetResource
, leaderboardsGet
, LeaderboardsGet
, lgConsistencyToken
, lgLeaderboardId
, lgLanguage
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type LeaderboardsGetResource =
"games" :>
"v1" :>
"leaderboards" :>
Capture "leaderboardId" Text :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Leaderboard
data LeaderboardsGet = LeaderboardsGet'
{ _lgConsistencyToken :: !(Maybe (Textual Int64))
, _lgLeaderboardId :: !Text
, _lgLanguage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
leaderboardsGet
:: Text
-> LeaderboardsGet
leaderboardsGet pLgLeaderboardId_ =
LeaderboardsGet'
{ _lgConsistencyToken = Nothing
, _lgLeaderboardId = pLgLeaderboardId_
, _lgLanguage = Nothing
}
lgConsistencyToken :: Lens' LeaderboardsGet (Maybe Int64)
lgConsistencyToken
= lens _lgConsistencyToken
(\ s a -> s{_lgConsistencyToken = a})
. mapping _Coerce
lgLeaderboardId :: Lens' LeaderboardsGet Text
lgLeaderboardId
= lens _lgLeaderboardId
(\ s a -> s{_lgLeaderboardId = a})
lgLanguage :: Lens' LeaderboardsGet (Maybe Text)
lgLanguage
= lens _lgLanguage (\ s a -> s{_lgLanguage = a})
instance GoogleRequest LeaderboardsGet where
type Rs LeaderboardsGet = Leaderboard
type Scopes LeaderboardsGet =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient LeaderboardsGet'{..}
= go _lgLeaderboardId _lgConsistencyToken _lgLanguage
(Just AltJSON)
gamesService
where go
= buildClient
(Proxy :: Proxy LeaderboardsGetResource)
mempty