module Network.Google.Resource.GAN.Reports.Get
(
ReportsGetResource
, reportsGet
, ReportsGet
, rgStatus
, rgAdvertiserId
, rgEndDate
, rgRoleId
, rgRole
, rgEventType
, rgStartDate
, rgCalculateTotals
, rgLinkId
, rgOrderId
, rgPublisherId
, rgReportType
, rgStartIndex
, rgMaxResults
) where
import Network.Google.Affiliates.Types
import Network.Google.Prelude
type ReportsGetResource =
"gan" :>
"v1beta1" :>
Capture "role" ReportsGetRole :>
Capture "roleId" Text :>
"report" :>
Capture "reportType" ReportsGetReportType :>
QueryParam "status" ReportsGetStatus :>
QueryParams "advertiserId" Text :>
QueryParam "endDate" Text :>
QueryParam "eventType" ReportsGetEventType :>
QueryParam "startDate" Text :>
QueryParam "calculateTotals" Bool :>
QueryParams "linkId" Text :>
QueryParams "orderId" Text :>
QueryParams "publisherId" Text :>
QueryParam "startIndex" (Textual Word32) :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] Report
data ReportsGet = ReportsGet'
{ _rgStatus :: !(Maybe ReportsGetStatus)
, _rgAdvertiserId :: !(Maybe [Text])
, _rgEndDate :: !(Maybe Text)
, _rgRoleId :: !Text
, _rgRole :: !ReportsGetRole
, _rgEventType :: !(Maybe ReportsGetEventType)
, _rgStartDate :: !(Maybe Text)
, _rgCalculateTotals :: !(Maybe Bool)
, _rgLinkId :: !(Maybe [Text])
, _rgOrderId :: !(Maybe [Text])
, _rgPublisherId :: !(Maybe [Text])
, _rgReportType :: !ReportsGetReportType
, _rgStartIndex :: !(Maybe (Textual Word32))
, _rgMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
reportsGet
:: Text
-> ReportsGetRole
-> ReportsGetReportType
-> ReportsGet
reportsGet pRgRoleId_ pRgRole_ pRgReportType_ =
ReportsGet'
{ _rgStatus = Nothing
, _rgAdvertiserId = Nothing
, _rgEndDate = Nothing
, _rgRoleId = pRgRoleId_
, _rgRole = pRgRole_
, _rgEventType = Nothing
, _rgStartDate = Nothing
, _rgCalculateTotals = Nothing
, _rgLinkId = Nothing
, _rgOrderId = Nothing
, _rgPublisherId = Nothing
, _rgReportType = pRgReportType_
, _rgStartIndex = Nothing
, _rgMaxResults = Nothing
}
rgStatus :: Lens' ReportsGet (Maybe ReportsGetStatus)
rgStatus = lens _rgStatus (\ s a -> s{_rgStatus = a})
rgAdvertiserId :: Lens' ReportsGet [Text]
rgAdvertiserId
= lens _rgAdvertiserId
(\ s a -> s{_rgAdvertiserId = a})
. _Default
. _Coerce
rgEndDate :: Lens' ReportsGet (Maybe Text)
rgEndDate
= lens _rgEndDate (\ s a -> s{_rgEndDate = a})
rgRoleId :: Lens' ReportsGet Text
rgRoleId = lens _rgRoleId (\ s a -> s{_rgRoleId = a})
rgRole :: Lens' ReportsGet ReportsGetRole
rgRole = lens _rgRole (\ s a -> s{_rgRole = a})
rgEventType :: Lens' ReportsGet (Maybe ReportsGetEventType)
rgEventType
= lens _rgEventType (\ s a -> s{_rgEventType = a})
rgStartDate :: Lens' ReportsGet (Maybe Text)
rgStartDate
= lens _rgStartDate (\ s a -> s{_rgStartDate = a})
rgCalculateTotals :: Lens' ReportsGet (Maybe Bool)
rgCalculateTotals
= lens _rgCalculateTotals
(\ s a -> s{_rgCalculateTotals = a})
rgLinkId :: Lens' ReportsGet [Text]
rgLinkId
= lens _rgLinkId (\ s a -> s{_rgLinkId = a}) .
_Default
. _Coerce
rgOrderId :: Lens' ReportsGet [Text]
rgOrderId
= lens _rgOrderId (\ s a -> s{_rgOrderId = a}) .
_Default
. _Coerce
rgPublisherId :: Lens' ReportsGet [Text]
rgPublisherId
= lens _rgPublisherId
(\ s a -> s{_rgPublisherId = a})
. _Default
. _Coerce
rgReportType :: Lens' ReportsGet ReportsGetReportType
rgReportType
= lens _rgReportType (\ s a -> s{_rgReportType = a})
rgStartIndex :: Lens' ReportsGet (Maybe Word32)
rgStartIndex
= lens _rgStartIndex (\ s a -> s{_rgStartIndex = a})
. mapping _Coerce
rgMaxResults :: Lens' ReportsGet (Maybe Word32)
rgMaxResults
= lens _rgMaxResults (\ s a -> s{_rgMaxResults = a})
. mapping _Coerce
instance GoogleRequest ReportsGet where
type Rs ReportsGet = Report
type Scopes ReportsGet = '[]
requestClient ReportsGet'{..}
= go _rgRole _rgRoleId _rgReportType _rgStatus
(_rgAdvertiserId ^. _Default)
_rgEndDate
_rgEventType
_rgStartDate
_rgCalculateTotals
(_rgLinkId ^. _Default)
(_rgOrderId ^. _Default)
(_rgPublisherId ^. _Default)
_rgStartIndex
_rgMaxResults
(Just AltJSON)
affiliatesService
where go
= buildClient (Proxy :: Proxy ReportsGetResource)
mempty