module Network.Google.Resource.Genomics.AnnotationSets.Update
(
AnnotationSetsUpdateResource
, annotationSetsUpdate
, AnnotationSetsUpdate
, asuXgafv
, asuUploadProtocol
, asuUpdateMask
, asuAnnotationSetId
, asuPp
, asuAccessToken
, asuUploadType
, asuPayload
, asuBearerToken
, asuCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationSetsUpdateResource =
"v1" :>
"annotationsets" :>
Capture "annotationSetId" 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] AnnotationSet :>
Put '[JSON] AnnotationSet
data AnnotationSetsUpdate = AnnotationSetsUpdate'
{ _asuXgafv :: !(Maybe Xgafv)
, _asuUploadProtocol :: !(Maybe Text)
, _asuUpdateMask :: !(Maybe FieldMask)
, _asuAnnotationSetId :: !Text
, _asuPp :: !Bool
, _asuAccessToken :: !(Maybe Text)
, _asuUploadType :: !(Maybe Text)
, _asuPayload :: !AnnotationSet
, _asuBearerToken :: !(Maybe Text)
, _asuCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSetsUpdate
:: Text
-> AnnotationSet
-> AnnotationSetsUpdate
annotationSetsUpdate pAsuAnnotationSetId_ pAsuPayload_ =
AnnotationSetsUpdate'
{ _asuXgafv = Nothing
, _asuUploadProtocol = Nothing
, _asuUpdateMask = Nothing
, _asuAnnotationSetId = pAsuAnnotationSetId_
, _asuPp = True
, _asuAccessToken = Nothing
, _asuUploadType = Nothing
, _asuPayload = pAsuPayload_
, _asuBearerToken = Nothing
, _asuCallback = Nothing
}
asuXgafv :: Lens' AnnotationSetsUpdate (Maybe Xgafv)
asuXgafv = lens _asuXgafv (\ s a -> s{_asuXgafv = a})
asuUploadProtocol :: Lens' AnnotationSetsUpdate (Maybe Text)
asuUploadProtocol
= lens _asuUploadProtocol
(\ s a -> s{_asuUploadProtocol = a})
asuUpdateMask :: Lens' AnnotationSetsUpdate (Maybe FieldMask)
asuUpdateMask
= lens _asuUpdateMask
(\ s a -> s{_asuUpdateMask = a})
asuAnnotationSetId :: Lens' AnnotationSetsUpdate Text
asuAnnotationSetId
= lens _asuAnnotationSetId
(\ s a -> s{_asuAnnotationSetId = a})
asuPp :: Lens' AnnotationSetsUpdate Bool
asuPp = lens _asuPp (\ s a -> s{_asuPp = a})
asuAccessToken :: Lens' AnnotationSetsUpdate (Maybe Text)
asuAccessToken
= lens _asuAccessToken
(\ s a -> s{_asuAccessToken = a})
asuUploadType :: Lens' AnnotationSetsUpdate (Maybe Text)
asuUploadType
= lens _asuUploadType
(\ s a -> s{_asuUploadType = a})
asuPayload :: Lens' AnnotationSetsUpdate AnnotationSet
asuPayload
= lens _asuPayload (\ s a -> s{_asuPayload = a})
asuBearerToken :: Lens' AnnotationSetsUpdate (Maybe Text)
asuBearerToken
= lens _asuBearerToken
(\ s a -> s{_asuBearerToken = a})
asuCallback :: Lens' AnnotationSetsUpdate (Maybe Text)
asuCallback
= lens _asuCallback (\ s a -> s{_asuCallback = a})
instance GoogleRequest AnnotationSetsUpdate where
type Rs AnnotationSetsUpdate = AnnotationSet
type Scopes AnnotationSetsUpdate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient AnnotationSetsUpdate'{..}
= go _asuAnnotationSetId _asuXgafv _asuUploadProtocol
_asuUpdateMask
(Just _asuPp)
_asuAccessToken
_asuUploadType
_asuBearerToken
_asuCallback
(Just AltJSON)
_asuPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationSetsUpdateResource)
mempty