module Network.Google.Resource.GAN.Advertisers.List
(
AdvertisersListResource
, advertisersList
, AdvertisersList
, alRelationshipStatus
, alMinSevenDayEpc
, alRoleId
, alMinNinetyDayEpc
, alRole
, alMinPayoutRank
, alAdvertiserCategory
, alPageToken
, alMaxResults
) where
import Network.Google.Affiliates.Types
import Network.Google.Prelude
type AdvertisersListResource =
"gan" :>
"v1beta1" :>
Capture "role" AdvertisersListRole :>
Capture "roleId" Text :>
"advertisers" :>
QueryParam "relationshipStatus"
AdvertisersListRelationshipStatus
:>
QueryParam "minSevenDayEpc" (Textual Double) :>
QueryParam "minNinetyDayEpc" (Textual Double) :>
QueryParam "minPayoutRank" (Textual Int32) :>
QueryParam "advertiserCategory" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :> Get '[JSON] Advertisers
data AdvertisersList = AdvertisersList
{ _alRelationshipStatus :: !(Maybe AdvertisersListRelationshipStatus)
, _alMinSevenDayEpc :: !(Maybe (Textual Double))
, _alRoleId :: !Text
, _alMinNinetyDayEpc :: !(Maybe (Textual Double))
, _alRole :: !AdvertisersListRole
, _alMinPayoutRank :: !(Maybe (Textual Int32))
, _alAdvertiserCategory :: !(Maybe Text)
, _alPageToken :: !(Maybe Text)
, _alMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
advertisersList
:: Text
-> AdvertisersListRole
-> AdvertisersList
advertisersList pAlRoleId_ pAlRole_ =
AdvertisersList
{ _alRelationshipStatus = Nothing
, _alMinSevenDayEpc = Nothing
, _alRoleId = pAlRoleId_
, _alMinNinetyDayEpc = Nothing
, _alRole = pAlRole_
, _alMinPayoutRank = Nothing
, _alAdvertiserCategory = Nothing
, _alPageToken = Nothing
, _alMaxResults = Nothing
}
alRelationshipStatus :: Lens' AdvertisersList (Maybe AdvertisersListRelationshipStatus)
alRelationshipStatus
= lens _alRelationshipStatus
(\ s a -> s{_alRelationshipStatus = a})
alMinSevenDayEpc :: Lens' AdvertisersList (Maybe Double)
alMinSevenDayEpc
= lens _alMinSevenDayEpc
(\ s a -> s{_alMinSevenDayEpc = a})
. mapping _Coerce
alRoleId :: Lens' AdvertisersList Text
alRoleId = lens _alRoleId (\ s a -> s{_alRoleId = a})
alMinNinetyDayEpc :: Lens' AdvertisersList (Maybe Double)
alMinNinetyDayEpc
= lens _alMinNinetyDayEpc
(\ s a -> s{_alMinNinetyDayEpc = a})
. mapping _Coerce
alRole :: Lens' AdvertisersList AdvertisersListRole
alRole = lens _alRole (\ s a -> s{_alRole = a})
alMinPayoutRank :: Lens' AdvertisersList (Maybe Int32)
alMinPayoutRank
= lens _alMinPayoutRank
(\ s a -> s{_alMinPayoutRank = a})
. mapping _Coerce
alAdvertiserCategory :: Lens' AdvertisersList (Maybe Text)
alAdvertiserCategory
= lens _alAdvertiserCategory
(\ s a -> s{_alAdvertiserCategory = a})
alPageToken :: Lens' AdvertisersList (Maybe Text)
alPageToken
= lens _alPageToken (\ s a -> s{_alPageToken = a})
alMaxResults :: Lens' AdvertisersList (Maybe Word32)
alMaxResults
= lens _alMaxResults (\ s a -> s{_alMaxResults = a})
. mapping _Coerce
instance GoogleRequest AdvertisersList where
type Rs AdvertisersList = Advertisers
requestClient AdvertisersList{..}
= go _alRole _alRoleId _alRelationshipStatus
_alMinSevenDayEpc
_alMinNinetyDayEpc
_alMinPayoutRank
_alAdvertiserCategory
_alPageToken
_alMaxResults
(Just AltJSON)
affiliatesService
where go
= buildClient
(Proxy :: Proxy AdvertisersListResource)
mempty