{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Content.Productstatuses.List
(
ProductstatusesListResource
, productstatusesList
, ProductstatusesList
, plMerchantId
, plDestinations
, plPageToken
, plMaxResults
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type ProductstatusesListResource =
"content" :>
"v2.1" :>
Capture "merchantId" (Textual Word64) :>
"productstatuses" :>
QueryParams "destinations" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] ProductstatusesListResponse
data ProductstatusesList = ProductstatusesList'
{ _plMerchantId :: !(Textual Word64)
, _plDestinations :: !(Maybe [Text])
, _plPageToken :: !(Maybe Text)
, _plMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesList
:: Word64
-> ProductstatusesList
productstatusesList pPlMerchantId_ =
ProductstatusesList'
{ _plMerchantId = _Coerce # pPlMerchantId_
, _plDestinations = Nothing
, _plPageToken = Nothing
, _plMaxResults = Nothing
}
plMerchantId :: Lens' ProductstatusesList Word64
plMerchantId
= lens _plMerchantId (\ s a -> s{_plMerchantId = a})
. _Coerce
plDestinations :: Lens' ProductstatusesList [Text]
plDestinations
= lens _plDestinations
(\ s a -> s{_plDestinations = a})
. _Default
. _Coerce
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 (_plDestinations ^. _Default)
_plPageToken
_plMaxResults
(Just AltJSON)
shoppingContentService
where go
= buildClient
(Proxy :: Proxy ProductstatusesListResource)
mempty