module Network.Google.Resource.Genomics.AnnotationSets.Delete
(
AnnotationSetsDeleteResource
, annotationSetsDelete
, AnnotationSetsDelete
, asdXgafv
, asdUploadProtocol
, asdAnnotationSetId
, asdPp
, asdAccessToken
, asdUploadType
, asdBearerToken
, asdCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationSetsDeleteResource =
"v1" :>
"annotationsets" :>
Capture "annotationSetId" 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 :> Delete '[JSON] Empty
data AnnotationSetsDelete = AnnotationSetsDelete'
{ _asdXgafv :: !(Maybe Text)
, _asdUploadProtocol :: !(Maybe Text)
, _asdAnnotationSetId :: !Text
, _asdPp :: !Bool
, _asdAccessToken :: !(Maybe Text)
, _asdUploadType :: !(Maybe Text)
, _asdBearerToken :: !(Maybe Text)
, _asdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSetsDelete
:: Text
-> AnnotationSetsDelete
annotationSetsDelete pAsdAnnotationSetId_ =
AnnotationSetsDelete'
{ _asdXgafv = Nothing
, _asdUploadProtocol = Nothing
, _asdAnnotationSetId = pAsdAnnotationSetId_
, _asdPp = True
, _asdAccessToken = Nothing
, _asdUploadType = Nothing
, _asdBearerToken = Nothing
, _asdCallback = Nothing
}
asdXgafv :: Lens' AnnotationSetsDelete (Maybe Text)
asdXgafv = lens _asdXgafv (\ s a -> s{_asdXgafv = a})
asdUploadProtocol :: Lens' AnnotationSetsDelete (Maybe Text)
asdUploadProtocol
= lens _asdUploadProtocol
(\ s a -> s{_asdUploadProtocol = a})
asdAnnotationSetId :: Lens' AnnotationSetsDelete Text
asdAnnotationSetId
= lens _asdAnnotationSetId
(\ s a -> s{_asdAnnotationSetId = a})
asdPp :: Lens' AnnotationSetsDelete Bool
asdPp = lens _asdPp (\ s a -> s{_asdPp = a})
asdAccessToken :: Lens' AnnotationSetsDelete (Maybe Text)
asdAccessToken
= lens _asdAccessToken
(\ s a -> s{_asdAccessToken = a})
asdUploadType :: Lens' AnnotationSetsDelete (Maybe Text)
asdUploadType
= lens _asdUploadType
(\ s a -> s{_asdUploadType = a})
asdBearerToken :: Lens' AnnotationSetsDelete (Maybe Text)
asdBearerToken
= lens _asdBearerToken
(\ s a -> s{_asdBearerToken = a})
asdCallback :: Lens' AnnotationSetsDelete (Maybe Text)
asdCallback
= lens _asdCallback (\ s a -> s{_asdCallback = a})
instance GoogleRequest AnnotationSetsDelete where
type Rs AnnotationSetsDelete = Empty
type Scopes AnnotationSetsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient AnnotationSetsDelete'{..}
= go _asdAnnotationSetId _asdXgafv _asdUploadProtocol
(Just _asdPp)
_asdAccessToken
_asdUploadType
_asdBearerToken
_asdCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationSetsDeleteResource)
mempty