module Network.Google.Resource.Genomics.Annotations.Delete
(
AnnotationsDeleteResource
, annotationsDelete
, AnnotationsDelete
, adXgafv
, adUploadProtocol
, adPp
, adAccessToken
, adUploadType
, adBearerToken
, adAnnotationId
, adCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationsDeleteResource =
"v1" :>
"annotations" :>
Capture "annotationId" 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 :> Delete '[JSON] Empty
data AnnotationsDelete = AnnotationsDelete'
{ _adXgafv :: !(Maybe Xgafv)
, _adUploadProtocol :: !(Maybe Text)
, _adPp :: !Bool
, _adAccessToken :: !(Maybe Text)
, _adUploadType :: !(Maybe Text)
, _adBearerToken :: !(Maybe Text)
, _adAnnotationId :: !Text
, _adCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationsDelete
:: Text
-> AnnotationsDelete
annotationsDelete pAdAnnotationId_ =
AnnotationsDelete'
{ _adXgafv = Nothing
, _adUploadProtocol = Nothing
, _adPp = True
, _adAccessToken = Nothing
, _adUploadType = Nothing
, _adBearerToken = Nothing
, _adAnnotationId = pAdAnnotationId_
, _adCallback = Nothing
}
adXgafv :: Lens' AnnotationsDelete (Maybe Xgafv)
adXgafv = lens _adXgafv (\ s a -> s{_adXgafv = a})
adUploadProtocol :: Lens' AnnotationsDelete (Maybe Text)
adUploadProtocol
= lens _adUploadProtocol
(\ s a -> s{_adUploadProtocol = a})
adPp :: Lens' AnnotationsDelete Bool
adPp = lens _adPp (\ s a -> s{_adPp = a})
adAccessToken :: Lens' AnnotationsDelete (Maybe Text)
adAccessToken
= lens _adAccessToken
(\ s a -> s{_adAccessToken = a})
adUploadType :: Lens' AnnotationsDelete (Maybe Text)
adUploadType
= lens _adUploadType (\ s a -> s{_adUploadType = a})
adBearerToken :: Lens' AnnotationsDelete (Maybe Text)
adBearerToken
= lens _adBearerToken
(\ s a -> s{_adBearerToken = a})
adAnnotationId :: Lens' AnnotationsDelete Text
adAnnotationId
= lens _adAnnotationId
(\ s a -> s{_adAnnotationId = a})
adCallback :: Lens' AnnotationsDelete (Maybe Text)
adCallback
= lens _adCallback (\ s a -> s{_adCallback = a})
instance GoogleRequest AnnotationsDelete where
type Rs AnnotationsDelete = Empty
type Scopes AnnotationsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient AnnotationsDelete'{..}
= go _adAnnotationId _adXgafv _adUploadProtocol
(Just _adPp)
_adAccessToken
_adUploadType
_adBearerToken
_adCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationsDeleteResource)
mempty