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" Text :>
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 Text)
, _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 Text)
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
requestClient VariantSetsSearch{..}
= go _vssXgafv _vssUploadProtocol (Just _vssPp)
_vssAccessToken
_vssUploadType
_vssBearerToken
_vssCallback
(Just AltJSON)
_vssPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy VariantSetsSearchResource)
mempty