{-# 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.Accounts.AdUnits.List
(
AccountsAdUnitsListResource
, accountsAdUnitsList
, AccountsAdUnitsList
, aaulIncludeInactive
, aaulAdClientId
, aaulAccountId
, aaulPageToken
, aaulMaxResults
) where
import Network.Google.AdSense.Types
import Network.Google.Prelude
type AccountsAdUnitsListResource =
"adsense" :>
"v1.4" :>
"accounts" :>
Capture "accountId" Text :>
"adclients" :>
Capture "adClientId" Text :>
"adunits" :>
QueryParam "includeInactive" Bool :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :> Get '[JSON] AdUnits
-- | List all ad units in the specified ad client for the specified account.
--
-- /See:/ 'accountsAdUnitsList' smart constructor.
data AccountsAdUnitsList = AccountsAdUnitsList'
{ _aaulIncludeInactive :: !(Maybe Bool)
, _aaulAdClientId :: !Text
, _aaulAccountId :: !Text
, _aaulPageToken :: !(Maybe Text)
, _aaulMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'AccountsAdUnitsList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'aaulIncludeInactive'
--
-- * 'aaulAdClientId'
--
-- * 'aaulAccountId'
--
-- * 'aaulPageToken'
--
-- * 'aaulMaxResults'
accountsAdUnitsList
:: Text -- ^ 'aaulAdClientId'
-> Text -- ^ 'aaulAccountId'
-> AccountsAdUnitsList
accountsAdUnitsList pAaulAdClientId_ pAaulAccountId_ =
AccountsAdUnitsList'
{ _aaulIncludeInactive = Nothing
, _aaulAdClientId = pAaulAdClientId_
, _aaulAccountId = pAaulAccountId_
, _aaulPageToken = Nothing
, _aaulMaxResults = Nothing
}
-- | Whether to include inactive ad units. Default: true.
aaulIncludeInactive :: Lens' AccountsAdUnitsList (Maybe Bool)
aaulIncludeInactive
= lens _aaulIncludeInactive
(\ s a -> s{_aaulIncludeInactive = a})
-- | Ad client for which to list ad units.
aaulAdClientId :: Lens' AccountsAdUnitsList Text
aaulAdClientId
= lens _aaulAdClientId
(\ s a -> s{_aaulAdClientId = a})
-- | Account to which the ad client belongs.
aaulAccountId :: Lens' AccountsAdUnitsList Text
aaulAccountId
= lens _aaulAccountId
(\ s a -> s{_aaulAccountId = a})
-- | A continuation token, used to page through ad units. To retrieve the
-- next page, set this parameter to the value of \"nextPageToken\" from the
-- previous response.
aaulPageToken :: Lens' AccountsAdUnitsList (Maybe Text)
aaulPageToken
= lens _aaulPageToken
(\ s a -> s{_aaulPageToken = a})
-- | The maximum number of ad units to include in the response, used for
-- paging.
aaulMaxResults :: Lens' AccountsAdUnitsList (Maybe Int32)
aaulMaxResults
= lens _aaulMaxResults
(\ s a -> s{_aaulMaxResults = a})
. mapping _Coerce
instance GoogleRequest AccountsAdUnitsList where
type Rs AccountsAdUnitsList = AdUnits
type Scopes AccountsAdUnitsList =
'["https://www.googleapis.com/auth/adsense",
"https://www.googleapis.com/auth/adsense.readonly"]
requestClient AccountsAdUnitsList'{..}
= go _aaulAccountId _aaulAdClientId
_aaulIncludeInactive
_aaulPageToken
_aaulMaxResults
(Just AltJSON)
adSenseService
where go
= buildClient
(Proxy :: Proxy AccountsAdUnitsListResource)
mempty