module Network.Google.Resource.Genomics.CallSets.Delete
(
CallSetsDeleteResource
, callSetsDelete
, CallSetsDelete
, csdXgafv
, csdUploadProtocol
, csdPp
, csdAccessToken
, csdUploadType
, csdBearerToken
, csdCallSetId
, csdCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type CallSetsDeleteResource =
"v1" :>
"callsets" :>
Capture "callSetId" 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 CallSetsDelete = CallSetsDelete
{ _csdXgafv :: !(Maybe Text)
, _csdUploadProtocol :: !(Maybe Text)
, _csdPp :: !Bool
, _csdAccessToken :: !(Maybe Text)
, _csdUploadType :: !(Maybe Text)
, _csdBearerToken :: !(Maybe Text)
, _csdCallSetId :: !Text
, _csdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
callSetsDelete
:: Text
-> CallSetsDelete
callSetsDelete pCsdCallSetId_ =
CallSetsDelete
{ _csdXgafv = Nothing
, _csdUploadProtocol = Nothing
, _csdPp = True
, _csdAccessToken = Nothing
, _csdUploadType = Nothing
, _csdBearerToken = Nothing
, _csdCallSetId = pCsdCallSetId_
, _csdCallback = Nothing
}
csdXgafv :: Lens' CallSetsDelete (Maybe Text)
csdXgafv = lens _csdXgafv (\ s a -> s{_csdXgafv = a})
csdUploadProtocol :: Lens' CallSetsDelete (Maybe Text)
csdUploadProtocol
= lens _csdUploadProtocol
(\ s a -> s{_csdUploadProtocol = a})
csdPp :: Lens' CallSetsDelete Bool
csdPp = lens _csdPp (\ s a -> s{_csdPp = a})
csdAccessToken :: Lens' CallSetsDelete (Maybe Text)
csdAccessToken
= lens _csdAccessToken
(\ s a -> s{_csdAccessToken = a})
csdUploadType :: Lens' CallSetsDelete (Maybe Text)
csdUploadType
= lens _csdUploadType
(\ s a -> s{_csdUploadType = a})
csdBearerToken :: Lens' CallSetsDelete (Maybe Text)
csdBearerToken
= lens _csdBearerToken
(\ s a -> s{_csdBearerToken = a})
csdCallSetId :: Lens' CallSetsDelete Text
csdCallSetId
= lens _csdCallSetId (\ s a -> s{_csdCallSetId = a})
csdCallback :: Lens' CallSetsDelete (Maybe Text)
csdCallback
= lens _csdCallback (\ s a -> s{_csdCallback = a})
instance GoogleRequest CallSetsDelete where
type Rs CallSetsDelete = Empty
requestClient CallSetsDelete{..}
= go _csdCallSetId _csdXgafv _csdUploadProtocol
(Just _csdPp)
_csdAccessToken
_csdUploadType
_csdBearerToken
_csdCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy CallSetsDeleteResource)
mempty