module Network.Google.Resource.DFAReporting.Orders.List
(
OrdersListResource
, ordersList
, OrdersList
, olSearchString
, olIds
, olProFileId
, olSortOrder
, olPageToken
, olProjectId
, olSortField
, olSiteId
, olMaxResults
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type OrdersListResource =
"dfareporting" :>
"v2.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"projects" :>
Capture "projectId" (Textual Int64) :>
"orders" :>
QueryParam "searchString" Text :>
QueryParams "ids" (Textual Int64) :>
QueryParam "sortOrder" OrdersListSortOrder :>
QueryParam "pageToken" Text :>
QueryParam "sortField" OrdersListSortField :>
QueryParams "siteId" (Textual Int64) :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] OrdersListResponse
data OrdersList = OrdersList
{ _olSearchString :: !(Maybe Text)
, _olIds :: !(Maybe [Textual Int64])
, _olProFileId :: !(Textual Int64)
, _olSortOrder :: !(Maybe OrdersListSortOrder)
, _olPageToken :: !(Maybe Text)
, _olProjectId :: !(Textual Int64)
, _olSortField :: !(Maybe OrdersListSortField)
, _olSiteId :: !(Maybe [Textual Int64])
, _olMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
ordersList
:: Int64
-> Int64
-> OrdersList
ordersList pOlProFileId_ pOlProjectId_ =
OrdersList
{ _olSearchString = Nothing
, _olIds = Nothing
, _olProFileId = _Coerce # pOlProFileId_
, _olSortOrder = Nothing
, _olPageToken = Nothing
, _olProjectId = _Coerce # pOlProjectId_
, _olSortField = Nothing
, _olSiteId = Nothing
, _olMaxResults = Nothing
}
olSearchString :: Lens' OrdersList (Maybe Text)
olSearchString
= lens _olSearchString
(\ s a -> s{_olSearchString = a})
olIds :: Lens' OrdersList [Int64]
olIds
= lens _olIds (\ s a -> s{_olIds = a}) . _Default .
_Coerce
olProFileId :: Lens' OrdersList Int64
olProFileId
= lens _olProFileId (\ s a -> s{_olProFileId = a}) .
_Coerce
olSortOrder :: Lens' OrdersList (Maybe OrdersListSortOrder)
olSortOrder
= lens _olSortOrder (\ s a -> s{_olSortOrder = a})
olPageToken :: Lens' OrdersList (Maybe Text)
olPageToken
= lens _olPageToken (\ s a -> s{_olPageToken = a})
olProjectId :: Lens' OrdersList Int64
olProjectId
= lens _olProjectId (\ s a -> s{_olProjectId = a}) .
_Coerce
olSortField :: Lens' OrdersList (Maybe OrdersListSortField)
olSortField
= lens _olSortField (\ s a -> s{_olSortField = a})
olSiteId :: Lens' OrdersList [Int64]
olSiteId
= lens _olSiteId (\ s a -> s{_olSiteId = a}) .
_Default
. _Coerce
olMaxResults :: Lens' OrdersList (Maybe Int32)
olMaxResults
= lens _olMaxResults (\ s a -> s{_olMaxResults = a})
. mapping _Coerce
instance GoogleRequest OrdersList where
type Rs OrdersList = OrdersListResponse
requestClient OrdersList{..}
= go _olProFileId _olProjectId _olSearchString
(_olIds ^. _Default)
_olSortOrder
_olPageToken
_olSortField
(_olSiteId ^. _Default)
_olMaxResults
(Just AltJSON)
dFAReportingService
where go
= buildClient (Proxy :: Proxy OrdersListResource)
mempty