module Network.Google.Resource.Genomics.References.Bases.List
(
ReferencesBasesListResource
, referencesBasesList
, ReferencesBasesList
, rblXgafv
, rblUploadProtocol
, rblPp
, rblAccessToken
, rblStart
, rblUploadType
, rblReferenceId
, rblBearerToken
, rblEnd
, rblPageToken
, rblPageSize
, rblCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReferencesBasesListResource =
"v1" :>
"references" :>
Capture "referenceId" Text :>
"bases" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "start" (Textual Int64) :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "end" (Textual Int64) :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListBasesResponse
data ReferencesBasesList = ReferencesBasesList
{ _rblXgafv :: !(Maybe Text)
, _rblUploadProtocol :: !(Maybe Text)
, _rblPp :: !Bool
, _rblAccessToken :: !(Maybe Text)
, _rblStart :: !(Maybe (Textual Int64))
, _rblUploadType :: !(Maybe Text)
, _rblReferenceId :: !Text
, _rblBearerToken :: !(Maybe Text)
, _rblEnd :: !(Maybe (Textual Int64))
, _rblPageToken :: !(Maybe Text)
, _rblPageSize :: !(Maybe (Textual Int32))
, _rblCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referencesBasesList
:: Text
-> ReferencesBasesList
referencesBasesList pRblReferenceId_ =
ReferencesBasesList
{ _rblXgafv = Nothing
, _rblUploadProtocol = Nothing
, _rblPp = True
, _rblAccessToken = Nothing
, _rblStart = Nothing
, _rblUploadType = Nothing
, _rblReferenceId = pRblReferenceId_
, _rblBearerToken = Nothing
, _rblEnd = Nothing
, _rblPageToken = Nothing
, _rblPageSize = Nothing
, _rblCallback = Nothing
}
rblXgafv :: Lens' ReferencesBasesList (Maybe Text)
rblXgafv = lens _rblXgafv (\ s a -> s{_rblXgafv = a})
rblUploadProtocol :: Lens' ReferencesBasesList (Maybe Text)
rblUploadProtocol
= lens _rblUploadProtocol
(\ s a -> s{_rblUploadProtocol = a})
rblPp :: Lens' ReferencesBasesList Bool
rblPp = lens _rblPp (\ s a -> s{_rblPp = a})
rblAccessToken :: Lens' ReferencesBasesList (Maybe Text)
rblAccessToken
= lens _rblAccessToken
(\ s a -> s{_rblAccessToken = a})
rblStart :: Lens' ReferencesBasesList (Maybe Int64)
rblStart
= lens _rblStart (\ s a -> s{_rblStart = a}) .
mapping _Coerce
rblUploadType :: Lens' ReferencesBasesList (Maybe Text)
rblUploadType
= lens _rblUploadType
(\ s a -> s{_rblUploadType = a})
rblReferenceId :: Lens' ReferencesBasesList Text
rblReferenceId
= lens _rblReferenceId
(\ s a -> s{_rblReferenceId = a})
rblBearerToken :: Lens' ReferencesBasesList (Maybe Text)
rblBearerToken
= lens _rblBearerToken
(\ s a -> s{_rblBearerToken = a})
rblEnd :: Lens' ReferencesBasesList (Maybe Int64)
rblEnd
= lens _rblEnd (\ s a -> s{_rblEnd = a}) .
mapping _Coerce
rblPageToken :: Lens' ReferencesBasesList (Maybe Text)
rblPageToken
= lens _rblPageToken (\ s a -> s{_rblPageToken = a})
rblPageSize :: Lens' ReferencesBasesList (Maybe Int32)
rblPageSize
= lens _rblPageSize (\ s a -> s{_rblPageSize = a}) .
mapping _Coerce
rblCallback :: Lens' ReferencesBasesList (Maybe Text)
rblCallback
= lens _rblCallback (\ s a -> s{_rblCallback = a})
instance GoogleRequest ReferencesBasesList where
type Rs ReferencesBasesList = ListBasesResponse
requestClient ReferencesBasesList{..}
= go _rblReferenceId _rblXgafv _rblUploadProtocol
(Just _rblPp)
_rblAccessToken
_rblStart
_rblUploadType
_rblBearerToken
_rblEnd
_rblPageToken
_rblPageSize
_rblCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy ReferencesBasesListResource)
mempty