module Network.Google.Resource.Genomics.Variants.Stream
(
VariantsStreamResource
, variantsStream
, VariantsStream
, vXgafv
, vUploadProtocol
, vPp
, vAccessToken
, vUploadType
, vPayload
, vBearerToken
, vCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantsStreamResource =
"v1" :>
"variants: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] StreamVariantsRequest :>
Post '[JSON] StreamVariantsResponse
data VariantsStream = VariantsStream'
{ _vXgafv :: !(Maybe Text)
, _vUploadProtocol :: !(Maybe Text)
, _vPp :: !Bool
, _vAccessToken :: !(Maybe Text)
, _vUploadType :: !(Maybe Text)
, _vPayload :: !StreamVariantsRequest
, _vBearerToken :: !(Maybe Text)
, _vCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantsStream
:: StreamVariantsRequest
-> VariantsStream
variantsStream pVPayload_ =
VariantsStream'
{ _vXgafv = Nothing
, _vUploadProtocol = Nothing
, _vPp = True
, _vAccessToken = Nothing
, _vUploadType = Nothing
, _vPayload = pVPayload_
, _vBearerToken = Nothing
, _vCallback = Nothing
}
vXgafv :: Lens' VariantsStream (Maybe Text)
vXgafv = lens _vXgafv (\ s a -> s{_vXgafv = a})
vUploadProtocol :: Lens' VariantsStream (Maybe Text)
vUploadProtocol
= lens _vUploadProtocol
(\ s a -> s{_vUploadProtocol = a})
vPp :: Lens' VariantsStream Bool
vPp = lens _vPp (\ s a -> s{_vPp = a})
vAccessToken :: Lens' VariantsStream (Maybe Text)
vAccessToken
= lens _vAccessToken (\ s a -> s{_vAccessToken = a})
vUploadType :: Lens' VariantsStream (Maybe Text)
vUploadType
= lens _vUploadType (\ s a -> s{_vUploadType = a})
vPayload :: Lens' VariantsStream StreamVariantsRequest
vPayload = lens _vPayload (\ s a -> s{_vPayload = a})
vBearerToken :: Lens' VariantsStream (Maybe Text)
vBearerToken
= lens _vBearerToken (\ s a -> s{_vBearerToken = a})
vCallback :: Lens' VariantsStream (Maybe Text)
vCallback
= lens _vCallback (\ s a -> s{_vCallback = a})
instance GoogleRequest VariantsStream where
type Rs VariantsStream = StreamVariantsResponse
type Scopes VariantsStream =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient VariantsStream'{..}
= go _vXgafv _vUploadProtocol (Just _vPp)
_vAccessToken
_vUploadType
_vBearerToken
_vCallback
(Just AltJSON)
_vPayload
genomicsService
where go
= buildClient (Proxy :: Proxy VariantsStreamResource)
mempty