module Network.Google.Resource.IAM.Projects.ServiceAccounts.Update
(
ProjectsServiceAccountsUpdateResource
, projectsServiceAccountsUpdate
, ProjectsServiceAccountsUpdate
, psauXgafv
, psauUploadProtocol
, psauPp
, psauAccessToken
, psauUploadType
, psauPayload
, psauBearerToken
, psauName
, psauCallback
) where
import Network.Google.KnowledgeGraphSearch.Types
import Network.Google.Prelude
type ProjectsServiceAccountsUpdateResource =
"v1" :>
Capture "name" Text :>
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] ServiceAccount :>
Put '[JSON] ServiceAccount
data ProjectsServiceAccountsUpdate = ProjectsServiceAccountsUpdate'
{ _psauXgafv :: !(Maybe Text)
, _psauUploadProtocol :: !(Maybe Text)
, _psauPp :: !Bool
, _psauAccessToken :: !(Maybe Text)
, _psauUploadType :: !(Maybe Text)
, _psauPayload :: !ServiceAccount
, _psauBearerToken :: !(Maybe Text)
, _psauName :: !Text
, _psauCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsServiceAccountsUpdate
:: ServiceAccount
-> Text
-> ProjectsServiceAccountsUpdate
projectsServiceAccountsUpdate pPsauPayload_ pPsauName_ =
ProjectsServiceAccountsUpdate'
{ _psauXgafv = Nothing
, _psauUploadProtocol = Nothing
, _psauPp = True
, _psauAccessToken = Nothing
, _psauUploadType = Nothing
, _psauPayload = pPsauPayload_
, _psauBearerToken = Nothing
, _psauName = pPsauName_
, _psauCallback = Nothing
}
psauXgafv :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
psauXgafv
= lens _psauXgafv (\ s a -> s{_psauXgafv = a})
psauUploadProtocol :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
psauUploadProtocol
= lens _psauUploadProtocol
(\ s a -> s{_psauUploadProtocol = a})
psauPp :: Lens' ProjectsServiceAccountsUpdate Bool
psauPp = lens _psauPp (\ s a -> s{_psauPp = a})
psauAccessToken :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
psauAccessToken
= lens _psauAccessToken
(\ s a -> s{_psauAccessToken = a})
psauUploadType :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
psauUploadType
= lens _psauUploadType
(\ s a -> s{_psauUploadType = a})
psauPayload :: Lens' ProjectsServiceAccountsUpdate ServiceAccount
psauPayload
= lens _psauPayload (\ s a -> s{_psauPayload = a})
psauBearerToken :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
psauBearerToken
= lens _psauBearerToken
(\ s a -> s{_psauBearerToken = a})
psauName :: Lens' ProjectsServiceAccountsUpdate Text
psauName = lens _psauName (\ s a -> s{_psauName = a})
psauCallback :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
psauCallback
= lens _psauCallback (\ s a -> s{_psauCallback = a})
instance GoogleRequest ProjectsServiceAccountsUpdate
where
type Rs ProjectsServiceAccountsUpdate =
ServiceAccount
type Scopes ProjectsServiceAccountsUpdate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsServiceAccountsUpdate'{..}
= go _psauName _psauXgafv _psauUploadProtocol
(Just _psauPp)
_psauAccessToken
_psauUploadType
_psauBearerToken
_psauCallback
(Just AltJSON)
_psauPayload
knowledgeGraphSearchService
where go
= buildClient
(Proxy ::
Proxy ProjectsServiceAccountsUpdateResource)
mempty