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