module Network.Google.Resource.Genomics.VariantSets.Patch
(
VariantSetsPatchResource
, variantSetsPatch
, VariantSetsPatch
, vspXgafv
, vspUploadProtocol
, vspUpdateMask
, vspPp
, vspVariantSetId
, vspAccessToken
, vspUploadType
, vspPayload
, vspBearerToken
, vspCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantSetsPatchResource =
"v1" :>
"variantsets" :>
Capture "variantSetId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] VariantSet :>
Patch '[JSON] VariantSet
data VariantSetsPatch = VariantSetsPatch
{ _vspXgafv :: !(Maybe Text)
, _vspUploadProtocol :: !(Maybe Text)
, _vspUpdateMask :: !(Maybe Text)
, _vspPp :: !Bool
, _vspVariantSetId :: !Text
, _vspAccessToken :: !(Maybe Text)
, _vspUploadType :: !(Maybe Text)
, _vspPayload :: !VariantSet
, _vspBearerToken :: !(Maybe Text)
, _vspCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetsPatch
:: Text
-> VariantSet
-> VariantSetsPatch
variantSetsPatch pVspVariantSetId_ pVspPayload_ =
VariantSetsPatch
{ _vspXgafv = Nothing
, _vspUploadProtocol = Nothing
, _vspUpdateMask = Nothing
, _vspPp = True
, _vspVariantSetId = pVspVariantSetId_
, _vspAccessToken = Nothing
, _vspUploadType = Nothing
, _vspPayload = pVspPayload_
, _vspBearerToken = Nothing
, _vspCallback = Nothing
}
vspXgafv :: Lens' VariantSetsPatch (Maybe Text)
vspXgafv = lens _vspXgafv (\ s a -> s{_vspXgafv = a})
vspUploadProtocol :: Lens' VariantSetsPatch (Maybe Text)
vspUploadProtocol
= lens _vspUploadProtocol
(\ s a -> s{_vspUploadProtocol = a})
vspUpdateMask :: Lens' VariantSetsPatch (Maybe Text)
vspUpdateMask
= lens _vspUpdateMask
(\ s a -> s{_vspUpdateMask = a})
vspPp :: Lens' VariantSetsPatch Bool
vspPp = lens _vspPp (\ s a -> s{_vspPp = a})
vspVariantSetId :: Lens' VariantSetsPatch Text
vspVariantSetId
= lens _vspVariantSetId
(\ s a -> s{_vspVariantSetId = a})
vspAccessToken :: Lens' VariantSetsPatch (Maybe Text)
vspAccessToken
= lens _vspAccessToken
(\ s a -> s{_vspAccessToken = a})
vspUploadType :: Lens' VariantSetsPatch (Maybe Text)
vspUploadType
= lens _vspUploadType
(\ s a -> s{_vspUploadType = a})
vspPayload :: Lens' VariantSetsPatch VariantSet
vspPayload
= lens _vspPayload (\ s a -> s{_vspPayload = a})
vspBearerToken :: Lens' VariantSetsPatch (Maybe Text)
vspBearerToken
= lens _vspBearerToken
(\ s a -> s{_vspBearerToken = a})
vspCallback :: Lens' VariantSetsPatch (Maybe Text)
vspCallback
= lens _vspCallback (\ s a -> s{_vspCallback = a})
instance GoogleRequest VariantSetsPatch where
type Rs VariantSetsPatch = VariantSet
requestClient VariantSetsPatch{..}
= go _vspVariantSetId _vspXgafv _vspUploadProtocol
_vspUpdateMask
(Just _vspPp)
_vspAccessToken
_vspUploadType
_vspBearerToken
_vspCallback
(Just AltJSON)
_vspPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy VariantSetsPatchResource)
mempty