module Network.Google.Resource.Genomics.AnnotationSets.Get
(
AnnotationSetsGetResource
, annotationSetsGet
, AnnotationSetsGet
, asgXgafv
, asgUploadProtocol
, asgAnnotationSetId
, asgPp
, asgAccessToken
, asgUploadType
, asgBearerToken
, asgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationSetsGetResource =
"v1" :>
"annotationsets" :>
Capture "annotationSetId" 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] AnnotationSet
data AnnotationSetsGet = AnnotationSetsGet'
{ _asgXgafv :: !(Maybe Xgafv)
, _asgUploadProtocol :: !(Maybe Text)
, _asgAnnotationSetId :: !Text
, _asgPp :: !Bool
, _asgAccessToken :: !(Maybe Text)
, _asgUploadType :: !(Maybe Text)
, _asgBearerToken :: !(Maybe Text)
, _asgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSetsGet
:: Text
-> AnnotationSetsGet
annotationSetsGet pAsgAnnotationSetId_ =
AnnotationSetsGet'
{ _asgXgafv = Nothing
, _asgUploadProtocol = Nothing
, _asgAnnotationSetId = pAsgAnnotationSetId_
, _asgPp = True
, _asgAccessToken = Nothing
, _asgUploadType = Nothing
, _asgBearerToken = Nothing
, _asgCallback = Nothing
}
asgXgafv :: Lens' AnnotationSetsGet (Maybe Xgafv)
asgXgafv = lens _asgXgafv (\ s a -> s{_asgXgafv = a})
asgUploadProtocol :: Lens' AnnotationSetsGet (Maybe Text)
asgUploadProtocol
= lens _asgUploadProtocol
(\ s a -> s{_asgUploadProtocol = a})
asgAnnotationSetId :: Lens' AnnotationSetsGet Text
asgAnnotationSetId
= lens _asgAnnotationSetId
(\ s a -> s{_asgAnnotationSetId = a})
asgPp :: Lens' AnnotationSetsGet Bool
asgPp = lens _asgPp (\ s a -> s{_asgPp = a})
asgAccessToken :: Lens' AnnotationSetsGet (Maybe Text)
asgAccessToken
= lens _asgAccessToken
(\ s a -> s{_asgAccessToken = a})
asgUploadType :: Lens' AnnotationSetsGet (Maybe Text)
asgUploadType
= lens _asgUploadType
(\ s a -> s{_asgUploadType = a})
asgBearerToken :: Lens' AnnotationSetsGet (Maybe Text)
asgBearerToken
= lens _asgBearerToken
(\ s a -> s{_asgBearerToken = a})
asgCallback :: Lens' AnnotationSetsGet (Maybe Text)
asgCallback
= lens _asgCallback (\ s a -> s{_asgCallback = a})
instance GoogleRequest AnnotationSetsGet where
type Rs AnnotationSetsGet = AnnotationSet
type Scopes AnnotationSetsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient AnnotationSetsGet'{..}
= go _asgAnnotationSetId _asgXgafv _asgUploadProtocol
(Just _asgPp)
_asgAccessToken
_asgUploadType
_asgBearerToken
_asgCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationSetsGetResource)
mempty