module Network.Google.Resource.Genomics.ReadGroupSets.Export
(
ReadGroupSetsExportResource
, readGroupSetsExport
, ReadGroupSetsExport
, rgseXgafv
, rgseReadGroupSetId
, rgseUploadProtocol
, rgsePp
, rgseAccessToken
, rgseUploadType
, rgsePayload
, rgseBearerToken
, rgseCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReadGroupSetsExportResource =
"v1" :>
"readgroupsets" :>
CaptureMode "readGroupSetId" "export" 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 :>
ReqBody '[JSON] ExportReadGroupSetRequest :>
Post '[JSON] Operation
data ReadGroupSetsExport = ReadGroupSetsExport'
{ _rgseXgafv :: !(Maybe Xgafv)
, _rgseReadGroupSetId :: !Text
, _rgseUploadProtocol :: !(Maybe Text)
, _rgsePp :: !Bool
, _rgseAccessToken :: !(Maybe Text)
, _rgseUploadType :: !(Maybe Text)
, _rgsePayload :: !ExportReadGroupSetRequest
, _rgseBearerToken :: !(Maybe Text)
, _rgseCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSetsExport
:: Text
-> ExportReadGroupSetRequest
-> ReadGroupSetsExport
readGroupSetsExport pRgseReadGroupSetId_ pRgsePayload_ =
ReadGroupSetsExport'
{ _rgseXgafv = Nothing
, _rgseReadGroupSetId = pRgseReadGroupSetId_
, _rgseUploadProtocol = Nothing
, _rgsePp = True
, _rgseAccessToken = Nothing
, _rgseUploadType = Nothing
, _rgsePayload = pRgsePayload_
, _rgseBearerToken = Nothing
, _rgseCallback = Nothing
}
rgseXgafv :: Lens' ReadGroupSetsExport (Maybe Xgafv)
rgseXgafv
= lens _rgseXgafv (\ s a -> s{_rgseXgafv = a})
rgseReadGroupSetId :: Lens' ReadGroupSetsExport Text
rgseReadGroupSetId
= lens _rgseReadGroupSetId
(\ s a -> s{_rgseReadGroupSetId = a})
rgseUploadProtocol :: Lens' ReadGroupSetsExport (Maybe Text)
rgseUploadProtocol
= lens _rgseUploadProtocol
(\ s a -> s{_rgseUploadProtocol = a})
rgsePp :: Lens' ReadGroupSetsExport Bool
rgsePp = lens _rgsePp (\ s a -> s{_rgsePp = a})
rgseAccessToken :: Lens' ReadGroupSetsExport (Maybe Text)
rgseAccessToken
= lens _rgseAccessToken
(\ s a -> s{_rgseAccessToken = a})
rgseUploadType :: Lens' ReadGroupSetsExport (Maybe Text)
rgseUploadType
= lens _rgseUploadType
(\ s a -> s{_rgseUploadType = a})
rgsePayload :: Lens' ReadGroupSetsExport ExportReadGroupSetRequest
rgsePayload
= lens _rgsePayload (\ s a -> s{_rgsePayload = a})
rgseBearerToken :: Lens' ReadGroupSetsExport (Maybe Text)
rgseBearerToken
= lens _rgseBearerToken
(\ s a -> s{_rgseBearerToken = a})
rgseCallback :: Lens' ReadGroupSetsExport (Maybe Text)
rgseCallback
= lens _rgseCallback (\ s a -> s{_rgseCallback = a})
instance GoogleRequest ReadGroupSetsExport where
type Rs ReadGroupSetsExport = Operation
type Scopes ReadGroupSetsExport =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/devstorage.read_write",
"https://www.googleapis.com/auth/genomics"]
requestClient ReadGroupSetsExport'{..}
= go _rgseReadGroupSetId _rgseXgafv
_rgseUploadProtocol
(Just _rgsePp)
_rgseAccessToken
_rgseUploadType
_rgseBearerToken
_rgseCallback
(Just AltJSON)
_rgsePayload
genomicsService
where go
= buildClient
(Proxy :: Proxy ReadGroupSetsExportResource)
mempty