module Network.Google.Resource.Genomics.ReadGroupSets.Delete
(
ReadGroupSetsDeleteResource
, readGroupSetsDelete
, ReadGroupSetsDelete
, rgsdXgafv
, rgsdReadGroupSetId
, rgsdUploadProtocol
, rgsdPp
, rgsdAccessToken
, rgsdUploadType
, rgsdBearerToken
, rgsdCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReadGroupSetsDeleteResource =
"v1" :>
"readgroupsets" :>
Capture "readGroupSetId" 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 ReadGroupSetsDelete = ReadGroupSetsDelete
{ _rgsdXgafv :: !(Maybe Text)
, _rgsdReadGroupSetId :: !Text
, _rgsdUploadProtocol :: !(Maybe Text)
, _rgsdPp :: !Bool
, _rgsdAccessToken :: !(Maybe Text)
, _rgsdUploadType :: !(Maybe Text)
, _rgsdBearerToken :: !(Maybe Text)
, _rgsdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSetsDelete
:: Text
-> ReadGroupSetsDelete
readGroupSetsDelete pRgsdReadGroupSetId_ =
ReadGroupSetsDelete
{ _rgsdXgafv = Nothing
, _rgsdReadGroupSetId = pRgsdReadGroupSetId_
, _rgsdUploadProtocol = Nothing
, _rgsdPp = True
, _rgsdAccessToken = Nothing
, _rgsdUploadType = Nothing
, _rgsdBearerToken = Nothing
, _rgsdCallback = Nothing
}
rgsdXgafv :: Lens' ReadGroupSetsDelete (Maybe Text)
rgsdXgafv
= lens _rgsdXgafv (\ s a -> s{_rgsdXgafv = a})
rgsdReadGroupSetId :: Lens' ReadGroupSetsDelete Text
rgsdReadGroupSetId
= lens _rgsdReadGroupSetId
(\ s a -> s{_rgsdReadGroupSetId = a})
rgsdUploadProtocol :: Lens' ReadGroupSetsDelete (Maybe Text)
rgsdUploadProtocol
= lens _rgsdUploadProtocol
(\ s a -> s{_rgsdUploadProtocol = a})
rgsdPp :: Lens' ReadGroupSetsDelete Bool
rgsdPp = lens _rgsdPp (\ s a -> s{_rgsdPp = a})
rgsdAccessToken :: Lens' ReadGroupSetsDelete (Maybe Text)
rgsdAccessToken
= lens _rgsdAccessToken
(\ s a -> s{_rgsdAccessToken = a})
rgsdUploadType :: Lens' ReadGroupSetsDelete (Maybe Text)
rgsdUploadType
= lens _rgsdUploadType
(\ s a -> s{_rgsdUploadType = a})
rgsdBearerToken :: Lens' ReadGroupSetsDelete (Maybe Text)
rgsdBearerToken
= lens _rgsdBearerToken
(\ s a -> s{_rgsdBearerToken = a})
rgsdCallback :: Lens' ReadGroupSetsDelete (Maybe Text)
rgsdCallback
= lens _rgsdCallback (\ s a -> s{_rgsdCallback = a})
instance GoogleRequest ReadGroupSetsDelete where
type Rs ReadGroupSetsDelete = Empty
requestClient ReadGroupSetsDelete{..}
= go _rgsdReadGroupSetId _rgsdXgafv
_rgsdUploadProtocol
(Just _rgsdPp)
_rgsdAccessToken
_rgsdUploadType
_rgsdBearerToken
_rgsdCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy ReadGroupSetsDeleteResource)
mempty