module Network.Google.Resource.Dataproc.Projects.Regions.Operations.Cancel
(
ProjectsRegionsOperationsCancelResource
, projectsRegionsOperationsCancel
, ProjectsRegionsOperationsCancel
, procXgafv
, procUploadProtocol
, procPp
, procAccessToken
, procUploadType
, procBearerToken
, procName
, procCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsOperationsCancelResource =
"v1" :>
CaptureMode "name" "cancel" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Post '[JSON] Empty
data ProjectsRegionsOperationsCancel = ProjectsRegionsOperationsCancel'
{ _procXgafv :: !(Maybe Text)
, _procUploadProtocol :: !(Maybe Text)
, _procPp :: !Bool
, _procAccessToken :: !(Maybe Text)
, _procUploadType :: !(Maybe Text)
, _procBearerToken :: !(Maybe Text)
, _procName :: !Text
, _procCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRegionsOperationsCancel
:: Text
-> ProjectsRegionsOperationsCancel
projectsRegionsOperationsCancel pProcName_ =
ProjectsRegionsOperationsCancel'
{ _procXgafv = Nothing
, _procUploadProtocol = Nothing
, _procPp = True
, _procAccessToken = Nothing
, _procUploadType = Nothing
, _procBearerToken = Nothing
, _procName = pProcName_
, _procCallback = Nothing
}
procXgafv :: Lens' ProjectsRegionsOperationsCancel (Maybe Text)
procXgafv
= lens _procXgafv (\ s a -> s{_procXgafv = a})
procUploadProtocol :: Lens' ProjectsRegionsOperationsCancel (Maybe Text)
procUploadProtocol
= lens _procUploadProtocol
(\ s a -> s{_procUploadProtocol = a})
procPp :: Lens' ProjectsRegionsOperationsCancel Bool
procPp = lens _procPp (\ s a -> s{_procPp = a})
procAccessToken :: Lens' ProjectsRegionsOperationsCancel (Maybe Text)
procAccessToken
= lens _procAccessToken
(\ s a -> s{_procAccessToken = a})
procUploadType :: Lens' ProjectsRegionsOperationsCancel (Maybe Text)
procUploadType
= lens _procUploadType
(\ s a -> s{_procUploadType = a})
procBearerToken :: Lens' ProjectsRegionsOperationsCancel (Maybe Text)
procBearerToken
= lens _procBearerToken
(\ s a -> s{_procBearerToken = a})
procName :: Lens' ProjectsRegionsOperationsCancel Text
procName = lens _procName (\ s a -> s{_procName = a})
procCallback :: Lens' ProjectsRegionsOperationsCancel (Maybe Text)
procCallback
= lens _procCallback (\ s a -> s{_procCallback = a})
instance GoogleRequest
ProjectsRegionsOperationsCancel where
type Rs ProjectsRegionsOperationsCancel = Empty
type Scopes ProjectsRegionsOperationsCancel =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsRegionsOperationsCancel'{..}
= go _procName _procXgafv _procUploadProtocol
(Just _procPp)
_procAccessToken
_procUploadType
_procBearerToken
_procCallback
(Just AltJSON)
dataprocService
where go
= buildClient
(Proxy ::
Proxy ProjectsRegionsOperationsCancelResource)
mempty