module Network.Google.Resource.Genomics.VariantSets.Search
(
VariantSetsSearchResource
, variantSetsSearch
, VariantSetsSearch
, vssXgafv
, vssUploadProtocol
, vssPp
, vssAccessToken
, vssUploadType
, vssPayload
, vssBearerToken
, vssCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantSetsSearchResource =
"v1" :>
"variantsets" :>
"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] SearchVariantSetsRequest :>
Post '[JSON] SearchVariantSetsResponse
data VariantSetsSearch = VariantSetsSearch'
{ _vssXgafv :: !(Maybe Xgafv)
, _vssUploadProtocol :: !(Maybe Text)
, _vssPp :: !Bool
, _vssAccessToken :: !(Maybe Text)
, _vssUploadType :: !(Maybe Text)
, _vssPayload :: !SearchVariantSetsRequest
, _vssBearerToken :: !(Maybe Text)
, _vssCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetsSearch
:: SearchVariantSetsRequest
-> VariantSetsSearch
variantSetsSearch pVssPayload_ =
VariantSetsSearch'
{ _vssXgafv = Nothing
, _vssUploadProtocol = Nothing
, _vssPp = True
, _vssAccessToken = Nothing
, _vssUploadType = Nothing
, _vssPayload = pVssPayload_
, _vssBearerToken = Nothing
, _vssCallback = Nothing
}
vssXgafv :: Lens' VariantSetsSearch (Maybe Xgafv)
vssXgafv = lens _vssXgafv (\ s a -> s{_vssXgafv = a})
vssUploadProtocol :: Lens' VariantSetsSearch (Maybe Text)
vssUploadProtocol
= lens _vssUploadProtocol
(\ s a -> s{_vssUploadProtocol = a})
vssPp :: Lens' VariantSetsSearch Bool
vssPp = lens _vssPp (\ s a -> s{_vssPp = a})
vssAccessToken :: Lens' VariantSetsSearch (Maybe Text)
vssAccessToken
= lens _vssAccessToken
(\ s a -> s{_vssAccessToken = a})
vssUploadType :: Lens' VariantSetsSearch (Maybe Text)
vssUploadType
= lens _vssUploadType
(\ s a -> s{_vssUploadType = a})
vssPayload :: Lens' VariantSetsSearch SearchVariantSetsRequest
vssPayload
= lens _vssPayload (\ s a -> s{_vssPayload = a})
vssBearerToken :: Lens' VariantSetsSearch (Maybe Text)
vssBearerToken
= lens _vssBearerToken
(\ s a -> s{_vssBearerToken = a})
vssCallback :: Lens' VariantSetsSearch (Maybe Text)
vssCallback
= lens _vssCallback (\ s a -> s{_vssCallback = a})
instance GoogleRequest VariantSetsSearch where
type Rs VariantSetsSearch = SearchVariantSetsResponse
type Scopes VariantSetsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient VariantSetsSearch'{..}
= go _vssXgafv _vssUploadProtocol (Just _vssPp)
_vssAccessToken
_vssUploadType
_vssBearerToken
_vssCallback
(Just AltJSON)
_vssPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy VariantSetsSearchResource)
mempty