module Network.Google.Resource.Genomics.Annotations.Update
(
AnnotationsUpdateResource
, annotationsUpdate
, AnnotationsUpdate
, auXgafv
, auUploadProtocol
, auUpdateMask
, auPp
, auAccessToken
, auUploadType
, auPayload
, auBearerToken
, auAnnotationId
, auCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationsUpdateResource =
"v1" :>
"annotations" :>
Capture "annotationId" 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] Annotation :>
Put '[JSON] Annotation
data AnnotationsUpdate = AnnotationsUpdate'
{ _auXgafv :: !(Maybe Xgafv)
, _auUploadProtocol :: !(Maybe Text)
, _auUpdateMask :: !(Maybe FieldMask)
, _auPp :: !Bool
, _auAccessToken :: !(Maybe Text)
, _auUploadType :: !(Maybe Text)
, _auPayload :: !Annotation
, _auBearerToken :: !(Maybe Text)
, _auAnnotationId :: !Text
, _auCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationsUpdate
:: Annotation
-> Text
-> AnnotationsUpdate
annotationsUpdate pAuPayload_ pAuAnnotationId_ =
AnnotationsUpdate'
{ _auXgafv = Nothing
, _auUploadProtocol = Nothing
, _auUpdateMask = Nothing
, _auPp = True
, _auAccessToken = Nothing
, _auUploadType = Nothing
, _auPayload = pAuPayload_
, _auBearerToken = Nothing
, _auAnnotationId = pAuAnnotationId_
, _auCallback = Nothing
}
auXgafv :: Lens' AnnotationsUpdate (Maybe Xgafv)
auXgafv = lens _auXgafv (\ s a -> s{_auXgafv = a})
auUploadProtocol :: Lens' AnnotationsUpdate (Maybe Text)
auUploadProtocol
= lens _auUploadProtocol
(\ s a -> s{_auUploadProtocol = a})
auUpdateMask :: Lens' AnnotationsUpdate (Maybe FieldMask)
auUpdateMask
= lens _auUpdateMask (\ s a -> s{_auUpdateMask = a})
auPp :: Lens' AnnotationsUpdate Bool
auPp = lens _auPp (\ s a -> s{_auPp = a})
auAccessToken :: Lens' AnnotationsUpdate (Maybe Text)
auAccessToken
= lens _auAccessToken
(\ s a -> s{_auAccessToken = a})
auUploadType :: Lens' AnnotationsUpdate (Maybe Text)
auUploadType
= lens _auUploadType (\ s a -> s{_auUploadType = a})
auPayload :: Lens' AnnotationsUpdate Annotation
auPayload
= lens _auPayload (\ s a -> s{_auPayload = a})
auBearerToken :: Lens' AnnotationsUpdate (Maybe Text)
auBearerToken
= lens _auBearerToken
(\ s a -> s{_auBearerToken = a})
auAnnotationId :: Lens' AnnotationsUpdate Text
auAnnotationId
= lens _auAnnotationId
(\ s a -> s{_auAnnotationId = a})
auCallback :: Lens' AnnotationsUpdate (Maybe Text)
auCallback
= lens _auCallback (\ s a -> s{_auCallback = a})
instance GoogleRequest AnnotationsUpdate where
type Rs AnnotationsUpdate = Annotation
type Scopes AnnotationsUpdate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient AnnotationsUpdate'{..}
= go _auAnnotationId _auXgafv _auUploadProtocol
_auUpdateMask
(Just _auPp)
_auAccessToken
_auUploadType
_auBearerToken
_auCallback
(Just AltJSON)
_auPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationsUpdateResource)
mempty