module Network.Google.Resource.Genomics.Variants.Search
(
VariantsSearchResource
, variantsSearch
, VariantsSearch
, vsXgafv
, vsUploadProtocol
, vsPp
, vsAccessToken
, vsUploadType
, vsPayload
, vsBearerToken
, vsCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantsSearchResource =
"v1" :>
"variants" :>
"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] SearchVariantsRequest :>
Post '[JSON] SearchVariantsResponse
data VariantsSearch = VariantsSearch'
{ _vsXgafv :: !(Maybe Xgafv)
, _vsUploadProtocol :: !(Maybe Text)
, _vsPp :: !Bool
, _vsAccessToken :: !(Maybe Text)
, _vsUploadType :: !(Maybe Text)
, _vsPayload :: !SearchVariantsRequest
, _vsBearerToken :: !(Maybe Text)
, _vsCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantsSearch
:: SearchVariantsRequest
-> VariantsSearch
variantsSearch pVsPayload_ =
VariantsSearch'
{ _vsXgafv = Nothing
, _vsUploadProtocol = Nothing
, _vsPp = True
, _vsAccessToken = Nothing
, _vsUploadType = Nothing
, _vsPayload = pVsPayload_
, _vsBearerToken = Nothing
, _vsCallback = Nothing
}
vsXgafv :: Lens' VariantsSearch (Maybe Xgafv)
vsXgafv = lens _vsXgafv (\ s a -> s{_vsXgafv = a})
vsUploadProtocol :: Lens' VariantsSearch (Maybe Text)
vsUploadProtocol
= lens _vsUploadProtocol
(\ s a -> s{_vsUploadProtocol = a})
vsPp :: Lens' VariantsSearch Bool
vsPp = lens _vsPp (\ s a -> s{_vsPp = a})
vsAccessToken :: Lens' VariantsSearch (Maybe Text)
vsAccessToken
= lens _vsAccessToken
(\ s a -> s{_vsAccessToken = a})
vsUploadType :: Lens' VariantsSearch (Maybe Text)
vsUploadType
= lens _vsUploadType (\ s a -> s{_vsUploadType = a})
vsPayload :: Lens' VariantsSearch SearchVariantsRequest
vsPayload
= lens _vsPayload (\ s a -> s{_vsPayload = a})
vsBearerToken :: Lens' VariantsSearch (Maybe Text)
vsBearerToken
= lens _vsBearerToken
(\ s a -> s{_vsBearerToken = a})
vsCallback :: Lens' VariantsSearch (Maybe Text)
vsCallback
= lens _vsCallback (\ s a -> s{_vsCallback = a})
instance GoogleRequest VariantsSearch where
type Rs VariantsSearch = SearchVariantsResponse
type Scopes VariantsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient VariantsSearch'{..}
= go _vsXgafv _vsUploadProtocol (Just _vsPp)
_vsAccessToken
_vsUploadType
_vsBearerToken
_vsCallback
(Just AltJSON)
_vsPayload
genomicsService
where go
= buildClient (Proxy :: Proxy VariantsSearchResource)
mempty