module Network.Google.Resource.Datastore.Projects.Commit
(
ProjectsCommitResource
, projectsCommit
, ProjectsCommit
, pcXgafv
, pcUploadProtocol
, pcPp
, pcAccessToken
, pcUploadType
, pcPayload
, pcBearerToken
, pcProjectId
, pcCallback
) where
import Network.Google.Datastore.Types
import Network.Google.Prelude
type ProjectsCommitResource =
"v1" :>
"projects" :>
CaptureMode "projectId" "commit" 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 :>
ReqBody '[JSON] CommitRequest :>
Post '[JSON] CommitResponse
data ProjectsCommit = ProjectsCommit'
{ _pcXgafv :: !(Maybe Xgafv)
, _pcUploadProtocol :: !(Maybe Text)
, _pcPp :: !Bool
, _pcAccessToken :: !(Maybe Text)
, _pcUploadType :: !(Maybe Text)
, _pcPayload :: !CommitRequest
, _pcBearerToken :: !(Maybe Text)
, _pcProjectId :: !Text
, _pcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCommit
:: CommitRequest
-> Text
-> ProjectsCommit
projectsCommit pPcPayload_ pPcProjectId_ =
ProjectsCommit'
{ _pcXgafv = Nothing
, _pcUploadProtocol = Nothing
, _pcPp = True
, _pcAccessToken = Nothing
, _pcUploadType = Nothing
, _pcPayload = pPcPayload_
, _pcBearerToken = Nothing
, _pcProjectId = pPcProjectId_
, _pcCallback = Nothing
}
pcXgafv :: Lens' ProjectsCommit (Maybe Xgafv)
pcXgafv = lens _pcXgafv (\ s a -> s{_pcXgafv = a})
pcUploadProtocol :: Lens' ProjectsCommit (Maybe Text)
pcUploadProtocol
= lens _pcUploadProtocol
(\ s a -> s{_pcUploadProtocol = a})
pcPp :: Lens' ProjectsCommit Bool
pcPp = lens _pcPp (\ s a -> s{_pcPp = a})
pcAccessToken :: Lens' ProjectsCommit (Maybe Text)
pcAccessToken
= lens _pcAccessToken
(\ s a -> s{_pcAccessToken = a})
pcUploadType :: Lens' ProjectsCommit (Maybe Text)
pcUploadType
= lens _pcUploadType (\ s a -> s{_pcUploadType = a})
pcPayload :: Lens' ProjectsCommit CommitRequest
pcPayload
= lens _pcPayload (\ s a -> s{_pcPayload = a})
pcBearerToken :: Lens' ProjectsCommit (Maybe Text)
pcBearerToken
= lens _pcBearerToken
(\ s a -> s{_pcBearerToken = a})
pcProjectId :: Lens' ProjectsCommit Text
pcProjectId
= lens _pcProjectId (\ s a -> s{_pcProjectId = a})
pcCallback :: Lens' ProjectsCommit (Maybe Text)
pcCallback
= lens _pcCallback (\ s a -> s{_pcCallback = a})
instance GoogleRequest ProjectsCommit where
type Rs ProjectsCommit = CommitResponse
type Scopes ProjectsCommit =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/datastore"]
requestClient ProjectsCommit'{..}
= go _pcProjectId _pcXgafv _pcUploadProtocol
(Just _pcPp)
_pcAccessToken
_pcUploadType
_pcBearerToken
_pcCallback
(Just AltJSON)
_pcPayload
datastoreService
where go
= buildClient (Proxy :: Proxy ProjectsCommitResource)
mempty