module Network.Google.Resource.YouTubeReporting.ReportTypes.List
(
ReportTypesListResource
, reportTypesList
, ReportTypesList
, rtlXgafv
, rtlUploadProtocol
, rtlPp
, rtlAccessToken
, rtlUploadType
, rtlIncludeSystemManaged
, rtlOnBehalfOfContentOwner
, rtlBearerToken
, rtlPageToken
, rtlPageSize
, rtlCallback
) where
import Network.Google.Prelude
import Network.Google.YouTubeReporting.Types
type ReportTypesListResource =
"v1" :>
"reportTypes" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "includeSystemManaged" Bool :>
QueryParam "onBehalfOfContentOwner" Text :>
QueryParam "bearer_token" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListReportTypesResponse
data ReportTypesList = ReportTypesList'
{ _rtlXgafv :: !(Maybe Text)
, _rtlUploadProtocol :: !(Maybe Text)
, _rtlPp :: !Bool
, _rtlAccessToken :: !(Maybe Text)
, _rtlUploadType :: !(Maybe Text)
, _rtlIncludeSystemManaged :: !(Maybe Bool)
, _rtlOnBehalfOfContentOwner :: !(Maybe Text)
, _rtlBearerToken :: !(Maybe Text)
, _rtlPageToken :: !(Maybe Text)
, _rtlPageSize :: !(Maybe (Textual Int32))
, _rtlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
reportTypesList
:: ReportTypesList
reportTypesList =
ReportTypesList'
{ _rtlXgafv = Nothing
, _rtlUploadProtocol = Nothing
, _rtlPp = True
, _rtlAccessToken = Nothing
, _rtlUploadType = Nothing
, _rtlIncludeSystemManaged = Nothing
, _rtlOnBehalfOfContentOwner = Nothing
, _rtlBearerToken = Nothing
, _rtlPageToken = Nothing
, _rtlPageSize = Nothing
, _rtlCallback = Nothing
}
rtlXgafv :: Lens' ReportTypesList (Maybe Text)
rtlXgafv = lens _rtlXgafv (\ s a -> s{_rtlXgafv = a})
rtlUploadProtocol :: Lens' ReportTypesList (Maybe Text)
rtlUploadProtocol
= lens _rtlUploadProtocol
(\ s a -> s{_rtlUploadProtocol = a})
rtlPp :: Lens' ReportTypesList Bool
rtlPp = lens _rtlPp (\ s a -> s{_rtlPp = a})
rtlAccessToken :: Lens' ReportTypesList (Maybe Text)
rtlAccessToken
= lens _rtlAccessToken
(\ s a -> s{_rtlAccessToken = a})
rtlUploadType :: Lens' ReportTypesList (Maybe Text)
rtlUploadType
= lens _rtlUploadType
(\ s a -> s{_rtlUploadType = a})
rtlIncludeSystemManaged :: Lens' ReportTypesList (Maybe Bool)
rtlIncludeSystemManaged
= lens _rtlIncludeSystemManaged
(\ s a -> s{_rtlIncludeSystemManaged = a})
rtlOnBehalfOfContentOwner :: Lens' ReportTypesList (Maybe Text)
rtlOnBehalfOfContentOwner
= lens _rtlOnBehalfOfContentOwner
(\ s a -> s{_rtlOnBehalfOfContentOwner = a})
rtlBearerToken :: Lens' ReportTypesList (Maybe Text)
rtlBearerToken
= lens _rtlBearerToken
(\ s a -> s{_rtlBearerToken = a})
rtlPageToken :: Lens' ReportTypesList (Maybe Text)
rtlPageToken
= lens _rtlPageToken (\ s a -> s{_rtlPageToken = a})
rtlPageSize :: Lens' ReportTypesList (Maybe Int32)
rtlPageSize
= lens _rtlPageSize (\ s a -> s{_rtlPageSize = a}) .
mapping _Coerce
rtlCallback :: Lens' ReportTypesList (Maybe Text)
rtlCallback
= lens _rtlCallback (\ s a -> s{_rtlCallback = a})
instance GoogleRequest ReportTypesList where
type Rs ReportTypesList = ListReportTypesResponse
type Scopes ReportTypesList =
'["https://www.googleapis.com/auth/yt-analytics-monetary.readonly",
"https://www.googleapis.com/auth/yt-analytics.readonly"]
requestClient ReportTypesList'{..}
= go _rtlXgafv _rtlUploadProtocol (Just _rtlPp)
_rtlAccessToken
_rtlUploadType
_rtlIncludeSystemManaged
_rtlOnBehalfOfContentOwner
_rtlBearerToken
_rtlPageToken
_rtlPageSize
_rtlCallback
(Just AltJSON)
youTubeReportingService
where go
= buildClient
(Proxy :: Proxy ReportTypesListResource)
mempty