module Network.Google.Resource.Genomics.Variants.Delete
(
VariantsDeleteResource
, variantsDelete
, VariantsDelete
, vdXgafv
, vdUploadProtocol
, vdPp
, vdAccessToken
, vdUploadType
, vdBearerToken
, vdVariantId
, vdCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantsDeleteResource =
"v1" :>
"variants" :>
Capture "variantId" 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 VariantsDelete = VariantsDelete
{ _vdXgafv :: !(Maybe Text)
, _vdUploadProtocol :: !(Maybe Text)
, _vdPp :: !Bool
, _vdAccessToken :: !(Maybe Text)
, _vdUploadType :: !(Maybe Text)
, _vdBearerToken :: !(Maybe Text)
, _vdVariantId :: !Text
, _vdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantsDelete
:: Text
-> VariantsDelete
variantsDelete pVdVariantId_ =
VariantsDelete
{ _vdXgafv = Nothing
, _vdUploadProtocol = Nothing
, _vdPp = True
, _vdAccessToken = Nothing
, _vdUploadType = Nothing
, _vdBearerToken = Nothing
, _vdVariantId = pVdVariantId_
, _vdCallback = Nothing
}
vdXgafv :: Lens' VariantsDelete (Maybe Text)
vdXgafv = lens _vdXgafv (\ s a -> s{_vdXgafv = a})
vdUploadProtocol :: Lens' VariantsDelete (Maybe Text)
vdUploadProtocol
= lens _vdUploadProtocol
(\ s a -> s{_vdUploadProtocol = a})
vdPp :: Lens' VariantsDelete Bool
vdPp = lens _vdPp (\ s a -> s{_vdPp = a})
vdAccessToken :: Lens' VariantsDelete (Maybe Text)
vdAccessToken
= lens _vdAccessToken
(\ s a -> s{_vdAccessToken = a})
vdUploadType :: Lens' VariantsDelete (Maybe Text)
vdUploadType
= lens _vdUploadType (\ s a -> s{_vdUploadType = a})
vdBearerToken :: Lens' VariantsDelete (Maybe Text)
vdBearerToken
= lens _vdBearerToken
(\ s a -> s{_vdBearerToken = a})
vdVariantId :: Lens' VariantsDelete Text
vdVariantId
= lens _vdVariantId (\ s a -> s{_vdVariantId = a})
vdCallback :: Lens' VariantsDelete (Maybe Text)
vdCallback
= lens _vdCallback (\ s a -> s{_vdCallback = a})
instance GoogleRequest VariantsDelete where
type Rs VariantsDelete = Empty
requestClient VariantsDelete{..}
= go _vdVariantId _vdXgafv _vdUploadProtocol
(Just _vdPp)
_vdAccessToken
_vdUploadType
_vdBearerToken
_vdCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy VariantsDeleteResource)
mempty