module Network.Google.Resource.Genomics.VariantSets.Delete
(
VariantSetsDeleteResource
, variantSetsDelete
, VariantSetsDelete
, vsdXgafv
, vsdUploadProtocol
, vsdPp
, vsdVariantSetId
, vsdAccessToken
, vsdUploadType
, vsdBearerToken
, vsdCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantSetsDeleteResource =
"v1" :>
"variantsets" :>
Capture "variantSetId" 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 VariantSetsDelete = VariantSetsDelete
{ _vsdXgafv :: !(Maybe Text)
, _vsdUploadProtocol :: !(Maybe Text)
, _vsdPp :: !Bool
, _vsdVariantSetId :: !Text
, _vsdAccessToken :: !(Maybe Text)
, _vsdUploadType :: !(Maybe Text)
, _vsdBearerToken :: !(Maybe Text)
, _vsdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetsDelete
:: Text
-> VariantSetsDelete
variantSetsDelete pVsdVariantSetId_ =
VariantSetsDelete
{ _vsdXgafv = Nothing
, _vsdUploadProtocol = Nothing
, _vsdPp = True
, _vsdVariantSetId = pVsdVariantSetId_
, _vsdAccessToken = Nothing
, _vsdUploadType = Nothing
, _vsdBearerToken = Nothing
, _vsdCallback = Nothing
}
vsdXgafv :: Lens' VariantSetsDelete (Maybe Text)
vsdXgafv = lens _vsdXgafv (\ s a -> s{_vsdXgafv = a})
vsdUploadProtocol :: Lens' VariantSetsDelete (Maybe Text)
vsdUploadProtocol
= lens _vsdUploadProtocol
(\ s a -> s{_vsdUploadProtocol = a})
vsdPp :: Lens' VariantSetsDelete Bool
vsdPp = lens _vsdPp (\ s a -> s{_vsdPp = a})
vsdVariantSetId :: Lens' VariantSetsDelete Text
vsdVariantSetId
= lens _vsdVariantSetId
(\ s a -> s{_vsdVariantSetId = a})
vsdAccessToken :: Lens' VariantSetsDelete (Maybe Text)
vsdAccessToken
= lens _vsdAccessToken
(\ s a -> s{_vsdAccessToken = a})
vsdUploadType :: Lens' VariantSetsDelete (Maybe Text)
vsdUploadType
= lens _vsdUploadType
(\ s a -> s{_vsdUploadType = a})
vsdBearerToken :: Lens' VariantSetsDelete (Maybe Text)
vsdBearerToken
= lens _vsdBearerToken
(\ s a -> s{_vsdBearerToken = a})
vsdCallback :: Lens' VariantSetsDelete (Maybe Text)
vsdCallback
= lens _vsdCallback (\ s a -> s{_vsdCallback = a})
instance GoogleRequest VariantSetsDelete where
type Rs VariantSetsDelete = Empty
requestClient VariantSetsDelete{..}
= go _vsdVariantSetId _vsdXgafv _vsdUploadProtocol
(Just _vsdPp)
_vsdAccessToken
_vsdUploadType
_vsdBearerToken
_vsdCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy VariantSetsDeleteResource)
mempty