module Network.Google.Resource.Genomics.Referencesets.Search
(
ReferencesetsSearchResource
, referencesetsSearch
, ReferencesetsSearch
, rsXgafv
, rsUploadProtocol
, rsPp
, rsAccessToken
, rsUploadType
, rsPayload
, rsBearerToken
, rsCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReferencesetsSearchResource =
"v1" :>
"referencesets" :>
"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] SearchReferenceSetsRequest :>
Post '[JSON] SearchReferenceSetsResponse
data ReferencesetsSearch = ReferencesetsSearch'
{ _rsXgafv :: !(Maybe Xgafv)
, _rsUploadProtocol :: !(Maybe Text)
, _rsPp :: !Bool
, _rsAccessToken :: !(Maybe Text)
, _rsUploadType :: !(Maybe Text)
, _rsPayload :: !SearchReferenceSetsRequest
, _rsBearerToken :: !(Maybe Text)
, _rsCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referencesetsSearch
:: SearchReferenceSetsRequest
-> ReferencesetsSearch
referencesetsSearch pRsPayload_ =
ReferencesetsSearch'
{ _rsXgafv = Nothing
, _rsUploadProtocol = Nothing
, _rsPp = True
, _rsAccessToken = Nothing
, _rsUploadType = Nothing
, _rsPayload = pRsPayload_
, _rsBearerToken = Nothing
, _rsCallback = Nothing
}
rsXgafv :: Lens' ReferencesetsSearch (Maybe Xgafv)
rsXgafv = lens _rsXgafv (\ s a -> s{_rsXgafv = a})
rsUploadProtocol :: Lens' ReferencesetsSearch (Maybe Text)
rsUploadProtocol
= lens _rsUploadProtocol
(\ s a -> s{_rsUploadProtocol = a})
rsPp :: Lens' ReferencesetsSearch Bool
rsPp = lens _rsPp (\ s a -> s{_rsPp = a})
rsAccessToken :: Lens' ReferencesetsSearch (Maybe Text)
rsAccessToken
= lens _rsAccessToken
(\ s a -> s{_rsAccessToken = a})
rsUploadType :: Lens' ReferencesetsSearch (Maybe Text)
rsUploadType
= lens _rsUploadType (\ s a -> s{_rsUploadType = a})
rsPayload :: Lens' ReferencesetsSearch SearchReferenceSetsRequest
rsPayload
= lens _rsPayload (\ s a -> s{_rsPayload = a})
rsBearerToken :: Lens' ReferencesetsSearch (Maybe Text)
rsBearerToken
= lens _rsBearerToken
(\ s a -> s{_rsBearerToken = a})
rsCallback :: Lens' ReferencesetsSearch (Maybe Text)
rsCallback
= lens _rsCallback (\ s a -> s{_rsCallback = a})
instance GoogleRequest ReferencesetsSearch where
type Rs ReferencesetsSearch =
SearchReferenceSetsResponse
type Scopes ReferencesetsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient ReferencesetsSearch'{..}
= go _rsXgafv _rsUploadProtocol (Just _rsPp)
_rsAccessToken
_rsUploadType
_rsBearerToken
_rsCallback
(Just AltJSON)
_rsPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy ReferencesetsSearchResource)
mempty