module Network.Google.Resource.Genomics.Variants.Create
(
VariantsCreateResource
, variantsCreate
, VariantsCreate
, vcXgafv
, vcUploadProtocol
, vcPp
, vcAccessToken
, vcUploadType
, vcPayload
, vcBearerToken
, vcCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantsCreateResource =
"v1" :>
"variants" :>
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] Variant :> Post '[JSON] Variant
data VariantsCreate = VariantsCreate'
{ _vcXgafv :: !(Maybe Text)
, _vcUploadProtocol :: !(Maybe Text)
, _vcPp :: !Bool
, _vcAccessToken :: !(Maybe Text)
, _vcUploadType :: !(Maybe Text)
, _vcPayload :: !Variant
, _vcBearerToken :: !(Maybe Text)
, _vcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantsCreate
:: Variant
-> VariantsCreate
variantsCreate pVcPayload_ =
VariantsCreate'
{ _vcXgafv = Nothing
, _vcUploadProtocol = Nothing
, _vcPp = True
, _vcAccessToken = Nothing
, _vcUploadType = Nothing
, _vcPayload = pVcPayload_
, _vcBearerToken = Nothing
, _vcCallback = Nothing
}
vcXgafv :: Lens' VariantsCreate (Maybe Text)
vcXgafv = lens _vcXgafv (\ s a -> s{_vcXgafv = a})
vcUploadProtocol :: Lens' VariantsCreate (Maybe Text)
vcUploadProtocol
= lens _vcUploadProtocol
(\ s a -> s{_vcUploadProtocol = a})
vcPp :: Lens' VariantsCreate Bool
vcPp = lens _vcPp (\ s a -> s{_vcPp = a})
vcAccessToken :: Lens' VariantsCreate (Maybe Text)
vcAccessToken
= lens _vcAccessToken
(\ s a -> s{_vcAccessToken = a})
vcUploadType :: Lens' VariantsCreate (Maybe Text)
vcUploadType
= lens _vcUploadType (\ s a -> s{_vcUploadType = a})
vcPayload :: Lens' VariantsCreate Variant
vcPayload
= lens _vcPayload (\ s a -> s{_vcPayload = a})
vcBearerToken :: Lens' VariantsCreate (Maybe Text)
vcBearerToken
= lens _vcBearerToken
(\ s a -> s{_vcBearerToken = a})
vcCallback :: Lens' VariantsCreate (Maybe Text)
vcCallback
= lens _vcCallback (\ s a -> s{_vcCallback = a})
instance GoogleRequest VariantsCreate where
type Rs VariantsCreate = Variant
type Scopes VariantsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient VariantsCreate'{..}
= go _vcXgafv _vcUploadProtocol (Just _vcPp)
_vcAccessToken
_vcUploadType
_vcBearerToken
_vcCallback
(Just AltJSON)
_vcPayload
genomicsService
where go
= buildClient (Proxy :: Proxy VariantsCreateResource)
mempty