module Network.Google.Resource.Genomics.References.Search
(
ReferencesSearchResource
, referencesSearch
, ReferencesSearch
, refXgafv
, refUploadProtocol
, refPp
, refAccessToken
, refUploadType
, refPayload
, refBearerToken
, refCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReferencesSearchResource =
"v1" :>
"references" :>
"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] SearchReferencesRequest :>
Post '[JSON] SearchReferencesResponse
data ReferencesSearch = ReferencesSearch
{ _refXgafv :: !(Maybe Text)
, _refUploadProtocol :: !(Maybe Text)
, _refPp :: !Bool
, _refAccessToken :: !(Maybe Text)
, _refUploadType :: !(Maybe Text)
, _refPayload :: !SearchReferencesRequest
, _refBearerToken :: !(Maybe Text)
, _refCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referencesSearch
:: SearchReferencesRequest
-> ReferencesSearch
referencesSearch pRefPayload_ =
ReferencesSearch
{ _refXgafv = Nothing
, _refUploadProtocol = Nothing
, _refPp = True
, _refAccessToken = Nothing
, _refUploadType = Nothing
, _refPayload = pRefPayload_
, _refBearerToken = Nothing
, _refCallback = Nothing
}
refXgafv :: Lens' ReferencesSearch (Maybe Text)
refXgafv = lens _refXgafv (\ s a -> s{_refXgafv = a})
refUploadProtocol :: Lens' ReferencesSearch (Maybe Text)
refUploadProtocol
= lens _refUploadProtocol
(\ s a -> s{_refUploadProtocol = a})
refPp :: Lens' ReferencesSearch Bool
refPp = lens _refPp (\ s a -> s{_refPp = a})
refAccessToken :: Lens' ReferencesSearch (Maybe Text)
refAccessToken
= lens _refAccessToken
(\ s a -> s{_refAccessToken = a})
refUploadType :: Lens' ReferencesSearch (Maybe Text)
refUploadType
= lens _refUploadType
(\ s a -> s{_refUploadType = a})
refPayload :: Lens' ReferencesSearch SearchReferencesRequest
refPayload
= lens _refPayload (\ s a -> s{_refPayload = a})
refBearerToken :: Lens' ReferencesSearch (Maybe Text)
refBearerToken
= lens _refBearerToken
(\ s a -> s{_refBearerToken = a})
refCallback :: Lens' ReferencesSearch (Maybe Text)
refCallback
= lens _refCallback (\ s a -> s{_refCallback = a})
instance GoogleRequest ReferencesSearch where
type Rs ReferencesSearch = SearchReferencesResponse
requestClient ReferencesSearch{..}
= go _refXgafv _refUploadProtocol (Just _refPp)
_refAccessToken
_refUploadType
_refBearerToken
_refCallback
(Just AltJSON)
_refPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy ReferencesSearchResource)
mempty