module Network.Google.Resource.Genomics.AnnotationSets.Create
(
AnnotationSetsCreateResource
, annotationSetsCreate
, AnnotationSetsCreate
, ascXgafv
, ascUploadProtocol
, ascPp
, ascAccessToken
, ascUploadType
, ascPayload
, ascBearerToken
, ascCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationSetsCreateResource =
"v1" :>
"annotationsets" :>
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] AnnotationSet :>
Post '[JSON] AnnotationSet
data AnnotationSetsCreate = AnnotationSetsCreate'
{ _ascXgafv :: !(Maybe Xgafv)
, _ascUploadProtocol :: !(Maybe Text)
, _ascPp :: !Bool
, _ascAccessToken :: !(Maybe Text)
, _ascUploadType :: !(Maybe Text)
, _ascPayload :: !AnnotationSet
, _ascBearerToken :: !(Maybe Text)
, _ascCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSetsCreate
:: AnnotationSet
-> AnnotationSetsCreate
annotationSetsCreate pAscPayload_ =
AnnotationSetsCreate'
{ _ascXgafv = Nothing
, _ascUploadProtocol = Nothing
, _ascPp = True
, _ascAccessToken = Nothing
, _ascUploadType = Nothing
, _ascPayload = pAscPayload_
, _ascBearerToken = Nothing
, _ascCallback = Nothing
}
ascXgafv :: Lens' AnnotationSetsCreate (Maybe Xgafv)
ascXgafv = lens _ascXgafv (\ s a -> s{_ascXgafv = a})
ascUploadProtocol :: Lens' AnnotationSetsCreate (Maybe Text)
ascUploadProtocol
= lens _ascUploadProtocol
(\ s a -> s{_ascUploadProtocol = a})
ascPp :: Lens' AnnotationSetsCreate Bool
ascPp = lens _ascPp (\ s a -> s{_ascPp = a})
ascAccessToken :: Lens' AnnotationSetsCreate (Maybe Text)
ascAccessToken
= lens _ascAccessToken
(\ s a -> s{_ascAccessToken = a})
ascUploadType :: Lens' AnnotationSetsCreate (Maybe Text)
ascUploadType
= lens _ascUploadType
(\ s a -> s{_ascUploadType = a})
ascPayload :: Lens' AnnotationSetsCreate AnnotationSet
ascPayload
= lens _ascPayload (\ s a -> s{_ascPayload = a})
ascBearerToken :: Lens' AnnotationSetsCreate (Maybe Text)
ascBearerToken
= lens _ascBearerToken
(\ s a -> s{_ascBearerToken = a})
ascCallback :: Lens' AnnotationSetsCreate (Maybe Text)
ascCallback
= lens _ascCallback (\ s a -> s{_ascCallback = a})
instance GoogleRequest AnnotationSetsCreate where
type Rs AnnotationSetsCreate = AnnotationSet
type Scopes AnnotationSetsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient AnnotationSetsCreate'{..}
= go _ascXgafv _ascUploadProtocol (Just _ascPp)
_ascAccessToken
_ascUploadType
_ascBearerToken
_ascCallback
(Just AltJSON)
_ascPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationSetsCreateResource)
mempty