{-# 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.Applications.ListHidden
(
ApplicationsListHiddenResource
, applicationsListHidden
, ApplicationsListHidden
, alhApplicationId
, alhPageToken
, alhMaxResults
) where
import Network.Google.GamesManagement.Types
import Network.Google.Prelude
type ApplicationsListHiddenResource =
"games" :>
"v1management" :>
"applications" :>
Capture "applicationId" Text :>
"players" :>
"hidden" :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] HiddenPlayerList
data ApplicationsListHidden = ApplicationsListHidden'
{ _alhApplicationId :: !Text
, _alhPageToken :: !(Maybe Text)
, _alhMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
applicationsListHidden
:: Text
-> ApplicationsListHidden
applicationsListHidden pAlhApplicationId_ =
ApplicationsListHidden'
{ _alhApplicationId = pAlhApplicationId_
, _alhPageToken = Nothing
, _alhMaxResults = Nothing
}
alhApplicationId :: Lens' ApplicationsListHidden Text
alhApplicationId
= lens _alhApplicationId
(\ s a -> s{_alhApplicationId = a})
alhPageToken :: Lens' ApplicationsListHidden (Maybe Text)
alhPageToken
= lens _alhPageToken (\ s a -> s{_alhPageToken = a})
alhMaxResults :: Lens' ApplicationsListHidden (Maybe Int32)
alhMaxResults
= lens _alhMaxResults
(\ s a -> s{_alhMaxResults = a})
. mapping _Coerce
instance GoogleRequest ApplicationsListHidden where
type Rs ApplicationsListHidden = HiddenPlayerList
type Scopes ApplicationsListHidden =
'["https://www.googleapis.com/auth/games"]
requestClient ApplicationsListHidden'{..}
= go _alhApplicationId _alhPageToken _alhMaxResults
(Just AltJSON)
gamesManagementService
where go
= buildClient
(Proxy :: Proxy ApplicationsListHiddenResource)
mempty