module Network.Google.Resource.Content.Productstatuses.List
(
ProductstatusesListResource
, productstatusesList
, ProductstatusesList
, plMerchantId
, plIncludeInvalidInsertedItems
, plPageToken
, plMaxResults
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type ProductstatusesListResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"productstatuses" :>
QueryParam "includeInvalidInsertedItems" Bool :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] ProductstatusesListResponse
data ProductstatusesList = ProductstatusesList'
{ _plMerchantId :: !(Textual Word64)
, _plIncludeInvalidInsertedItems :: !(Maybe Bool)
, _plPageToken :: !(Maybe Text)
, _plMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesList
:: Word64
-> ProductstatusesList
productstatusesList pPlMerchantId_ =
ProductstatusesList'
{ _plMerchantId = _Coerce # pPlMerchantId_
, _plIncludeInvalidInsertedItems = Nothing
, _plPageToken = Nothing
, _plMaxResults = Nothing
}
plMerchantId :: Lens' ProductstatusesList Word64
plMerchantId
= lens _plMerchantId (\ s a -> s{_plMerchantId = a})
. _Coerce
plIncludeInvalidInsertedItems :: Lens' ProductstatusesList (Maybe Bool)
plIncludeInvalidInsertedItems
= lens _plIncludeInvalidInsertedItems
(\ s a -> s{_plIncludeInvalidInsertedItems = a})
plPageToken :: Lens' ProductstatusesList (Maybe Text)
plPageToken
= lens _plPageToken (\ s a -> s{_plPageToken = a})
plMaxResults :: Lens' ProductstatusesList (Maybe Word32)
plMaxResults
= lens _plMaxResults (\ s a -> s{_plMaxResults = a})
. mapping _Coerce
instance GoogleRequest ProductstatusesList where
type Rs ProductstatusesList =
ProductstatusesListResponse
type Scopes ProductstatusesList =
'["https://www.googleapis.com/auth/content"]
requestClient ProductstatusesList'{..}
= go _plMerchantId _plIncludeInvalidInsertedItems
_plPageToken
_plMaxResults
(Just AltJSON)
shoppingContentService
where go
= buildClient
(Proxy :: Proxy ProductstatusesListResource)
mempty