{-# 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.AdSense.AdClients.List
(
AdClientsListResource
, adClientsList
, AdClientsList
, aclPageToken
, aclMaxResults
) where
import Network.Google.AdSense.Types
import Network.Google.Prelude
type AdClientsListResource =
"adsense" :>
"v1.4" :>
"adclients" :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :> Get '[JSON] AdClients
-- | List all ad clients in this AdSense account.
--
-- /See:/ 'adClientsList' smart constructor.
data AdClientsList = AdClientsList'
{ _aclPageToken :: !(Maybe Text)
, _aclMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'AdClientsList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'aclPageToken'
--
-- * 'aclMaxResults'
adClientsList
:: AdClientsList
adClientsList =
AdClientsList'
{ _aclPageToken = Nothing
, _aclMaxResults = Nothing
}
-- | A continuation token, used to page through ad clients. To retrieve the
-- next page, set this parameter to the value of \"nextPageToken\" from the
-- previous response.
aclPageToken :: Lens' AdClientsList (Maybe Text)
aclPageToken
= lens _aclPageToken (\ s a -> s{_aclPageToken = a})
-- | The maximum number of ad clients to include in the response, used for
-- paging.
aclMaxResults :: Lens' AdClientsList (Maybe Int32)
aclMaxResults
= lens _aclMaxResults
(\ s a -> s{_aclMaxResults = a})
. mapping _Coerce
instance GoogleRequest AdClientsList where
type Rs AdClientsList = AdClients
type Scopes AdClientsList =
'["https://www.googleapis.com/auth/adsense",
"https://www.googleapis.com/auth/adsense.readonly"]
requestClient AdClientsList'{..}
= go _aclPageToken _aclMaxResults (Just AltJSON)
adSenseService
where go
= buildClient (Proxy :: Proxy AdClientsListResource)
mempty