module Network.Google.Resource.GAN.Publishers.List
(
PublishersListResource
, publishersList
, PublishersList
, plRelationshipStatus
, plMinSevenDayEpc
, plRoleId
, plMinNinetyDayEpc
, plRole
, plMinPayoutRank
, plPageToken
, plPublisherCategory
, plMaxResults
) where
import Network.Google.Affiliates.Types
import Network.Google.Prelude
type PublishersListResource =
"gan" :>
"v1beta1" :>
Capture "role" PublishersListRole :>
Capture "roleId" Text :>
"publishers" :>
QueryParam "relationshipStatus"
PublishersListRelationshipStatus
:>
QueryParam "minSevenDayEpc" (Textual Double) :>
QueryParam "minNinetyDayEpc" (Textual Double) :>
QueryParam "minPayoutRank" (Textual Int32) :>
QueryParam "pageToken" Text :>
QueryParam "publisherCategory" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :> Get '[JSON] Publishers
data PublishersList = PublishersList'
{ _plRelationshipStatus :: !(Maybe PublishersListRelationshipStatus)
, _plMinSevenDayEpc :: !(Maybe (Textual Double))
, _plRoleId :: !Text
, _plMinNinetyDayEpc :: !(Maybe (Textual Double))
, _plRole :: !PublishersListRole
, _plMinPayoutRank :: !(Maybe (Textual Int32))
, _plPageToken :: !(Maybe Text)
, _plPublisherCategory :: !(Maybe Text)
, _plMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
publishersList
:: Text
-> PublishersListRole
-> PublishersList
publishersList pPlRoleId_ pPlRole_ =
PublishersList'
{ _plRelationshipStatus = Nothing
, _plMinSevenDayEpc = Nothing
, _plRoleId = pPlRoleId_
, _plMinNinetyDayEpc = Nothing
, _plRole = pPlRole_
, _plMinPayoutRank = Nothing
, _plPageToken = Nothing
, _plPublisherCategory = Nothing
, _plMaxResults = Nothing
}
plRelationshipStatus :: Lens' PublishersList (Maybe PublishersListRelationshipStatus)
plRelationshipStatus
= lens _plRelationshipStatus
(\ s a -> s{_plRelationshipStatus = a})
plMinSevenDayEpc :: Lens' PublishersList (Maybe Double)
plMinSevenDayEpc
= lens _plMinSevenDayEpc
(\ s a -> s{_plMinSevenDayEpc = a})
. mapping _Coerce
plRoleId :: Lens' PublishersList Text
plRoleId = lens _plRoleId (\ s a -> s{_plRoleId = a})
plMinNinetyDayEpc :: Lens' PublishersList (Maybe Double)
plMinNinetyDayEpc
= lens _plMinNinetyDayEpc
(\ s a -> s{_plMinNinetyDayEpc = a})
. mapping _Coerce
plRole :: Lens' PublishersList PublishersListRole
plRole = lens _plRole (\ s a -> s{_plRole = a})
plMinPayoutRank :: Lens' PublishersList (Maybe Int32)
plMinPayoutRank
= lens _plMinPayoutRank
(\ s a -> s{_plMinPayoutRank = a})
. mapping _Coerce
plPageToken :: Lens' PublishersList (Maybe Text)
plPageToken
= lens _plPageToken (\ s a -> s{_plPageToken = a})
plPublisherCategory :: Lens' PublishersList (Maybe Text)
plPublisherCategory
= lens _plPublisherCategory
(\ s a -> s{_plPublisherCategory = a})
plMaxResults :: Lens' PublishersList (Maybe Word32)
plMaxResults
= lens _plMaxResults (\ s a -> s{_plMaxResults = a})
. mapping _Coerce
instance GoogleRequest PublishersList where
type Rs PublishersList = Publishers
type Scopes PublishersList = '[]
requestClient PublishersList'{..}
= go _plRole _plRoleId _plRelationshipStatus
_plMinSevenDayEpc
_plMinNinetyDayEpc
_plMinPayoutRank
_plPageToken
_plPublisherCategory
_plMaxResults
(Just AltJSON)
affiliatesService
where go
= buildClient (Proxy :: Proxy PublishersListResource)
mempty