module Network.Google.Resource.Genomics.ReadGroupSets.Search
(
ReadGroupSetsSearchResource
, readGroupSetsSearch
, ReadGroupSetsSearch
, rgssXgafv
, rgssUploadProtocol
, rgssPp
, rgssAccessToken
, rgssUploadType
, rgssPayload
, rgssBearerToken
, rgssCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReadGroupSetsSearchResource =
"v1" :>
"readgroupsets" :>
"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] SearchReadGroupSetsRequest :>
Post '[JSON] SearchReadGroupSetsResponse
data ReadGroupSetsSearch = ReadGroupSetsSearch
{ _rgssXgafv :: !(Maybe Text)
, _rgssUploadProtocol :: !(Maybe Text)
, _rgssPp :: !Bool
, _rgssAccessToken :: !(Maybe Text)
, _rgssUploadType :: !(Maybe Text)
, _rgssPayload :: !SearchReadGroupSetsRequest
, _rgssBearerToken :: !(Maybe Text)
, _rgssCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSetsSearch
:: SearchReadGroupSetsRequest
-> ReadGroupSetsSearch
readGroupSetsSearch pRgssPayload_ =
ReadGroupSetsSearch
{ _rgssXgafv = Nothing
, _rgssUploadProtocol = Nothing
, _rgssPp = True
, _rgssAccessToken = Nothing
, _rgssUploadType = Nothing
, _rgssPayload = pRgssPayload_
, _rgssBearerToken = Nothing
, _rgssCallback = Nothing
}
rgssXgafv :: Lens' ReadGroupSetsSearch (Maybe Text)
rgssXgafv
= lens _rgssXgafv (\ s a -> s{_rgssXgafv = a})
rgssUploadProtocol :: Lens' ReadGroupSetsSearch (Maybe Text)
rgssUploadProtocol
= lens _rgssUploadProtocol
(\ s a -> s{_rgssUploadProtocol = a})
rgssPp :: Lens' ReadGroupSetsSearch Bool
rgssPp = lens _rgssPp (\ s a -> s{_rgssPp = a})
rgssAccessToken :: Lens' ReadGroupSetsSearch (Maybe Text)
rgssAccessToken
= lens _rgssAccessToken
(\ s a -> s{_rgssAccessToken = a})
rgssUploadType :: Lens' ReadGroupSetsSearch (Maybe Text)
rgssUploadType
= lens _rgssUploadType
(\ s a -> s{_rgssUploadType = a})
rgssPayload :: Lens' ReadGroupSetsSearch SearchReadGroupSetsRequest
rgssPayload
= lens _rgssPayload (\ s a -> s{_rgssPayload = a})
rgssBearerToken :: Lens' ReadGroupSetsSearch (Maybe Text)
rgssBearerToken
= lens _rgssBearerToken
(\ s a -> s{_rgssBearerToken = a})
rgssCallback :: Lens' ReadGroupSetsSearch (Maybe Text)
rgssCallback
= lens _rgssCallback (\ s a -> s{_rgssCallback = a})
instance GoogleRequest ReadGroupSetsSearch where
type Rs ReadGroupSetsSearch =
SearchReadGroupSetsResponse
requestClient ReadGroupSetsSearch{..}
= go _rgssXgafv _rgssUploadProtocol (Just _rgssPp)
_rgssAccessToken
_rgssUploadType
_rgssBearerToken
_rgssCallback
(Just AltJSON)
_rgssPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy ReadGroupSetsSearchResource)
mempty