module Network.Google.Resource.YouTubeReporting.Jobs.Delete
(
JobsDeleteResource
, jobsDelete
, JobsDelete
, jdXgafv
, jdJobId
, jdUploadProtocol
, jdPp
, jdAccessToken
, jdUploadType
, jdOnBehalfOfContentOwner
, jdBearerToken
, jdCallback
) where
import Network.Google.Prelude
import Network.Google.YouTubeReporting.Types
type JobsDeleteResource =
"v1" :>
"jobs" :>
Capture "jobId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "onBehalfOfContentOwner" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data JobsDelete = JobsDelete'
{ _jdXgafv :: !(Maybe Text)
, _jdJobId :: !Text
, _jdUploadProtocol :: !(Maybe Text)
, _jdPp :: !Bool
, _jdAccessToken :: !(Maybe Text)
, _jdUploadType :: !(Maybe Text)
, _jdOnBehalfOfContentOwner :: !(Maybe Text)
, _jdBearerToken :: !(Maybe Text)
, _jdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
jobsDelete
:: Text
-> JobsDelete
jobsDelete pJdJobId_ =
JobsDelete'
{ _jdXgafv = Nothing
, _jdJobId = pJdJobId_
, _jdUploadProtocol = Nothing
, _jdPp = True
, _jdAccessToken = Nothing
, _jdUploadType = Nothing
, _jdOnBehalfOfContentOwner = Nothing
, _jdBearerToken = Nothing
, _jdCallback = Nothing
}
jdXgafv :: Lens' JobsDelete (Maybe Text)
jdXgafv = lens _jdXgafv (\ s a -> s{_jdXgafv = a})
jdJobId :: Lens' JobsDelete Text
jdJobId = lens _jdJobId (\ s a -> s{_jdJobId = a})
jdUploadProtocol :: Lens' JobsDelete (Maybe Text)
jdUploadProtocol
= lens _jdUploadProtocol
(\ s a -> s{_jdUploadProtocol = a})
jdPp :: Lens' JobsDelete Bool
jdPp = lens _jdPp (\ s a -> s{_jdPp = a})
jdAccessToken :: Lens' JobsDelete (Maybe Text)
jdAccessToken
= lens _jdAccessToken
(\ s a -> s{_jdAccessToken = a})
jdUploadType :: Lens' JobsDelete (Maybe Text)
jdUploadType
= lens _jdUploadType (\ s a -> s{_jdUploadType = a})
jdOnBehalfOfContentOwner :: Lens' JobsDelete (Maybe Text)
jdOnBehalfOfContentOwner
= lens _jdOnBehalfOfContentOwner
(\ s a -> s{_jdOnBehalfOfContentOwner = a})
jdBearerToken :: Lens' JobsDelete (Maybe Text)
jdBearerToken
= lens _jdBearerToken
(\ s a -> s{_jdBearerToken = a})
jdCallback :: Lens' JobsDelete (Maybe Text)
jdCallback
= lens _jdCallback (\ s a -> s{_jdCallback = a})
instance GoogleRequest JobsDelete where
type Rs JobsDelete = Empty
type Scopes JobsDelete =
'["https://www.googleapis.com/auth/yt-analytics-monetary.readonly",
"https://www.googleapis.com/auth/yt-analytics.readonly"]
requestClient JobsDelete'{..}
= go _jdJobId _jdXgafv _jdUploadProtocol (Just _jdPp)
_jdAccessToken
_jdUploadType
_jdOnBehalfOfContentOwner
_jdBearerToken
_jdCallback
(Just AltJSON)
youTubeReportingService
where go
= buildClient (Proxy :: Proxy JobsDeleteResource)
mempty