module Network.Google.Resource.Genomics.Annotations.Search
(
AnnotationsSearchResource
, annotationsSearch
, AnnotationsSearch
, asXgafv
, asUploadProtocol
, asPp
, asAccessToken
, asUploadType
, asPayload
, asBearerToken
, asCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type AnnotationsSearchResource =
"v1" :>
"annotations" :>
"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] SearchAnnotationsRequest :>
Post '[JSON] SearchAnnotationsResponse
data AnnotationsSearch = AnnotationsSearch'
{ _asXgafv :: !(Maybe Xgafv)
, _asUploadProtocol :: !(Maybe Text)
, _asPp :: !Bool
, _asAccessToken :: !(Maybe Text)
, _asUploadType :: !(Maybe Text)
, _asPayload :: !SearchAnnotationsRequest
, _asBearerToken :: !(Maybe Text)
, _asCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationsSearch
:: SearchAnnotationsRequest
-> AnnotationsSearch
annotationsSearch pAsPayload_ =
AnnotationsSearch'
{ _asXgafv = Nothing
, _asUploadProtocol = Nothing
, _asPp = True
, _asAccessToken = Nothing
, _asUploadType = Nothing
, _asPayload = pAsPayload_
, _asBearerToken = Nothing
, _asCallback = Nothing
}
asXgafv :: Lens' AnnotationsSearch (Maybe Xgafv)
asXgafv = lens _asXgafv (\ s a -> s{_asXgafv = a})
asUploadProtocol :: Lens' AnnotationsSearch (Maybe Text)
asUploadProtocol
= lens _asUploadProtocol
(\ s a -> s{_asUploadProtocol = a})
asPp :: Lens' AnnotationsSearch Bool
asPp = lens _asPp (\ s a -> s{_asPp = a})
asAccessToken :: Lens' AnnotationsSearch (Maybe Text)
asAccessToken
= lens _asAccessToken
(\ s a -> s{_asAccessToken = a})
asUploadType :: Lens' AnnotationsSearch (Maybe Text)
asUploadType
= lens _asUploadType (\ s a -> s{_asUploadType = a})
asPayload :: Lens' AnnotationsSearch SearchAnnotationsRequest
asPayload
= lens _asPayload (\ s a -> s{_asPayload = a})
asBearerToken :: Lens' AnnotationsSearch (Maybe Text)
asBearerToken
= lens _asBearerToken
(\ s a -> s{_asBearerToken = a})
asCallback :: Lens' AnnotationsSearch (Maybe Text)
asCallback
= lens _asCallback (\ s a -> s{_asCallback = a})
instance GoogleRequest AnnotationsSearch where
type Rs AnnotationsSearch = SearchAnnotationsResponse
type Scopes AnnotationsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient AnnotationsSearch'{..}
= go _asXgafv _asUploadProtocol (Just _asPp)
_asAccessToken
_asUploadType
_asBearerToken
_asCallback
(Just AltJSON)
_asPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy AnnotationsSearchResource)
mempty