module Network.Google.Resource.Content.Accountshipping.List
(
AccountshippingListResource
, accountshippingList
, AccountshippingList
, al1MerchantId
, al1PageToken
, al1MaxResults
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type AccountshippingListResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"accountshipping" :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] AccountshippingListResponse
data AccountshippingList = AccountshippingList'
{ _al1MerchantId :: !(Textual Word64)
, _al1PageToken :: !(Maybe Text)
, _al1MaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
accountshippingList
:: Word64
-> AccountshippingList
accountshippingList pAl1MerchantId_ =
AccountshippingList'
{ _al1MerchantId = _Coerce # pAl1MerchantId_
, _al1PageToken = Nothing
, _al1MaxResults = Nothing
}
al1MerchantId :: Lens' AccountshippingList Word64
al1MerchantId
= lens _al1MerchantId
(\ s a -> s{_al1MerchantId = a})
. _Coerce
al1PageToken :: Lens' AccountshippingList (Maybe Text)
al1PageToken
= lens _al1PageToken (\ s a -> s{_al1PageToken = a})
al1MaxResults :: Lens' AccountshippingList (Maybe Word32)
al1MaxResults
= lens _al1MaxResults
(\ s a -> s{_al1MaxResults = a})
. mapping _Coerce
instance GoogleRequest AccountshippingList where
type Rs AccountshippingList =
AccountshippingListResponse
type Scopes AccountshippingList =
'["https://www.googleapis.com/auth/content"]
requestClient AccountshippingList'{..}
= go _al1MerchantId _al1PageToken _al1MaxResults
(Just AltJSON)
shoppingContentService
where go
= buildClient
(Proxy :: Proxy AccountshippingListResource)
mempty