module Network.Google.Resource.Genomics.VariantSets.Create
(
VariantSetsCreateResource
, variantSetsCreate
, VariantSetsCreate
, vscXgafv
, vscUploadProtocol
, vscPp
, vscAccessToken
, vscUploadType
, vscPayload
, vscBearerToken
, vscCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantSetsCreateResource =
"v1" :>
"variantsets" :>
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] VariantSet :> Post '[JSON] VariantSet
data VariantSetsCreate = VariantSetsCreate'
{ _vscXgafv :: !(Maybe Xgafv)
, _vscUploadProtocol :: !(Maybe Text)
, _vscPp :: !Bool
, _vscAccessToken :: !(Maybe Text)
, _vscUploadType :: !(Maybe Text)
, _vscPayload :: !VariantSet
, _vscBearerToken :: !(Maybe Text)
, _vscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetsCreate
:: VariantSet
-> VariantSetsCreate
variantSetsCreate pVscPayload_ =
VariantSetsCreate'
{ _vscXgafv = Nothing
, _vscUploadProtocol = Nothing
, _vscPp = True
, _vscAccessToken = Nothing
, _vscUploadType = Nothing
, _vscPayload = pVscPayload_
, _vscBearerToken = Nothing
, _vscCallback = Nothing
}
vscXgafv :: Lens' VariantSetsCreate (Maybe Xgafv)
vscXgafv = lens _vscXgafv (\ s a -> s{_vscXgafv = a})
vscUploadProtocol :: Lens' VariantSetsCreate (Maybe Text)
vscUploadProtocol
= lens _vscUploadProtocol
(\ s a -> s{_vscUploadProtocol = a})
vscPp :: Lens' VariantSetsCreate Bool
vscPp = lens _vscPp (\ s a -> s{_vscPp = a})
vscAccessToken :: Lens' VariantSetsCreate (Maybe Text)
vscAccessToken
= lens _vscAccessToken
(\ s a -> s{_vscAccessToken = a})
vscUploadType :: Lens' VariantSetsCreate (Maybe Text)
vscUploadType
= lens _vscUploadType
(\ s a -> s{_vscUploadType = a})
vscPayload :: Lens' VariantSetsCreate VariantSet
vscPayload
= lens _vscPayload (\ s a -> s{_vscPayload = a})
vscBearerToken :: Lens' VariantSetsCreate (Maybe Text)
vscBearerToken
= lens _vscBearerToken
(\ s a -> s{_vscBearerToken = a})
vscCallback :: Lens' VariantSetsCreate (Maybe Text)
vscCallback
= lens _vscCallback (\ s a -> s{_vscCallback = a})
instance GoogleRequest VariantSetsCreate where
type Rs VariantSetsCreate = VariantSet
type Scopes VariantSetsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient VariantSetsCreate'{..}
= go _vscXgafv _vscUploadProtocol (Just _vscPp)
_vscAccessToken
_vscUploadType
_vscBearerToken
_vscCallback
(Just AltJSON)
_vscPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy VariantSetsCreateResource)
mempty