module Network.Google.Resource.Genomics.Annotations.Get
(
AnnotationsGetResource
, annotationsGet
, AnnotationsGet
, agXgafv
, agUploadProtocol
, agPp
, agAccessToken
, agUploadType
, agBearerToken
, agAnnotationId
, agCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationsGetResource =
"v1" :>
"annotations" :>
Capture "annotationId" Text :>
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 :> Get '[JSON] Annotation
data AnnotationsGet = AnnotationsGet'
{ _agXgafv :: !(Maybe Xgafv)
, _agUploadProtocol :: !(Maybe Text)
, _agPp :: !Bool
, _agAccessToken :: !(Maybe Text)
, _agUploadType :: !(Maybe Text)
, _agBearerToken :: !(Maybe Text)
, _agAnnotationId :: !Text
, _agCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationsGet
:: Text
-> AnnotationsGet
annotationsGet pAgAnnotationId_ =
AnnotationsGet'
{ _agXgafv = Nothing
, _agUploadProtocol = Nothing
, _agPp = True
, _agAccessToken = Nothing
, _agUploadType = Nothing
, _agBearerToken = Nothing
, _agAnnotationId = pAgAnnotationId_
, _agCallback = Nothing
}
agXgafv :: Lens' AnnotationsGet (Maybe Xgafv)
agXgafv = lens _agXgafv (\ s a -> s{_agXgafv = a})
agUploadProtocol :: Lens' AnnotationsGet (Maybe Text)
agUploadProtocol
= lens _agUploadProtocol
(\ s a -> s{_agUploadProtocol = a})
agPp :: Lens' AnnotationsGet Bool
agPp = lens _agPp (\ s a -> s{_agPp = a})
agAccessToken :: Lens' AnnotationsGet (Maybe Text)
agAccessToken
= lens _agAccessToken
(\ s a -> s{_agAccessToken = a})
agUploadType :: Lens' AnnotationsGet (Maybe Text)
agUploadType
= lens _agUploadType (\ s a -> s{_agUploadType = a})
agBearerToken :: Lens' AnnotationsGet (Maybe Text)
agBearerToken
= lens _agBearerToken
(\ s a -> s{_agBearerToken = a})
agAnnotationId :: Lens' AnnotationsGet Text
agAnnotationId
= lens _agAnnotationId
(\ s a -> s{_agAnnotationId = a})
agCallback :: Lens' AnnotationsGet (Maybe Text)
agCallback
= lens _agCallback (\ s a -> s{_agCallback = a})
instance GoogleRequest AnnotationsGet where
type Rs AnnotationsGet = Annotation
type Scopes AnnotationsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient AnnotationsGet'{..}
= go _agAnnotationId _agXgafv _agUploadProtocol
(Just _agPp)
_agAccessToken
_agUploadType
_agBearerToken
_agCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy AnnotationsGetResource)
mempty