module Network.Google.Resource.Genomics.Variants.Patch
(
VariantsPatchResource
, variantsPatch
, VariantsPatch
, vpXgafv
, vpUploadProtocol
, vpUpdateMask
, vpPp
, vpAccessToken
, vpUploadType
, vpPayload
, vpBearerToken
, vpVariantId
, vpCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantsPatchResource =
"v1" :>
"variants" :>
Capture "variantId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" FieldMask :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Variant :> Patch '[JSON] Variant
data VariantsPatch = VariantsPatch'
{ _vpXgafv :: !(Maybe Xgafv)
, _vpUploadProtocol :: !(Maybe Text)
, _vpUpdateMask :: !(Maybe FieldMask)
, _vpPp :: !Bool
, _vpAccessToken :: !(Maybe Text)
, _vpUploadType :: !(Maybe Text)
, _vpPayload :: !Variant
, _vpBearerToken :: !(Maybe Text)
, _vpVariantId :: !Text
, _vpCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantsPatch
:: Variant
-> Text
-> VariantsPatch
variantsPatch pVpPayload_ pVpVariantId_ =
VariantsPatch'
{ _vpXgafv = Nothing
, _vpUploadProtocol = Nothing
, _vpUpdateMask = Nothing
, _vpPp = True
, _vpAccessToken = Nothing
, _vpUploadType = Nothing
, _vpPayload = pVpPayload_
, _vpBearerToken = Nothing
, _vpVariantId = pVpVariantId_
, _vpCallback = Nothing
}
vpXgafv :: Lens' VariantsPatch (Maybe Xgafv)
vpXgafv = lens _vpXgafv (\ s a -> s{_vpXgafv = a})
vpUploadProtocol :: Lens' VariantsPatch (Maybe Text)
vpUploadProtocol
= lens _vpUploadProtocol
(\ s a -> s{_vpUploadProtocol = a})
vpUpdateMask :: Lens' VariantsPatch (Maybe FieldMask)
vpUpdateMask
= lens _vpUpdateMask (\ s a -> s{_vpUpdateMask = a})
vpPp :: Lens' VariantsPatch Bool
vpPp = lens _vpPp (\ s a -> s{_vpPp = a})
vpAccessToken :: Lens' VariantsPatch (Maybe Text)
vpAccessToken
= lens _vpAccessToken
(\ s a -> s{_vpAccessToken = a})
vpUploadType :: Lens' VariantsPatch (Maybe Text)
vpUploadType
= lens _vpUploadType (\ s a -> s{_vpUploadType = a})
vpPayload :: Lens' VariantsPatch Variant
vpPayload
= lens _vpPayload (\ s a -> s{_vpPayload = a})
vpBearerToken :: Lens' VariantsPatch (Maybe Text)
vpBearerToken
= lens _vpBearerToken
(\ s a -> s{_vpBearerToken = a})
vpVariantId :: Lens' VariantsPatch Text
vpVariantId
= lens _vpVariantId (\ s a -> s{_vpVariantId = a})
vpCallback :: Lens' VariantsPatch (Maybe Text)
vpCallback
= lens _vpCallback (\ s a -> s{_vpCallback = a})
instance GoogleRequest VariantsPatch where
type Rs VariantsPatch = Variant
type Scopes VariantsPatch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient VariantsPatch'{..}
= go _vpVariantId _vpXgafv _vpUploadProtocol
_vpUpdateMask
(Just _vpPp)
_vpAccessToken
_vpUploadType
_vpBearerToken
_vpCallback
(Just AltJSON)
_vpPayload
genomicsService
where go
= buildClient (Proxy :: Proxy VariantsPatchResource)
mempty