module Network.Google.Resource.Genomics.DataSets.Delete
(
DataSetsDeleteResource
, dataSetsDelete
, DataSetsDelete
, dsdXgafv
, dsdUploadProtocol
, dsdPp
, dsdAccessToken
, dsdUploadType
, dsdBearerToken
, dsdDataSetId
, dsdCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsDeleteResource =
"v1" :>
"datasets" :>
Capture "datasetId" 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 DataSetsDelete = DataSetsDelete'
{ _dsdXgafv :: !(Maybe Xgafv)
, _dsdUploadProtocol :: !(Maybe Text)
, _dsdPp :: !Bool
, _dsdAccessToken :: !(Maybe Text)
, _dsdUploadType :: !(Maybe Text)
, _dsdBearerToken :: !(Maybe Text)
, _dsdDataSetId :: !Text
, _dsdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsDelete
:: Text
-> DataSetsDelete
dataSetsDelete pDsdDataSetId_ =
DataSetsDelete'
{ _dsdXgafv = Nothing
, _dsdUploadProtocol = Nothing
, _dsdPp = True
, _dsdAccessToken = Nothing
, _dsdUploadType = Nothing
, _dsdBearerToken = Nothing
, _dsdDataSetId = pDsdDataSetId_
, _dsdCallback = Nothing
}
dsdXgafv :: Lens' DataSetsDelete (Maybe Xgafv)
dsdXgafv = lens _dsdXgafv (\ s a -> s{_dsdXgafv = a})
dsdUploadProtocol :: Lens' DataSetsDelete (Maybe Text)
dsdUploadProtocol
= lens _dsdUploadProtocol
(\ s a -> s{_dsdUploadProtocol = a})
dsdPp :: Lens' DataSetsDelete Bool
dsdPp = lens _dsdPp (\ s a -> s{_dsdPp = a})
dsdAccessToken :: Lens' DataSetsDelete (Maybe Text)
dsdAccessToken
= lens _dsdAccessToken
(\ s a -> s{_dsdAccessToken = a})
dsdUploadType :: Lens' DataSetsDelete (Maybe Text)
dsdUploadType
= lens _dsdUploadType
(\ s a -> s{_dsdUploadType = a})
dsdBearerToken :: Lens' DataSetsDelete (Maybe Text)
dsdBearerToken
= lens _dsdBearerToken
(\ s a -> s{_dsdBearerToken = a})
dsdDataSetId :: Lens' DataSetsDelete Text
dsdDataSetId
= lens _dsdDataSetId (\ s a -> s{_dsdDataSetId = a})
dsdCallback :: Lens' DataSetsDelete (Maybe Text)
dsdCallback
= lens _dsdCallback (\ s a -> s{_dsdCallback = a})
instance GoogleRequest DataSetsDelete where
type Rs DataSetsDelete = Empty
type Scopes DataSetsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient DataSetsDelete'{..}
= go _dsdDataSetId _dsdXgafv _dsdUploadProtocol
(Just _dsdPp)
_dsdAccessToken
_dsdUploadType
_dsdBearerToken
_dsdCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy DataSetsDeleteResource)
mempty