module Network.Google.Resource.Genomics.Operations.Cancel
(
OperationsCancelResource
, operationsCancel
, OperationsCancel
, ocXgafv
, ocUploadProtocol
, ocPp
, ocAccessToken
, ocUploadType
, ocPayload
, ocBearerToken
, ocName
, ocCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type OperationsCancelResource =
"v1" :>
CaptureMode "name" "cancel" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] CancelOperationRequest :>
Post '[JSON] Empty
data OperationsCancel = OperationsCancel'
{ _ocXgafv :: !(Maybe Xgafv)
, _ocUploadProtocol :: !(Maybe Text)
, _ocPp :: !Bool
, _ocAccessToken :: !(Maybe Text)
, _ocUploadType :: !(Maybe Text)
, _ocPayload :: !CancelOperationRequest
, _ocBearerToken :: !(Maybe Text)
, _ocName :: !Text
, _ocCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationsCancel
:: CancelOperationRequest
-> Text
-> OperationsCancel
operationsCancel pOcPayload_ pOcName_ =
OperationsCancel'
{ _ocXgafv = Nothing
, _ocUploadProtocol = Nothing
, _ocPp = True
, _ocAccessToken = Nothing
, _ocUploadType = Nothing
, _ocPayload = pOcPayload_
, _ocBearerToken = Nothing
, _ocName = pOcName_
, _ocCallback = Nothing
}
ocXgafv :: Lens' OperationsCancel (Maybe Xgafv)
ocXgafv = lens _ocXgafv (\ s a -> s{_ocXgafv = a})
ocUploadProtocol :: Lens' OperationsCancel (Maybe Text)
ocUploadProtocol
= lens _ocUploadProtocol
(\ s a -> s{_ocUploadProtocol = a})
ocPp :: Lens' OperationsCancel Bool
ocPp = lens _ocPp (\ s a -> s{_ocPp = a})
ocAccessToken :: Lens' OperationsCancel (Maybe Text)
ocAccessToken
= lens _ocAccessToken
(\ s a -> s{_ocAccessToken = a})
ocUploadType :: Lens' OperationsCancel (Maybe Text)
ocUploadType
= lens _ocUploadType (\ s a -> s{_ocUploadType = a})
ocPayload :: Lens' OperationsCancel CancelOperationRequest
ocPayload
= lens _ocPayload (\ s a -> s{_ocPayload = a})
ocBearerToken :: Lens' OperationsCancel (Maybe Text)
ocBearerToken
= lens _ocBearerToken
(\ s a -> s{_ocBearerToken = a})
ocName :: Lens' OperationsCancel Text
ocName = lens _ocName (\ s a -> s{_ocName = a})
ocCallback :: Lens' OperationsCancel (Maybe Text)
ocCallback
= lens _ocCallback (\ s a -> s{_ocCallback = a})
instance GoogleRequest OperationsCancel where
type Rs OperationsCancel = Empty
type Scopes OperationsCancel =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient OperationsCancel'{..}
= go _ocName _ocXgafv _ocUploadProtocol (Just _ocPp)
_ocAccessToken
_ocUploadType
_ocBearerToken
_ocCallback
(Just AltJSON)
_ocPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy OperationsCancelResource)
mempty