module Network.Google.Resource.StorageTransfer.TransferJobs.Create
(
TransferJobsCreateResource
, transferJobsCreate
, TransferJobsCreate
, tjcXgafv
, tjcUploadProtocol
, tjcPp
, tjcAccessToken
, tjcUploadType
, tjcPayload
, tjcBearerToken
, tjcCallback
) where
import Network.Google.Prelude
import Network.Google.StorageTransfer.Types
type TransferJobsCreateResource =
"v1" :>
"transferJobs" :>
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] TransferJob :>
Post '[JSON] TransferJob
data TransferJobsCreate = TransferJobsCreate'
{ _tjcXgafv :: !(Maybe Text)
, _tjcUploadProtocol :: !(Maybe Text)
, _tjcPp :: !Bool
, _tjcAccessToken :: !(Maybe Text)
, _tjcUploadType :: !(Maybe Text)
, _tjcPayload :: !TransferJob
, _tjcBearerToken :: !(Maybe Text)
, _tjcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
transferJobsCreate
:: TransferJob
-> TransferJobsCreate
transferJobsCreate pTjcPayload_ =
TransferJobsCreate'
{ _tjcXgafv = Nothing
, _tjcUploadProtocol = Nothing
, _tjcPp = True
, _tjcAccessToken = Nothing
, _tjcUploadType = Nothing
, _tjcPayload = pTjcPayload_
, _tjcBearerToken = Nothing
, _tjcCallback = Nothing
}
tjcXgafv :: Lens' TransferJobsCreate (Maybe Text)
tjcXgafv = lens _tjcXgafv (\ s a -> s{_tjcXgafv = a})
tjcUploadProtocol :: Lens' TransferJobsCreate (Maybe Text)
tjcUploadProtocol
= lens _tjcUploadProtocol
(\ s a -> s{_tjcUploadProtocol = a})
tjcPp :: Lens' TransferJobsCreate Bool
tjcPp = lens _tjcPp (\ s a -> s{_tjcPp = a})
tjcAccessToken :: Lens' TransferJobsCreate (Maybe Text)
tjcAccessToken
= lens _tjcAccessToken
(\ s a -> s{_tjcAccessToken = a})
tjcUploadType :: Lens' TransferJobsCreate (Maybe Text)
tjcUploadType
= lens _tjcUploadType
(\ s a -> s{_tjcUploadType = a})
tjcPayload :: Lens' TransferJobsCreate TransferJob
tjcPayload
= lens _tjcPayload (\ s a -> s{_tjcPayload = a})
tjcBearerToken :: Lens' TransferJobsCreate (Maybe Text)
tjcBearerToken
= lens _tjcBearerToken
(\ s a -> s{_tjcBearerToken = a})
tjcCallback :: Lens' TransferJobsCreate (Maybe Text)
tjcCallback
= lens _tjcCallback (\ s a -> s{_tjcCallback = a})
instance GoogleRequest TransferJobsCreate where
type Rs TransferJobsCreate = TransferJob
type Scopes TransferJobsCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient TransferJobsCreate'{..}
= go _tjcXgafv _tjcUploadProtocol (Just _tjcPp)
_tjcAccessToken
_tjcUploadType
_tjcBearerToken
_tjcCallback
(Just AltJSON)
_tjcPayload
storageTransferService
where go
= buildClient
(Proxy :: Proxy TransferJobsCreateResource)
mempty