module Network.Google.Resource.GAN.Links.List
(
LinksListResource
, linksList
, LinksList
, llCreateDateMax
, llAuthorship
, llAssetSize
, llRelationshipStatus
, llAdvertiserId
, llSearchText
, llPromotionType
, llRoleId
, llRole
, llCreateDateMin
, llLinkType
, llPageToken
, llStartDateMax
, llStartDateMin
, llMaxResults
) where
import Network.Google.Affiliates.Types
import Network.Google.Prelude
type LinksListResource =
"gan" :>
"v1beta1" :>
Capture "role" LinksListRole :>
Capture "roleId" Text :>
"links" :>
QueryParam "createDateMax" Text :>
QueryParam "authorship" LinksListAuthorship :>
QueryParams "assetSize" Text :>
QueryParam "relationshipStatus"
LinksListRelationshipStatus
:>
QueryParams "advertiserId" (Textual Int64) :>
QueryParam "searchText" Text :>
QueryParams "promotionType" LinksListPromotionType :>
QueryParam "createDateMin" Text :>
QueryParam "linkType" LinksListLinkType :>
QueryParam "pageToken" Text :>
QueryParam "startDateMax" Text :>
QueryParam "startDateMin" Text :>
QueryParam "maxResults" (Textual Word32)
:>
QueryParam "alt" AltJSON :>
Get '[JSON] Links
data LinksList = LinksList'
{ _llCreateDateMax :: !(Maybe Text)
, _llAuthorship :: !(Maybe LinksListAuthorship)
, _llAssetSize :: !(Maybe [Text])
, _llRelationshipStatus :: !(Maybe LinksListRelationshipStatus)
, _llAdvertiserId :: !(Maybe [Textual Int64])
, _llSearchText :: !(Maybe Text)
, _llPromotionType :: !(Maybe [LinksListPromotionType])
, _llRoleId :: !Text
, _llRole :: !LinksListRole
, _llCreateDateMin :: !(Maybe Text)
, _llLinkType :: !(Maybe LinksListLinkType)
, _llPageToken :: !(Maybe Text)
, _llStartDateMax :: !(Maybe Text)
, _llStartDateMin :: !(Maybe Text)
, _llMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
linksList
:: Text
-> LinksListRole
-> LinksList
linksList pLlRoleId_ pLlRole_ =
LinksList'
{ _llCreateDateMax = Nothing
, _llAuthorship = Nothing
, _llAssetSize = Nothing
, _llRelationshipStatus = Nothing
, _llAdvertiserId = Nothing
, _llSearchText = Nothing
, _llPromotionType = Nothing
, _llRoleId = pLlRoleId_
, _llRole = pLlRole_
, _llCreateDateMin = Nothing
, _llLinkType = Nothing
, _llPageToken = Nothing
, _llStartDateMax = Nothing
, _llStartDateMin = Nothing
, _llMaxResults = Nothing
}
llCreateDateMax :: Lens' LinksList (Maybe Text)
llCreateDateMax
= lens _llCreateDateMax
(\ s a -> s{_llCreateDateMax = a})
llAuthorship :: Lens' LinksList (Maybe LinksListAuthorship)
llAuthorship
= lens _llAuthorship (\ s a -> s{_llAuthorship = a})
llAssetSize :: Lens' LinksList [Text]
llAssetSize
= lens _llAssetSize (\ s a -> s{_llAssetSize = a}) .
_Default
. _Coerce
llRelationshipStatus :: Lens' LinksList (Maybe LinksListRelationshipStatus)
llRelationshipStatus
= lens _llRelationshipStatus
(\ s a -> s{_llRelationshipStatus = a})
llAdvertiserId :: Lens' LinksList [Int64]
llAdvertiserId
= lens _llAdvertiserId
(\ s a -> s{_llAdvertiserId = a})
. _Default
. _Coerce
llSearchText :: Lens' LinksList (Maybe Text)
llSearchText
= lens _llSearchText (\ s a -> s{_llSearchText = a})
llPromotionType :: Lens' LinksList [LinksListPromotionType]
llPromotionType
= lens _llPromotionType
(\ s a -> s{_llPromotionType = a})
. _Default
. _Coerce
llRoleId :: Lens' LinksList Text
llRoleId = lens _llRoleId (\ s a -> s{_llRoleId = a})
llRole :: Lens' LinksList LinksListRole
llRole = lens _llRole (\ s a -> s{_llRole = a})
llCreateDateMin :: Lens' LinksList (Maybe Text)
llCreateDateMin
= lens _llCreateDateMin
(\ s a -> s{_llCreateDateMin = a})
llLinkType :: Lens' LinksList (Maybe LinksListLinkType)
llLinkType
= lens _llLinkType (\ s a -> s{_llLinkType = a})
llPageToken :: Lens' LinksList (Maybe Text)
llPageToken
= lens _llPageToken (\ s a -> s{_llPageToken = a})
llStartDateMax :: Lens' LinksList (Maybe Text)
llStartDateMax
= lens _llStartDateMax
(\ s a -> s{_llStartDateMax = a})
llStartDateMin :: Lens' LinksList (Maybe Text)
llStartDateMin
= lens _llStartDateMin
(\ s a -> s{_llStartDateMin = a})
llMaxResults :: Lens' LinksList (Maybe Word32)
llMaxResults
= lens _llMaxResults (\ s a -> s{_llMaxResults = a})
. mapping _Coerce
instance GoogleRequest LinksList where
type Rs LinksList = Links
type Scopes LinksList = '[]
requestClient LinksList'{..}
= go _llRole _llRoleId _llCreateDateMax _llAuthorship
(_llAssetSize ^. _Default)
_llRelationshipStatus
(_llAdvertiserId ^. _Default)
_llSearchText
(_llPromotionType ^. _Default)
_llCreateDateMin
_llLinkType
_llPageToken
_llStartDateMax
_llStartDateMin
_llMaxResults
(Just AltJSON)
affiliatesService
where go
= buildClient (Proxy :: Proxy LinksListResource)
mempty