module Network.Google.Resource.StorageTransfer.GetGoogleServiceAccount
(
GetGoogleServiceAccountResource
, getGoogleServiceAccount
, GetGoogleServiceAccount
, ggsaXgafv
, ggsaUploadProtocol
, ggsaPp
, ggsaAccessToken
, ggsaUploadType
, ggsaBearerToken
, ggsaProjectId
, ggsaCallback
) where
import Network.Google.Prelude
import Network.Google.StorageTransfer.Types
type GetGoogleServiceAccountResource =
"v1:getGoogleServiceAccount" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GoogleServiceAccount
data GetGoogleServiceAccount = GetGoogleServiceAccount'
{ _ggsaXgafv :: !(Maybe Text)
, _ggsaUploadProtocol :: !(Maybe Text)
, _ggsaPp :: !Bool
, _ggsaAccessToken :: !(Maybe Text)
, _ggsaUploadType :: !(Maybe Text)
, _ggsaBearerToken :: !(Maybe Text)
, _ggsaProjectId :: !(Maybe Text)
, _ggsaCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
getGoogleServiceAccount
:: GetGoogleServiceAccount
getGoogleServiceAccount =
GetGoogleServiceAccount'
{ _ggsaXgafv = Nothing
, _ggsaUploadProtocol = Nothing
, _ggsaPp = True
, _ggsaAccessToken = Nothing
, _ggsaUploadType = Nothing
, _ggsaBearerToken = Nothing
, _ggsaProjectId = Nothing
, _ggsaCallback = Nothing
}
ggsaXgafv :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaXgafv
= lens _ggsaXgafv (\ s a -> s{_ggsaXgafv = a})
ggsaUploadProtocol :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaUploadProtocol
= lens _ggsaUploadProtocol
(\ s a -> s{_ggsaUploadProtocol = a})
ggsaPp :: Lens' GetGoogleServiceAccount Bool
ggsaPp = lens _ggsaPp (\ s a -> s{_ggsaPp = a})
ggsaAccessToken :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaAccessToken
= lens _ggsaAccessToken
(\ s a -> s{_ggsaAccessToken = a})
ggsaUploadType :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaUploadType
= lens _ggsaUploadType
(\ s a -> s{_ggsaUploadType = a})
ggsaBearerToken :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaBearerToken
= lens _ggsaBearerToken
(\ s a -> s{_ggsaBearerToken = a})
ggsaProjectId :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaProjectId
= lens _ggsaProjectId
(\ s a -> s{_ggsaProjectId = a})
ggsaCallback :: Lens' GetGoogleServiceAccount (Maybe Text)
ggsaCallback
= lens _ggsaCallback (\ s a -> s{_ggsaCallback = a})
instance GoogleRequest GetGoogleServiceAccount where
type Rs GetGoogleServiceAccount =
GoogleServiceAccount
type Scopes GetGoogleServiceAccount =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient GetGoogleServiceAccount'{..}
= go _ggsaXgafv _ggsaUploadProtocol (Just _ggsaPp)
_ggsaAccessToken
_ggsaUploadType
_ggsaBearerToken
_ggsaProjectId
_ggsaCallback
(Just AltJSON)
storageTransferService
where go
= buildClient
(Proxy :: Proxy GetGoogleServiceAccountResource)
mempty