module Network.Google.Resource.Genomics.VariantSets.Export
(
VariantSetsExportResource
, variantSetsExport
, VariantSetsExport
, vseXgafv
, vseUploadProtocol
, vsePp
, vseVariantSetId
, vseAccessToken
, vseUploadType
, vsePayload
, vseBearerToken
, vseCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantSetsExportResource =
"v1" :>
"variantsets" :>
CaptureMode "variantSetId" "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] ExportVariantSetRequest :>
Post '[JSON] Operation
data VariantSetsExport = VariantSetsExport'
{ _vseXgafv :: !(Maybe Xgafv)
, _vseUploadProtocol :: !(Maybe Text)
, _vsePp :: !Bool
, _vseVariantSetId :: !Text
, _vseAccessToken :: !(Maybe Text)
, _vseUploadType :: !(Maybe Text)
, _vsePayload :: !ExportVariantSetRequest
, _vseBearerToken :: !(Maybe Text)
, _vseCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetsExport
:: Text
-> ExportVariantSetRequest
-> VariantSetsExport
variantSetsExport pVseVariantSetId_ pVsePayload_ =
VariantSetsExport'
{ _vseXgafv = Nothing
, _vseUploadProtocol = Nothing
, _vsePp = True
, _vseVariantSetId = pVseVariantSetId_
, _vseAccessToken = Nothing
, _vseUploadType = Nothing
, _vsePayload = pVsePayload_
, _vseBearerToken = Nothing
, _vseCallback = Nothing
}
vseXgafv :: Lens' VariantSetsExport (Maybe Xgafv)
vseXgafv = lens _vseXgafv (\ s a -> s{_vseXgafv = a})
vseUploadProtocol :: Lens' VariantSetsExport (Maybe Text)
vseUploadProtocol
= lens _vseUploadProtocol
(\ s a -> s{_vseUploadProtocol = a})
vsePp :: Lens' VariantSetsExport Bool
vsePp = lens _vsePp (\ s a -> s{_vsePp = a})
vseVariantSetId :: Lens' VariantSetsExport Text
vseVariantSetId
= lens _vseVariantSetId
(\ s a -> s{_vseVariantSetId = a})
vseAccessToken :: Lens' VariantSetsExport (Maybe Text)
vseAccessToken
= lens _vseAccessToken
(\ s a -> s{_vseAccessToken = a})
vseUploadType :: Lens' VariantSetsExport (Maybe Text)
vseUploadType
= lens _vseUploadType
(\ s a -> s{_vseUploadType = a})
vsePayload :: Lens' VariantSetsExport ExportVariantSetRequest
vsePayload
= lens _vsePayload (\ s a -> s{_vsePayload = a})
vseBearerToken :: Lens' VariantSetsExport (Maybe Text)
vseBearerToken
= lens _vseBearerToken
(\ s a -> s{_vseBearerToken = a})
vseCallback :: Lens' VariantSetsExport (Maybe Text)
vseCallback
= lens _vseCallback (\ s a -> s{_vseCallback = a})
instance GoogleRequest VariantSetsExport where
type Rs VariantSetsExport = Operation
type Scopes VariantSetsExport =
'["https://www.googleapis.com/auth/bigquery",
"https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient VariantSetsExport'{..}
= go _vseVariantSetId _vseXgafv _vseUploadProtocol
(Just _vsePp)
_vseAccessToken
_vseUploadType
_vseBearerToken
_vseCallback
(Just AltJSON)
_vsePayload
genomicsService
where go
= buildClient
(Proxy :: Proxy VariantSetsExportResource)
mempty