module Network.Google.Resource.Genomics.Variants.Get
(
VariantsGetResource
, variantsGet
, VariantsGet
, vgXgafv
, vgUploadProtocol
, vgPp
, vgAccessToken
, vgUploadType
, vgBearerToken
, vgVariantId
, vgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantsGetResource =
"v1" :>
"variants" :>
Capture "variantId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Variant
data VariantsGet = VariantsGet'
{ _vgXgafv :: !(Maybe Xgafv)
, _vgUploadProtocol :: !(Maybe Text)
, _vgPp :: !Bool
, _vgAccessToken :: !(Maybe Text)
, _vgUploadType :: !(Maybe Text)
, _vgBearerToken :: !(Maybe Text)
, _vgVariantId :: !Text
, _vgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantsGet
:: Text
-> VariantsGet
variantsGet pVgVariantId_ =
VariantsGet'
{ _vgXgafv = Nothing
, _vgUploadProtocol = Nothing
, _vgPp = True
, _vgAccessToken = Nothing
, _vgUploadType = Nothing
, _vgBearerToken = Nothing
, _vgVariantId = pVgVariantId_
, _vgCallback = Nothing
}
vgXgafv :: Lens' VariantsGet (Maybe Xgafv)
vgXgafv = lens _vgXgafv (\ s a -> s{_vgXgafv = a})
vgUploadProtocol :: Lens' VariantsGet (Maybe Text)
vgUploadProtocol
= lens _vgUploadProtocol
(\ s a -> s{_vgUploadProtocol = a})
vgPp :: Lens' VariantsGet Bool
vgPp = lens _vgPp (\ s a -> s{_vgPp = a})
vgAccessToken :: Lens' VariantsGet (Maybe Text)
vgAccessToken
= lens _vgAccessToken
(\ s a -> s{_vgAccessToken = a})
vgUploadType :: Lens' VariantsGet (Maybe Text)
vgUploadType
= lens _vgUploadType (\ s a -> s{_vgUploadType = a})
vgBearerToken :: Lens' VariantsGet (Maybe Text)
vgBearerToken
= lens _vgBearerToken
(\ s a -> s{_vgBearerToken = a})
vgVariantId :: Lens' VariantsGet Text
vgVariantId
= lens _vgVariantId (\ s a -> s{_vgVariantId = a})
vgCallback :: Lens' VariantsGet (Maybe Text)
vgCallback
= lens _vgCallback (\ s a -> s{_vgCallback = a})
instance GoogleRequest VariantsGet where
type Rs VariantsGet = Variant
type Scopes VariantsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient VariantsGet'{..}
= go _vgVariantId _vgXgafv _vgUploadProtocol
(Just _vgPp)
_vgAccessToken
_vgUploadType
_vgBearerToken
_vgCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy VariantsGetResource)
mempty