module Network.Google.Resource.Genomics.AnnotationSets.Search
(
AnnotationSetsSearchResource
, annotationSetsSearch
, AnnotationSetsSearch
, assXgafv
, assUploadProtocol
, assPp
, assAccessToken
, assUploadType
, assPayload
, assBearerToken
, assCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationSetsSearchResource =
"v1" :>
"annotationsets" :>
"search" :>
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] SearchAnnotationSetsRequest :>
Post '[JSON] SearchAnnotationSetsResponse
data AnnotationSetsSearch = AnnotationSetsSearch'
{ _assXgafv :: !(Maybe Xgafv)
, _assUploadProtocol :: !(Maybe Text)
, _assPp :: !Bool
, _assAccessToken :: !(Maybe Text)
, _assUploadType :: !(Maybe Text)
, _assPayload :: !SearchAnnotationSetsRequest
, _assBearerToken :: !(Maybe Text)
, _assCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSetsSearch
:: SearchAnnotationSetsRequest
-> AnnotationSetsSearch
annotationSetsSearch pAssPayload_ =
AnnotationSetsSearch'
{ _assXgafv = Nothing
, _assUploadProtocol = Nothing
, _assPp = True
, _assAccessToken = Nothing
, _assUploadType = Nothing
, _assPayload = pAssPayload_
, _assBearerToken = Nothing
, _assCallback = Nothing
}
assXgafv :: Lens' AnnotationSetsSearch (Maybe Xgafv)
assXgafv = lens _assXgafv (\ s a -> s{_assXgafv = a})
assUploadProtocol :: Lens' AnnotationSetsSearch (Maybe Text)
assUploadProtocol
= lens _assUploadProtocol
(\ s a -> s{_assUploadProtocol = a})
assPp :: Lens' AnnotationSetsSearch Bool
assPp = lens _assPp (\ s a -> s{_assPp = a})
assAccessToken :: Lens' AnnotationSetsSearch (Maybe Text)
assAccessToken
= lens _assAccessToken
(\ s a -> s{_assAccessToken = a})
assUploadType :: Lens' AnnotationSetsSearch (Maybe Text)
assUploadType
= lens _assUploadType
(\ s a -> s{_assUploadType = a})
assPayload :: Lens' AnnotationSetsSearch SearchAnnotationSetsRequest
assPayload
= lens _assPayload (\ s a -> s{_assPayload = a})
assBearerToken :: Lens' AnnotationSetsSearch (Maybe Text)
assBearerToken
= lens _assBearerToken
(\ s a -> s{_assBearerToken = a})
assCallback :: Lens' AnnotationSetsSearch (Maybe Text)
assCallback
= lens _assCallback (\ s a -> s{_assCallback = a})
instance GoogleRequest AnnotationSetsSearch where
type Rs AnnotationSetsSearch =
SearchAnnotationSetsResponse
type Scopes AnnotationSetsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient AnnotationSetsSearch'{..}
= go _assXgafv _assUploadProtocol (Just _assPp)
_assAccessToken
_assUploadType
_assBearerToken
_assCallback
(Just AltJSON)
_assPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationSetsSearchResource)
mempty