{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.IAM.Projects.ServiceAccounts.Update
(
ProjectsServiceAccountsUpdateResource
, projectsServiceAccountsUpdate
, ProjectsServiceAccountsUpdate
, proXgafv
, proUploadProtocol
, proAccessToken
, proUploadType
, proPayload
, proName
, proCallback
) where
import Network.Google.IAM.Types
import Network.Google.Prelude
type ProjectsServiceAccountsUpdateResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ServiceAccount :>
Put '[JSON] ServiceAccount
data ProjectsServiceAccountsUpdate =
ProjectsServiceAccountsUpdate'
{ _proXgafv :: !(Maybe Xgafv)
, _proUploadProtocol :: !(Maybe Text)
, _proAccessToken :: !(Maybe Text)
, _proUploadType :: !(Maybe Text)
, _proPayload :: !ServiceAccount
, _proName :: !Text
, _proCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsServiceAccountsUpdate
:: ServiceAccount
-> Text
-> ProjectsServiceAccountsUpdate
projectsServiceAccountsUpdate pProPayload_ pProName_ =
ProjectsServiceAccountsUpdate'
{ _proXgafv = Nothing
, _proUploadProtocol = Nothing
, _proAccessToken = Nothing
, _proUploadType = Nothing
, _proPayload = pProPayload_
, _proName = pProName_
, _proCallback = Nothing
}
proXgafv :: Lens' ProjectsServiceAccountsUpdate (Maybe Xgafv)
proXgafv = lens _proXgafv (\ s a -> s{_proXgafv = a})
proUploadProtocol :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
proUploadProtocol
= lens _proUploadProtocol
(\ s a -> s{_proUploadProtocol = a})
proAccessToken :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
proAccessToken
= lens _proAccessToken
(\ s a -> s{_proAccessToken = a})
proUploadType :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
proUploadType
= lens _proUploadType
(\ s a -> s{_proUploadType = a})
proPayload :: Lens' ProjectsServiceAccountsUpdate ServiceAccount
proPayload
= lens _proPayload (\ s a -> s{_proPayload = a})
proName :: Lens' ProjectsServiceAccountsUpdate Text
proName = lens _proName (\ s a -> s{_proName = a})
proCallback :: Lens' ProjectsServiceAccountsUpdate (Maybe Text)
proCallback
= lens _proCallback (\ s a -> s{_proCallback = a})
instance GoogleRequest ProjectsServiceAccountsUpdate
where
type Rs ProjectsServiceAccountsUpdate =
ServiceAccount
type Scopes ProjectsServiceAccountsUpdate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsServiceAccountsUpdate'{..}
= go _proName _proXgafv _proUploadProtocol
_proAccessToken
_proUploadType
_proCallback
(Just AltJSON)
_proPayload
iAMService
where go
= buildClient
(Proxy ::
Proxy ProjectsServiceAccountsUpdateResource)
mempty