module Network.Google.Resource.Genomics.CallSets.Search
(
CallSetsSearchResource
, callSetsSearch
, CallSetsSearch
, cssXgafv
, cssUploadProtocol
, cssPp
, cssAccessToken
, cssUploadType
, cssPayload
, cssBearerToken
, cssCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type CallSetsSearchResource =
"v1" :>
"callsets" :>
"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] SearchCallSetsRequest :>
Post '[JSON] SearchCallSetsResponse
data CallSetsSearch = CallSetsSearch'
{ _cssXgafv :: !(Maybe Xgafv)
, _cssUploadProtocol :: !(Maybe Text)
, _cssPp :: !Bool
, _cssAccessToken :: !(Maybe Text)
, _cssUploadType :: !(Maybe Text)
, _cssPayload :: !SearchCallSetsRequest
, _cssBearerToken :: !(Maybe Text)
, _cssCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
callSetsSearch
:: SearchCallSetsRequest
-> CallSetsSearch
callSetsSearch pCssPayload_ =
CallSetsSearch'
{ _cssXgafv = Nothing
, _cssUploadProtocol = Nothing
, _cssPp = True
, _cssAccessToken = Nothing
, _cssUploadType = Nothing
, _cssPayload = pCssPayload_
, _cssBearerToken = Nothing
, _cssCallback = Nothing
}
cssXgafv :: Lens' CallSetsSearch (Maybe Xgafv)
cssXgafv = lens _cssXgafv (\ s a -> s{_cssXgafv = a})
cssUploadProtocol :: Lens' CallSetsSearch (Maybe Text)
cssUploadProtocol
= lens _cssUploadProtocol
(\ s a -> s{_cssUploadProtocol = a})
cssPp :: Lens' CallSetsSearch Bool
cssPp = lens _cssPp (\ s a -> s{_cssPp = a})
cssAccessToken :: Lens' CallSetsSearch (Maybe Text)
cssAccessToken
= lens _cssAccessToken
(\ s a -> s{_cssAccessToken = a})
cssUploadType :: Lens' CallSetsSearch (Maybe Text)
cssUploadType
= lens _cssUploadType
(\ s a -> s{_cssUploadType = a})
cssPayload :: Lens' CallSetsSearch SearchCallSetsRequest
cssPayload
= lens _cssPayload (\ s a -> s{_cssPayload = a})
cssBearerToken :: Lens' CallSetsSearch (Maybe Text)
cssBearerToken
= lens _cssBearerToken
(\ s a -> s{_cssBearerToken = a})
cssCallback :: Lens' CallSetsSearch (Maybe Text)
cssCallback
= lens _cssCallback (\ s a -> s{_cssCallback = a})
instance GoogleRequest CallSetsSearch where
type Rs CallSetsSearch = SearchCallSetsResponse
type Scopes CallSetsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient CallSetsSearch'{..}
= go _cssXgafv _cssUploadProtocol (Just _cssPp)
_cssAccessToken
_cssUploadType
_cssBearerToken
_cssCallback
(Just AltJSON)
_cssPayload
genomicsService
where go
= buildClient (Proxy :: Proxy CallSetsSearchResource)
mempty