module Network.Google.Resource.Genomics.Reads.Stream
(
ReadsStreamResource
, readsStream
, ReadsStream
, rssXgafv
, rssUploadProtocol
, rssPp
, rssAccessToken
, rssUploadType
, rssPayload
, rssBearerToken
, rssCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReadsStreamResource =
"v1" :>
"reads:stream" :>
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] StreamReadsRequest :>
Post '[JSON] StreamReadsResponse
data ReadsStream = ReadsStream'
{ _rssXgafv :: !(Maybe Text)
, _rssUploadProtocol :: !(Maybe Text)
, _rssPp :: !Bool
, _rssAccessToken :: !(Maybe Text)
, _rssUploadType :: !(Maybe Text)
, _rssPayload :: !StreamReadsRequest
, _rssBearerToken :: !(Maybe Text)
, _rssCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readsStream
:: StreamReadsRequest
-> ReadsStream
readsStream pRssPayload_ =
ReadsStream'
{ _rssXgafv = Nothing
, _rssUploadProtocol = Nothing
, _rssPp = True
, _rssAccessToken = Nothing
, _rssUploadType = Nothing
, _rssPayload = pRssPayload_
, _rssBearerToken = Nothing
, _rssCallback = Nothing
}
rssXgafv :: Lens' ReadsStream (Maybe Text)
rssXgafv = lens _rssXgafv (\ s a -> s{_rssXgafv = a})
rssUploadProtocol :: Lens' ReadsStream (Maybe Text)
rssUploadProtocol
= lens _rssUploadProtocol
(\ s a -> s{_rssUploadProtocol = a})
rssPp :: Lens' ReadsStream Bool
rssPp = lens _rssPp (\ s a -> s{_rssPp = a})
rssAccessToken :: Lens' ReadsStream (Maybe Text)
rssAccessToken
= lens _rssAccessToken
(\ s a -> s{_rssAccessToken = a})
rssUploadType :: Lens' ReadsStream (Maybe Text)
rssUploadType
= lens _rssUploadType
(\ s a -> s{_rssUploadType = a})
rssPayload :: Lens' ReadsStream StreamReadsRequest
rssPayload
= lens _rssPayload (\ s a -> s{_rssPayload = a})
rssBearerToken :: Lens' ReadsStream (Maybe Text)
rssBearerToken
= lens _rssBearerToken
(\ s a -> s{_rssBearerToken = a})
rssCallback :: Lens' ReadsStream (Maybe Text)
rssCallback
= lens _rssCallback (\ s a -> s{_rssCallback = a})
instance GoogleRequest ReadsStream where
type Rs ReadsStream = StreamReadsResponse
type Scopes ReadsStream =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient ReadsStream'{..}
= go _rssXgafv _rssUploadProtocol (Just _rssPp)
_rssAccessToken
_rssUploadType
_rssBearerToken
_rssCallback
(Just AltJSON)
_rssPayload
genomicsService
where go
= buildClient (Proxy :: Proxy ReadsStreamResource)
mempty