{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.IAM.Types.Product where
import Network.Google.IAM.Types.Sum
import Network.Google.Prelude
newtype LintPolicyResponse =
LintPolicyResponse'
{ _lprLintResults :: Maybe [LintResult]
}
deriving (Eq, Show, Data, Typeable, Generic)
lintPolicyResponse
:: LintPolicyResponse
lintPolicyResponse = LintPolicyResponse' {_lprLintResults = Nothing}
lprLintResults :: Lens' LintPolicyResponse [LintResult]
lprLintResults
= lens _lprLintResults
(\ s a -> s{_lprLintResults = a})
. _Default
. _Coerce
instance FromJSON LintPolicyResponse where
parseJSON
= withObject "LintPolicyResponse"
(\ o ->
LintPolicyResponse' <$>
(o .:? "lintResults" .!= mempty))
instance ToJSON LintPolicyResponse where
toJSON LintPolicyResponse'{..}
= object
(catMaybes [("lintResults" .=) <$> _lprLintResults])
newtype UndeleteRoleRequest =
UndeleteRoleRequest'
{ _urrEtag :: Maybe Bytes
}
deriving (Eq, Show, Data, Typeable, Generic)
undeleteRoleRequest
:: UndeleteRoleRequest
undeleteRoleRequest = UndeleteRoleRequest' {_urrEtag = Nothing}
urrEtag :: Lens' UndeleteRoleRequest (Maybe ByteString)
urrEtag
= lens _urrEtag (\ s a -> s{_urrEtag = a}) .
mapping _Bytes
instance FromJSON UndeleteRoleRequest where
parseJSON
= withObject "UndeleteRoleRequest"
(\ o -> UndeleteRoleRequest' <$> (o .:? "etag"))
instance ToJSON UndeleteRoleRequest where
toJSON UndeleteRoleRequest'{..}
= object (catMaybes [("etag" .=) <$> _urrEtag])
data AuditConfig =
AuditConfig'
{ _acService :: !(Maybe Text)
, _acAuditLogConfigs :: !(Maybe [AuditLogConfig])
}
deriving (Eq, Show, Data, Typeable, Generic)
auditConfig
:: AuditConfig
auditConfig = AuditConfig' {_acService = Nothing, _acAuditLogConfigs = Nothing}
acService :: Lens' AuditConfig (Maybe Text)
acService
= lens _acService (\ s a -> s{_acService = a})
acAuditLogConfigs :: Lens' AuditConfig [AuditLogConfig]
acAuditLogConfigs
= lens _acAuditLogConfigs
(\ s a -> s{_acAuditLogConfigs = a})
. _Default
. _Coerce
instance FromJSON AuditConfig where
parseJSON
= withObject "AuditConfig"
(\ o ->
AuditConfig' <$>
(o .:? "service") <*>
(o .:? "auditLogConfigs" .!= mempty))
instance ToJSON AuditConfig where
toJSON AuditConfig'{..}
= object
(catMaybes
[("service" .=) <$> _acService,
("auditLogConfigs" .=) <$> _acAuditLogConfigs])
data Expr =
Expr'
{ _eLocation :: !(Maybe Text)
, _eExpression :: !(Maybe Text)
, _eTitle :: !(Maybe Text)
, _eDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
expr
:: Expr
expr =
Expr'
{ _eLocation = Nothing
, _eExpression = Nothing
, _eTitle = Nothing
, _eDescription = Nothing
}
eLocation :: Lens' Expr (Maybe Text)
eLocation
= lens _eLocation (\ s a -> s{_eLocation = a})
eExpression :: Lens' Expr (Maybe Text)
eExpression
= lens _eExpression (\ s a -> s{_eExpression = a})
eTitle :: Lens' Expr (Maybe Text)
eTitle = lens _eTitle (\ s a -> s{_eTitle = a})
eDescription :: Lens' Expr (Maybe Text)
eDescription
= lens _eDescription (\ s a -> s{_eDescription = a})
instance FromJSON Expr where
parseJSON
= withObject "Expr"
(\ o ->
Expr' <$>
(o .:? "location") <*> (o .:? "expression") <*>
(o .:? "title")
<*> (o .:? "description"))
instance ToJSON Expr where
toJSON Expr'{..}
= object
(catMaybes
[("location" .=) <$> _eLocation,
("expression" .=) <$> _eExpression,
("title" .=) <$> _eTitle,
("description" .=) <$> _eDescription])
data UndeleteServiceAccountRequest =
UndeleteServiceAccountRequest'
deriving (Eq, Show, Data, Typeable, Generic)
undeleteServiceAccountRequest
:: UndeleteServiceAccountRequest
undeleteServiceAccountRequest = UndeleteServiceAccountRequest'
instance FromJSON UndeleteServiceAccountRequest where
parseJSON
= withObject "UndeleteServiceAccountRequest"
(\ o -> pure UndeleteServiceAccountRequest')
instance ToJSON UndeleteServiceAccountRequest where
toJSON = const emptyObject
newtype AuditableService =
AuditableService'
{ _asName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
auditableService
:: AuditableService
auditableService = AuditableService' {_asName = Nothing}
asName :: Lens' AuditableService (Maybe Text)
asName = lens _asName (\ s a -> s{_asName = a})
instance FromJSON AuditableService where
parseJSON
= withObject "AuditableService"
(\ o -> AuditableService' <$> (o .:? "name"))
instance ToJSON AuditableService where
toJSON AuditableService'{..}
= object (catMaybes [("name" .=) <$> _asName])
newtype QueryAuditableServicesRequest =
QueryAuditableServicesRequest'
{ _qasrFullResourceName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
queryAuditableServicesRequest
:: QueryAuditableServicesRequest
queryAuditableServicesRequest =
QueryAuditableServicesRequest' {_qasrFullResourceName = Nothing}
qasrFullResourceName :: Lens' QueryAuditableServicesRequest (Maybe Text)
qasrFullResourceName
= lens _qasrFullResourceName
(\ s a -> s{_qasrFullResourceName = a})
instance FromJSON QueryAuditableServicesRequest where
parseJSON
= withObject "QueryAuditableServicesRequest"
(\ o ->
QueryAuditableServicesRequest' <$>
(o .:? "fullResourceName"))
instance ToJSON QueryAuditableServicesRequest where
toJSON QueryAuditableServicesRequest'{..}
= object
(catMaybes
[("fullResourceName" .=) <$> _qasrFullResourceName])
data Empty =
Empty'
deriving (Eq, Show, Data, Typeable, Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
data QueryTestablePermissionsResponse =
QueryTestablePermissionsResponse'
{ _qtprNextPageToken :: !(Maybe Text)
, _qtprPermissions :: !(Maybe [Permission])
}
deriving (Eq, Show, Data, Typeable, Generic)
queryTestablePermissionsResponse
:: QueryTestablePermissionsResponse
queryTestablePermissionsResponse =
QueryTestablePermissionsResponse'
{_qtprNextPageToken = Nothing, _qtprPermissions = Nothing}
qtprNextPageToken :: Lens' QueryTestablePermissionsResponse (Maybe Text)
qtprNextPageToken
= lens _qtprNextPageToken
(\ s a -> s{_qtprNextPageToken = a})
qtprPermissions :: Lens' QueryTestablePermissionsResponse [Permission]
qtprPermissions
= lens _qtprPermissions
(\ s a -> s{_qtprPermissions = a})
. _Default
. _Coerce
instance FromJSON QueryTestablePermissionsResponse
where
parseJSON
= withObject "QueryTestablePermissionsResponse"
(\ o ->
QueryTestablePermissionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "permissions" .!= mempty))
instance ToJSON QueryTestablePermissionsResponse
where
toJSON QueryTestablePermissionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _qtprNextPageToken,
("permissions" .=) <$> _qtprPermissions])
newtype AuditData =
AuditData'
{ _adPolicyDelta :: Maybe PolicyDelta
}
deriving (Eq, Show, Data, Typeable, Generic)
auditData
:: AuditData
auditData = AuditData' {_adPolicyDelta = Nothing}
adPolicyDelta :: Lens' AuditData (Maybe PolicyDelta)
adPolicyDelta
= lens _adPolicyDelta
(\ s a -> s{_adPolicyDelta = a})
instance FromJSON AuditData where
parseJSON
= withObject "AuditData"
(\ o -> AuditData' <$> (o .:? "policyDelta"))
instance ToJSON AuditData where
toJSON AuditData'{..}
= object
(catMaybes [("policyDelta" .=) <$> _adPolicyDelta])
newtype QueryAuditableServicesResponse =
QueryAuditableServicesResponse'
{ _qasrServices :: Maybe [AuditableService]
}
deriving (Eq, Show, Data, Typeable, Generic)
queryAuditableServicesResponse
:: QueryAuditableServicesResponse
queryAuditableServicesResponse =
QueryAuditableServicesResponse' {_qasrServices = Nothing}
qasrServices :: Lens' QueryAuditableServicesResponse [AuditableService]
qasrServices
= lens _qasrServices (\ s a -> s{_qasrServices = a})
. _Default
. _Coerce
instance FromJSON QueryAuditableServicesResponse
where
parseJSON
= withObject "QueryAuditableServicesResponse"
(\ o ->
QueryAuditableServicesResponse' <$>
(o .:? "services" .!= mempty))
instance ToJSON QueryAuditableServicesResponse where
toJSON QueryAuditableServicesResponse'{..}
= object
(catMaybes [("services" .=) <$> _qasrServices])
data ServiceAccountKey =
ServiceAccountKey'
{ _sakValidAfterTime :: !(Maybe DateTime')
, _sakPrivateKeyData :: !(Maybe Bytes)
, _sakPublicKeyData :: !(Maybe Bytes)
, _sakName :: !(Maybe Text)
, _sakPrivateKeyType :: !(Maybe ServiceAccountKeyPrivateKeyType)
, _sakValidBeforeTime :: !(Maybe DateTime')
, _sakKeyAlgorithm :: !(Maybe ServiceAccountKeyKeyAlgorithm)
}
deriving (Eq, Show, Data, Typeable, Generic)
serviceAccountKey
:: ServiceAccountKey
serviceAccountKey =
ServiceAccountKey'
{ _sakValidAfterTime = Nothing
, _sakPrivateKeyData = Nothing
, _sakPublicKeyData = Nothing
, _sakName = Nothing
, _sakPrivateKeyType = Nothing
, _sakValidBeforeTime = Nothing
, _sakKeyAlgorithm = Nothing
}
sakValidAfterTime :: Lens' ServiceAccountKey (Maybe UTCTime)
sakValidAfterTime
= lens _sakValidAfterTime
(\ s a -> s{_sakValidAfterTime = a})
. mapping _DateTime
sakPrivateKeyData :: Lens' ServiceAccountKey (Maybe ByteString)
sakPrivateKeyData
= lens _sakPrivateKeyData
(\ s a -> s{_sakPrivateKeyData = a})
. mapping _Bytes
sakPublicKeyData :: Lens' ServiceAccountKey (Maybe ByteString)
sakPublicKeyData
= lens _sakPublicKeyData
(\ s a -> s{_sakPublicKeyData = a})
. mapping _Bytes
sakName :: Lens' ServiceAccountKey (Maybe Text)
sakName = lens _sakName (\ s a -> s{_sakName = a})
sakPrivateKeyType :: Lens' ServiceAccountKey (Maybe ServiceAccountKeyPrivateKeyType)
sakPrivateKeyType
= lens _sakPrivateKeyType
(\ s a -> s{_sakPrivateKeyType = a})
sakValidBeforeTime :: Lens' ServiceAccountKey (Maybe UTCTime)
sakValidBeforeTime
= lens _sakValidBeforeTime
(\ s a -> s{_sakValidBeforeTime = a})
. mapping _DateTime
sakKeyAlgorithm :: Lens' ServiceAccountKey (Maybe ServiceAccountKeyKeyAlgorithm)
sakKeyAlgorithm
= lens _sakKeyAlgorithm
(\ s a -> s{_sakKeyAlgorithm = a})
instance FromJSON ServiceAccountKey where
parseJSON
= withObject "ServiceAccountKey"
(\ o ->
ServiceAccountKey' <$>
(o .:? "validAfterTime") <*> (o .:? "privateKeyData")
<*> (o .:? "publicKeyData")
<*> (o .:? "name")
<*> (o .:? "privateKeyType")
<*> (o .:? "validBeforeTime")
<*> (o .:? "keyAlgorithm"))
instance ToJSON ServiceAccountKey where
toJSON ServiceAccountKey'{..}
= object
(catMaybes
[("validAfterTime" .=) <$> _sakValidAfterTime,
("privateKeyData" .=) <$> _sakPrivateKeyData,
("publicKeyData" .=) <$> _sakPublicKeyData,
("name" .=) <$> _sakName,
("privateKeyType" .=) <$> _sakPrivateKeyType,
("validBeforeTime" .=) <$> _sakValidBeforeTime,
("keyAlgorithm" .=) <$> _sakKeyAlgorithm])
data LintResult =
LintResult'
{ _lrValidationUnitName :: !(Maybe Text)
, _lrDebugMessage :: !(Maybe Text)
, _lrLocationOffSet :: !(Maybe (Textual Int32))
, _lrSeverity :: !(Maybe LintResultSeverity)
, _lrBindingOrdinal :: !(Maybe (Textual Int32))
, _lrFieldName :: !(Maybe Text)
, _lrLevel :: !(Maybe LintResultLevel)
}
deriving (Eq, Show, Data, Typeable, Generic)
lintResult
:: LintResult
lintResult =
LintResult'
{ _lrValidationUnitName = Nothing
, _lrDebugMessage = Nothing
, _lrLocationOffSet = Nothing
, _lrSeverity = Nothing
, _lrBindingOrdinal = Nothing
, _lrFieldName = Nothing
, _lrLevel = Nothing
}
lrValidationUnitName :: Lens' LintResult (Maybe Text)
lrValidationUnitName
= lens _lrValidationUnitName
(\ s a -> s{_lrValidationUnitName = a})
lrDebugMessage :: Lens' LintResult (Maybe Text)
lrDebugMessage
= lens _lrDebugMessage
(\ s a -> s{_lrDebugMessage = a})
lrLocationOffSet :: Lens' LintResult (Maybe Int32)
lrLocationOffSet
= lens _lrLocationOffSet
(\ s a -> s{_lrLocationOffSet = a})
. mapping _Coerce
lrSeverity :: Lens' LintResult (Maybe LintResultSeverity)
lrSeverity
= lens _lrSeverity (\ s a -> s{_lrSeverity = a})
lrBindingOrdinal :: Lens' LintResult (Maybe Int32)
lrBindingOrdinal
= lens _lrBindingOrdinal
(\ s a -> s{_lrBindingOrdinal = a})
. mapping _Coerce
lrFieldName :: Lens' LintResult (Maybe Text)
lrFieldName
= lens _lrFieldName (\ s a -> s{_lrFieldName = a})
lrLevel :: Lens' LintResult (Maybe LintResultLevel)
lrLevel = lens _lrLevel (\ s a -> s{_lrLevel = a})
instance FromJSON LintResult where
parseJSON
= withObject "LintResult"
(\ o ->
LintResult' <$>
(o .:? "validationUnitName") <*>
(o .:? "debugMessage")
<*> (o .:? "locationOffset")
<*> (o .:? "severity")
<*> (o .:? "bindingOrdinal")
<*> (o .:? "fieldName")
<*> (o .:? "level"))
instance ToJSON LintResult where
toJSON LintResult'{..}
= object
(catMaybes
[("validationUnitName" .=) <$> _lrValidationUnitName,
("debugMessage" .=) <$> _lrDebugMessage,
("locationOffset" .=) <$> _lrLocationOffSet,
("severity" .=) <$> _lrSeverity,
("bindingOrdinal" .=) <$> _lrBindingOrdinal,
("fieldName" .=) <$> _lrFieldName,
("level" .=) <$> _lrLevel])
data CreateServiceAccountKeyRequest =
CreateServiceAccountKeyRequest'
{ _csakrPrivateKeyType :: !(Maybe CreateServiceAccountKeyRequestPrivateKeyType)
, _csakrKeyAlgorithm :: !(Maybe CreateServiceAccountKeyRequestKeyAlgorithm)
}
deriving (Eq, Show, Data, Typeable, Generic)
createServiceAccountKeyRequest
:: CreateServiceAccountKeyRequest
createServiceAccountKeyRequest =
CreateServiceAccountKeyRequest'
{_csakrPrivateKeyType = Nothing, _csakrKeyAlgorithm = Nothing}
csakrPrivateKeyType :: Lens' CreateServiceAccountKeyRequest (Maybe CreateServiceAccountKeyRequestPrivateKeyType)
csakrPrivateKeyType
= lens _csakrPrivateKeyType
(\ s a -> s{_csakrPrivateKeyType = a})
csakrKeyAlgorithm :: Lens' CreateServiceAccountKeyRequest (Maybe CreateServiceAccountKeyRequestKeyAlgorithm)
csakrKeyAlgorithm
= lens _csakrKeyAlgorithm
(\ s a -> s{_csakrKeyAlgorithm = a})
instance FromJSON CreateServiceAccountKeyRequest
where
parseJSON
= withObject "CreateServiceAccountKeyRequest"
(\ o ->
CreateServiceAccountKeyRequest' <$>
(o .:? "privateKeyType") <*> (o .:? "keyAlgorithm"))
instance ToJSON CreateServiceAccountKeyRequest where
toJSON CreateServiceAccountKeyRequest'{..}
= object
(catMaybes
[("privateKeyType" .=) <$> _csakrPrivateKeyType,
("keyAlgorithm" .=) <$> _csakrKeyAlgorithm])
data SetIAMPolicyRequest =
SetIAMPolicyRequest'
{ _siprUpdateMask :: !(Maybe GFieldMask)
, _siprPolicy :: !(Maybe Policy)
}
deriving (Eq, Show, Data, Typeable, Generic)
setIAMPolicyRequest
:: SetIAMPolicyRequest
setIAMPolicyRequest =
SetIAMPolicyRequest' {_siprUpdateMask = Nothing, _siprPolicy = Nothing}
siprUpdateMask :: Lens' SetIAMPolicyRequest (Maybe GFieldMask)
siprUpdateMask
= lens _siprUpdateMask
(\ s a -> s{_siprUpdateMask = a})
siprPolicy :: Lens' SetIAMPolicyRequest (Maybe Policy)
siprPolicy
= lens _siprPolicy (\ s a -> s{_siprPolicy = a})
instance FromJSON SetIAMPolicyRequest where
parseJSON
= withObject "SetIAMPolicyRequest"
(\ o ->
SetIAMPolicyRequest' <$>
(o .:? "updateMask") <*> (o .:? "policy"))
instance ToJSON SetIAMPolicyRequest where
toJSON SetIAMPolicyRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _siprUpdateMask,
("policy" .=) <$> _siprPolicy])
data SignJwtResponse =
SignJwtResponse'
{ _sjrKeyId :: !(Maybe Text)
, _sjrSignedJwt :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
signJwtResponse
:: SignJwtResponse
signJwtResponse =
SignJwtResponse' {_sjrKeyId = Nothing, _sjrSignedJwt = Nothing}
sjrKeyId :: Lens' SignJwtResponse (Maybe Text)
sjrKeyId = lens _sjrKeyId (\ s a -> s{_sjrKeyId = a})
sjrSignedJwt :: Lens' SignJwtResponse (Maybe Text)
sjrSignedJwt
= lens _sjrSignedJwt (\ s a -> s{_sjrSignedJwt = a})
instance FromJSON SignJwtResponse where
parseJSON
= withObject "SignJwtResponse"
(\ o ->
SignJwtResponse' <$>
(o .:? "keyId") <*> (o .:? "signedJwt"))
instance ToJSON SignJwtResponse where
toJSON SignJwtResponse'{..}
= object
(catMaybes
[("keyId" .=) <$> _sjrKeyId,
("signedJwt" .=) <$> _sjrSignedJwt])
data BindingDelta =
BindingDelta'
{ _bdAction :: !(Maybe BindingDeltaAction)
, _bdRole :: !(Maybe Text)
, _bdMember :: !(Maybe Text)
, _bdCondition :: !(Maybe Expr)
}
deriving (Eq, Show, Data, Typeable, Generic)
bindingDelta
:: BindingDelta
bindingDelta =
BindingDelta'
{ _bdAction = Nothing
, _bdRole = Nothing
, _bdMember = Nothing
, _bdCondition = Nothing
}
bdAction :: Lens' BindingDelta (Maybe BindingDeltaAction)
bdAction = lens _bdAction (\ s a -> s{_bdAction = a})
bdRole :: Lens' BindingDelta (Maybe Text)
bdRole = lens _bdRole (\ s a -> s{_bdRole = a})
bdMember :: Lens' BindingDelta (Maybe Text)
bdMember = lens _bdMember (\ s a -> s{_bdMember = a})
bdCondition :: Lens' BindingDelta (Maybe Expr)
bdCondition
= lens _bdCondition (\ s a -> s{_bdCondition = a})
instance FromJSON BindingDelta where
parseJSON
= withObject "BindingDelta"
(\ o ->
BindingDelta' <$>
(o .:? "action") <*> (o .:? "role") <*>
(o .:? "member")
<*> (o .:? "condition"))
instance ToJSON BindingDelta where
toJSON BindingDelta'{..}
= object
(catMaybes
[("action" .=) <$> _bdAction,
("role" .=) <$> _bdRole, ("member" .=) <$> _bdMember,
("condition" .=) <$> _bdCondition])
newtype LintPolicyRequestContext =
LintPolicyRequestContext'
{ _lprcAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
lintPolicyRequestContext
:: HashMap Text JSONValue
-> LintPolicyRequestContext
lintPolicyRequestContext pLprcAddtional_ =
LintPolicyRequestContext' {_lprcAddtional = _Coerce # pLprcAddtional_}
lprcAddtional :: Lens' LintPolicyRequestContext (HashMap Text JSONValue)
lprcAddtional
= lens _lprcAddtional
(\ s a -> s{_lprcAddtional = a})
. _Coerce
instance FromJSON LintPolicyRequestContext where
parseJSON
= withObject "LintPolicyRequestContext"
(\ o ->
LintPolicyRequestContext' <$> (parseJSONObject o))
instance ToJSON LintPolicyRequestContext where
toJSON = toJSON . _lprcAddtional
newtype SignBlobRequest =
SignBlobRequest'
{ _sbrBytesToSign :: Maybe Bytes
}
deriving (Eq, Show, Data, Typeable, Generic)
signBlobRequest
:: SignBlobRequest
signBlobRequest = SignBlobRequest' {_sbrBytesToSign = Nothing}
sbrBytesToSign :: Lens' SignBlobRequest (Maybe ByteString)
sbrBytesToSign
= lens _sbrBytesToSign
(\ s a -> s{_sbrBytesToSign = a})
. mapping _Bytes
instance FromJSON SignBlobRequest where
parseJSON
= withObject "SignBlobRequest"
(\ o -> SignBlobRequest' <$> (o .:? "bytesToSign"))
instance ToJSON SignBlobRequest where
toJSON SignBlobRequest'{..}
= object
(catMaybes [("bytesToSign" .=) <$> _sbrBytesToSign])
newtype ListServiceAccountKeysResponse =
ListServiceAccountKeysResponse'
{ _lsakrKeys :: Maybe [ServiceAccountKey]
}
deriving (Eq, Show, Data, Typeable, Generic)
listServiceAccountKeysResponse
:: ListServiceAccountKeysResponse
listServiceAccountKeysResponse =
ListServiceAccountKeysResponse' {_lsakrKeys = Nothing}
lsakrKeys :: Lens' ListServiceAccountKeysResponse [ServiceAccountKey]
lsakrKeys
= lens _lsakrKeys (\ s a -> s{_lsakrKeys = a}) .
_Default
. _Coerce
instance FromJSON ListServiceAccountKeysResponse
where
parseJSON
= withObject "ListServiceAccountKeysResponse"
(\ o ->
ListServiceAccountKeysResponse' <$>
(o .:? "keys" .!= mempty))
instance ToJSON ListServiceAccountKeysResponse where
toJSON ListServiceAccountKeysResponse'{..}
= object (catMaybes [("keys" .=) <$> _lsakrKeys])
data EnableServiceAccountRequest =
EnableServiceAccountRequest'
deriving (Eq, Show, Data, Typeable, Generic)
enableServiceAccountRequest
:: EnableServiceAccountRequest
enableServiceAccountRequest = EnableServiceAccountRequest'
instance FromJSON EnableServiceAccountRequest where
parseJSON
= withObject "EnableServiceAccountRequest"
(\ o -> pure EnableServiceAccountRequest')
instance ToJSON EnableServiceAccountRequest where
toJSON = const emptyObject
data Role =
Role'
{ _rStage :: !(Maybe RoleStage)
, _rEtag :: !(Maybe Bytes)
, _rIncludedPermissions :: !(Maybe [Text])
, _rName :: !(Maybe Text)
, _rDeleted :: !(Maybe Bool)
, _rTitle :: !(Maybe Text)
, _rDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
role'
:: Role
role' =
Role'
{ _rStage = Nothing
, _rEtag = Nothing
, _rIncludedPermissions = Nothing
, _rName = Nothing
, _rDeleted = Nothing
, _rTitle = Nothing
, _rDescription = Nothing
}
rStage :: Lens' Role (Maybe RoleStage)
rStage = lens _rStage (\ s a -> s{_rStage = a})
rEtag :: Lens' Role (Maybe ByteString)
rEtag
= lens _rEtag (\ s a -> s{_rEtag = a}) .
mapping _Bytes
rIncludedPermissions :: Lens' Role [Text]
rIncludedPermissions
= lens _rIncludedPermissions
(\ s a -> s{_rIncludedPermissions = a})
. _Default
. _Coerce
rName :: Lens' Role (Maybe Text)
rName = lens _rName (\ s a -> s{_rName = a})
rDeleted :: Lens' Role (Maybe Bool)
rDeleted = lens _rDeleted (\ s a -> s{_rDeleted = a})
rTitle :: Lens' Role (Maybe Text)
rTitle = lens _rTitle (\ s a -> s{_rTitle = a})
rDescription :: Lens' Role (Maybe Text)
rDescription
= lens _rDescription (\ s a -> s{_rDescription = a})
instance FromJSON Role where
parseJSON
= withObject "Role"
(\ o ->
Role' <$>
(o .:? "stage") <*> (o .:? "etag") <*>
(o .:? "includedPermissions" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "deleted")
<*> (o .:? "title")
<*> (o .:? "description"))
instance ToJSON Role where
toJSON Role'{..}
= object
(catMaybes
[("stage" .=) <$> _rStage, ("etag" .=) <$> _rEtag,
("includedPermissions" .=) <$> _rIncludedPermissions,
("name" .=) <$> _rName, ("deleted" .=) <$> _rDeleted,
("title" .=) <$> _rTitle,
("description" .=) <$> _rDescription])
data ServiceAccount =
ServiceAccount'
{ _saEmail :: !(Maybe Text)
, _saEtag :: !(Maybe Bytes)
, _saDisabled :: !(Maybe Bool)
, _saUniqueId :: !(Maybe Text)
, _saName :: !(Maybe Text)
, _saDisplayName :: !(Maybe Text)
, _saProjectId :: !(Maybe Text)
, _saDescription :: !(Maybe Text)
, _saOAuth2ClientId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
serviceAccount
:: ServiceAccount
serviceAccount =
ServiceAccount'
{ _saEmail = Nothing
, _saEtag = Nothing
, _saDisabled = Nothing
, _saUniqueId = Nothing
, _saName = Nothing
, _saDisplayName = Nothing
, _saProjectId = Nothing
, _saDescription = Nothing
, _saOAuth2ClientId = Nothing
}
saEmail :: Lens' ServiceAccount (Maybe Text)
saEmail = lens _saEmail (\ s a -> s{_saEmail = a})
saEtag :: Lens' ServiceAccount (Maybe ByteString)
saEtag
= lens _saEtag (\ s a -> s{_saEtag = a}) .
mapping _Bytes
saDisabled :: Lens' ServiceAccount (Maybe Bool)
saDisabled
= lens _saDisabled (\ s a -> s{_saDisabled = a})
saUniqueId :: Lens' ServiceAccount (Maybe Text)
saUniqueId
= lens _saUniqueId (\ s a -> s{_saUniqueId = a})
saName :: Lens' ServiceAccount (Maybe Text)
saName = lens _saName (\ s a -> s{_saName = a})
saDisplayName :: Lens' ServiceAccount (Maybe Text)
saDisplayName
= lens _saDisplayName
(\ s a -> s{_saDisplayName = a})
saProjectId :: Lens' ServiceAccount (Maybe Text)
saProjectId
= lens _saProjectId (\ s a -> s{_saProjectId = a})
saDescription :: Lens' ServiceAccount (Maybe Text)
saDescription
= lens _saDescription
(\ s a -> s{_saDescription = a})
saOAuth2ClientId :: Lens' ServiceAccount (Maybe Text)
saOAuth2ClientId
= lens _saOAuth2ClientId
(\ s a -> s{_saOAuth2ClientId = a})
instance FromJSON ServiceAccount where
parseJSON
= withObject "ServiceAccount"
(\ o ->
ServiceAccount' <$>
(o .:? "email") <*> (o .:? "etag") <*>
(o .:? "disabled")
<*> (o .:? "uniqueId")
<*> (o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "projectId")
<*> (o .:? "description")
<*> (o .:? "oauth2ClientId"))
instance ToJSON ServiceAccount where
toJSON ServiceAccount'{..}
= object
(catMaybes
[("email" .=) <$> _saEmail, ("etag" .=) <$> _saEtag,
("disabled" .=) <$> _saDisabled,
("uniqueId" .=) <$> _saUniqueId,
("name" .=) <$> _saName,
("displayName" .=) <$> _saDisplayName,
("projectId" .=) <$> _saProjectId,
("description" .=) <$> _saDescription,
("oauth2ClientId" .=) <$> _saOAuth2ClientId])
data QueryTestablePermissionsRequest =
QueryTestablePermissionsRequest'
{ _qtprFullResourceName :: !(Maybe Text)
, _qtprPageToken :: !(Maybe Text)
, _qtprPageSize :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
queryTestablePermissionsRequest
:: QueryTestablePermissionsRequest
queryTestablePermissionsRequest =
QueryTestablePermissionsRequest'
{ _qtprFullResourceName = Nothing
, _qtprPageToken = Nothing
, _qtprPageSize = Nothing
}
qtprFullResourceName :: Lens' QueryTestablePermissionsRequest (Maybe Text)
qtprFullResourceName
= lens _qtprFullResourceName
(\ s a -> s{_qtprFullResourceName = a})
qtprPageToken :: Lens' QueryTestablePermissionsRequest (Maybe Text)
qtprPageToken
= lens _qtprPageToken
(\ s a -> s{_qtprPageToken = a})
qtprPageSize :: Lens' QueryTestablePermissionsRequest (Maybe Int32)
qtprPageSize
= lens _qtprPageSize (\ s a -> s{_qtprPageSize = a})
. mapping _Coerce
instance FromJSON QueryTestablePermissionsRequest
where
parseJSON
= withObject "QueryTestablePermissionsRequest"
(\ o ->
QueryTestablePermissionsRequest' <$>
(o .:? "fullResourceName") <*> (o .:? "pageToken")
<*> (o .:? "pageSize"))
instance ToJSON QueryTestablePermissionsRequest where
toJSON QueryTestablePermissionsRequest'{..}
= object
(catMaybes
[("fullResourceName" .=) <$> _qtprFullResourceName,
("pageToken" .=) <$> _qtprPageToken,
("pageSize" .=) <$> _qtprPageSize])
data QueryGrantableRolesResponse =
QueryGrantableRolesResponse'
{ _qgrrRoles :: !(Maybe [Role])
, _qgrrNextPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
queryGrantableRolesResponse
:: QueryGrantableRolesResponse
queryGrantableRolesResponse =
QueryGrantableRolesResponse'
{_qgrrRoles = Nothing, _qgrrNextPageToken = Nothing}
qgrrRoles :: Lens' QueryGrantableRolesResponse [Role]
qgrrRoles
= lens _qgrrRoles (\ s a -> s{_qgrrRoles = a}) .
_Default
. _Coerce
qgrrNextPageToken :: Lens' QueryGrantableRolesResponse (Maybe Text)
qgrrNextPageToken
= lens _qgrrNextPageToken
(\ s a -> s{_qgrrNextPageToken = a})
instance FromJSON QueryGrantableRolesResponse where
parseJSON
= withObject "QueryGrantableRolesResponse"
(\ o ->
QueryGrantableRolesResponse' <$>
(o .:? "roles" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON QueryGrantableRolesResponse where
toJSON QueryGrantableRolesResponse'{..}
= object
(catMaybes
[("roles" .=) <$> _qgrrRoles,
("nextPageToken" .=) <$> _qgrrNextPageToken])
newtype TestIAMPermissionsRequest =
TestIAMPermissionsRequest'
{ _tiprPermissions :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
testIAMPermissionsRequest
:: TestIAMPermissionsRequest
testIAMPermissionsRequest =
TestIAMPermissionsRequest' {_tiprPermissions = Nothing}
tiprPermissions :: Lens' TestIAMPermissionsRequest [Text]
tiprPermissions
= lens _tiprPermissions
(\ s a -> s{_tiprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsRequest where
parseJSON
= withObject "TestIAMPermissionsRequest"
(\ o ->
TestIAMPermissionsRequest' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsRequest where
toJSON TestIAMPermissionsRequest'{..}
= object
(catMaybes [("permissions" .=) <$> _tiprPermissions])
newtype UndeleteServiceAccountResponse =
UndeleteServiceAccountResponse'
{ _usarRestoredAccount :: Maybe ServiceAccount
}
deriving (Eq, Show, Data, Typeable, Generic)
undeleteServiceAccountResponse
:: UndeleteServiceAccountResponse
undeleteServiceAccountResponse =
UndeleteServiceAccountResponse' {_usarRestoredAccount = Nothing}
usarRestoredAccount :: Lens' UndeleteServiceAccountResponse (Maybe ServiceAccount)
usarRestoredAccount
= lens _usarRestoredAccount
(\ s a -> s{_usarRestoredAccount = a})
instance FromJSON UndeleteServiceAccountResponse
where
parseJSON
= withObject "UndeleteServiceAccountResponse"
(\ o ->
UndeleteServiceAccountResponse' <$>
(o .:? "restoredAccount"))
instance ToJSON UndeleteServiceAccountResponse where
toJSON UndeleteServiceAccountResponse'{..}
= object
(catMaybes
[("restoredAccount" .=) <$> _usarRestoredAccount])
newtype TestIAMPermissionsResponse =
TestIAMPermissionsResponse'
{ _tiamprPermissions :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
testIAMPermissionsResponse
:: TestIAMPermissionsResponse
testIAMPermissionsResponse =
TestIAMPermissionsResponse' {_tiamprPermissions = Nothing}
tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]
tiamprPermissions
= lens _tiamprPermissions
(\ s a -> s{_tiamprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsResponse where
parseJSON
= withObject "TestIAMPermissionsResponse"
(\ o ->
TestIAMPermissionsResponse' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsResponse where
toJSON TestIAMPermissionsResponse'{..}
= object
(catMaybes
[("permissions" .=) <$> _tiamprPermissions])
data Policy =
Policy'
{ _pAuditConfigs :: !(Maybe [AuditConfig])
, _pEtag :: !(Maybe Bytes)
, _pVersion :: !(Maybe (Textual Int32))
, _pBindings :: !(Maybe [Binding])
}
deriving (Eq, Show, Data, Typeable, Generic)
policy
:: Policy
policy =
Policy'
{ _pAuditConfigs = Nothing
, _pEtag = Nothing
, _pVersion = Nothing
, _pBindings = Nothing
}
pAuditConfigs :: Lens' Policy [AuditConfig]
pAuditConfigs
= lens _pAuditConfigs
(\ s a -> s{_pAuditConfigs = a})
. _Default
. _Coerce
pEtag :: Lens' Policy (Maybe ByteString)
pEtag
= lens _pEtag (\ s a -> s{_pEtag = a}) .
mapping _Bytes
pVersion :: Lens' Policy (Maybe Int32)
pVersion
= lens _pVersion (\ s a -> s{_pVersion = a}) .
mapping _Coerce
pBindings :: Lens' Policy [Binding]
pBindings
= lens _pBindings (\ s a -> s{_pBindings = a}) .
_Default
. _Coerce
instance FromJSON Policy where
parseJSON
= withObject "Policy"
(\ o ->
Policy' <$>
(o .:? "auditConfigs" .!= mempty) <*> (o .:? "etag")
<*> (o .:? "version")
<*> (o .:? "bindings" .!= mempty))
instance ToJSON Policy where
toJSON Policy'{..}
= object
(catMaybes
[("auditConfigs" .=) <$> _pAuditConfigs,
("etag" .=) <$> _pEtag, ("version" .=) <$> _pVersion,
("bindings" .=) <$> _pBindings])
newtype PolicyDelta =
PolicyDelta'
{ _pdBindingDeltas :: Maybe [BindingDelta]
}
deriving (Eq, Show, Data, Typeable, Generic)
policyDelta
:: PolicyDelta
policyDelta = PolicyDelta' {_pdBindingDeltas = Nothing}
pdBindingDeltas :: Lens' PolicyDelta [BindingDelta]
pdBindingDeltas
= lens _pdBindingDeltas
(\ s a -> s{_pdBindingDeltas = a})
. _Default
. _Coerce
instance FromJSON PolicyDelta where
parseJSON
= withObject "PolicyDelta"
(\ o ->
PolicyDelta' <$> (o .:? "bindingDeltas" .!= mempty))
instance ToJSON PolicyDelta where
toJSON PolicyDelta'{..}
= object
(catMaybes
[("bindingDeltas" .=) <$> _pdBindingDeltas])
data QueryGrantableRolesRequest =
QueryGrantableRolesRequest'
{ _qgrrFullResourceName :: !(Maybe Text)
, _qgrrView :: !(Maybe QueryGrantableRolesRequestView)
, _qgrrPageToken :: !(Maybe Text)
, _qgrrPageSize :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
queryGrantableRolesRequest
:: QueryGrantableRolesRequest
queryGrantableRolesRequest =
QueryGrantableRolesRequest'
{ _qgrrFullResourceName = Nothing
, _qgrrView = Nothing
, _qgrrPageToken = Nothing
, _qgrrPageSize = Nothing
}
qgrrFullResourceName :: Lens' QueryGrantableRolesRequest (Maybe Text)
qgrrFullResourceName
= lens _qgrrFullResourceName
(\ s a -> s{_qgrrFullResourceName = a})
qgrrView :: Lens' QueryGrantableRolesRequest (Maybe QueryGrantableRolesRequestView)
qgrrView = lens _qgrrView (\ s a -> s{_qgrrView = a})
qgrrPageToken :: Lens' QueryGrantableRolesRequest (Maybe Text)
qgrrPageToken
= lens _qgrrPageToken
(\ s a -> s{_qgrrPageToken = a})
qgrrPageSize :: Lens' QueryGrantableRolesRequest (Maybe Int32)
qgrrPageSize
= lens _qgrrPageSize (\ s a -> s{_qgrrPageSize = a})
. mapping _Coerce
instance FromJSON QueryGrantableRolesRequest where
parseJSON
= withObject "QueryGrantableRolesRequest"
(\ o ->
QueryGrantableRolesRequest' <$>
(o .:? "fullResourceName") <*> (o .:? "view") <*>
(o .:? "pageToken")
<*> (o .:? "pageSize"))
instance ToJSON QueryGrantableRolesRequest where
toJSON QueryGrantableRolesRequest'{..}
= object
(catMaybes
[("fullResourceName" .=) <$> _qgrrFullResourceName,
("view" .=) <$> _qgrrView,
("pageToken" .=) <$> _qgrrPageToken,
("pageSize" .=) <$> _qgrrPageSize])
newtype SignJwtRequest =
SignJwtRequest'
{ _sjrPayload :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
signJwtRequest
:: SignJwtRequest
signJwtRequest = SignJwtRequest' {_sjrPayload = Nothing}
sjrPayload :: Lens' SignJwtRequest (Maybe Text)
sjrPayload
= lens _sjrPayload (\ s a -> s{_sjrPayload = a})
instance FromJSON SignJwtRequest where
parseJSON
= withObject "SignJwtRequest"
(\ o -> SignJwtRequest' <$> (o .:? "payload"))
instance ToJSON SignJwtRequest where
toJSON SignJwtRequest'{..}
= object (catMaybes [("payload" .=) <$> _sjrPayload])
data PatchServiceAccountRequest =
PatchServiceAccountRequest'
{ _psarUpdateMask :: !(Maybe GFieldMask)
, _psarServiceAccount :: !(Maybe ServiceAccount)
}
deriving (Eq, Show, Data, Typeable, Generic)
patchServiceAccountRequest
:: PatchServiceAccountRequest
patchServiceAccountRequest =
PatchServiceAccountRequest'
{_psarUpdateMask = Nothing, _psarServiceAccount = Nothing}
psarUpdateMask :: Lens' PatchServiceAccountRequest (Maybe GFieldMask)
psarUpdateMask
= lens _psarUpdateMask
(\ s a -> s{_psarUpdateMask = a})
psarServiceAccount :: Lens' PatchServiceAccountRequest (Maybe ServiceAccount)
psarServiceAccount
= lens _psarServiceAccount
(\ s a -> s{_psarServiceAccount = a})
instance FromJSON PatchServiceAccountRequest where
parseJSON
= withObject "PatchServiceAccountRequest"
(\ o ->
PatchServiceAccountRequest' <$>
(o .:? "updateMask") <*> (o .:? "serviceAccount"))
instance ToJSON PatchServiceAccountRequest where
toJSON PatchServiceAccountRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _psarUpdateMask,
("serviceAccount" .=) <$> _psarServiceAccount])
data AuditLogConfig =
AuditLogConfig'
{ _alcLogType :: !(Maybe AuditLogConfigLogType)
, _alcExemptedMembers :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
auditLogConfig
:: AuditLogConfig
auditLogConfig =
AuditLogConfig' {_alcLogType = Nothing, _alcExemptedMembers = Nothing}
alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType)
alcLogType
= lens _alcLogType (\ s a -> s{_alcLogType = a})
alcExemptedMembers :: Lens' AuditLogConfig [Text]
alcExemptedMembers
= lens _alcExemptedMembers
(\ s a -> s{_alcExemptedMembers = a})
. _Default
. _Coerce
instance FromJSON AuditLogConfig where
parseJSON
= withObject "AuditLogConfig"
(\ o ->
AuditLogConfig' <$>
(o .:? "logType") <*>
(o .:? "exemptedMembers" .!= mempty))
instance ToJSON AuditLogConfig where
toJSON AuditLogConfig'{..}
= object
(catMaybes
[("logType" .=) <$> _alcLogType,
("exemptedMembers" .=) <$> _alcExemptedMembers])
data Permission =
Permission'
{ _perStage :: !(Maybe PermissionStage)
, _perOnlyInPredefinedRoles :: !(Maybe Bool)
, _perCustomRolesSupportLevel :: !(Maybe PermissionCustomRolesSupportLevel)
, _perName :: !(Maybe Text)
, _perTitle :: !(Maybe Text)
, _perAPIdisabled :: !(Maybe Bool)
, _perDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
permission
:: Permission
permission =
Permission'
{ _perStage = Nothing
, _perOnlyInPredefinedRoles = Nothing
, _perCustomRolesSupportLevel = Nothing
, _perName = Nothing
, _perTitle = Nothing
, _perAPIdisabled = Nothing
, _perDescription = Nothing
}
perStage :: Lens' Permission (Maybe PermissionStage)
perStage = lens _perStage (\ s a -> s{_perStage = a})
perOnlyInPredefinedRoles :: Lens' Permission (Maybe Bool)
perOnlyInPredefinedRoles
= lens _perOnlyInPredefinedRoles
(\ s a -> s{_perOnlyInPredefinedRoles = a})
perCustomRolesSupportLevel :: Lens' Permission (Maybe PermissionCustomRolesSupportLevel)
perCustomRolesSupportLevel
= lens _perCustomRolesSupportLevel
(\ s a -> s{_perCustomRolesSupportLevel = a})
perName :: Lens' Permission (Maybe Text)
perName = lens _perName (\ s a -> s{_perName = a})
perTitle :: Lens' Permission (Maybe Text)
perTitle = lens _perTitle (\ s a -> s{_perTitle = a})
perAPIdisabled :: Lens' Permission (Maybe Bool)
perAPIdisabled
= lens _perAPIdisabled
(\ s a -> s{_perAPIdisabled = a})
perDescription :: Lens' Permission (Maybe Text)
perDescription
= lens _perDescription
(\ s a -> s{_perDescription = a})
instance FromJSON Permission where
parseJSON
= withObject "Permission"
(\ o ->
Permission' <$>
(o .:? "stage") <*> (o .:? "onlyInPredefinedRoles")
<*> (o .:? "customRolesSupportLevel")
<*> (o .:? "name")
<*> (o .:? "title")
<*> (o .:? "apiDisabled")
<*> (o .:? "description"))
instance ToJSON Permission where
toJSON Permission'{..}
= object
(catMaybes
[("stage" .=) <$> _perStage,
("onlyInPredefinedRoles" .=) <$>
_perOnlyInPredefinedRoles,
("customRolesSupportLevel" .=) <$>
_perCustomRolesSupportLevel,
("name" .=) <$> _perName, ("title" .=) <$> _perTitle,
("apiDisabled" .=) <$> _perAPIdisabled,
("description" .=) <$> _perDescription])
data SignBlobResponse =
SignBlobResponse'
{ _sbrSignature :: !(Maybe Bytes)
, _sbrKeyId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
signBlobResponse
:: SignBlobResponse
signBlobResponse =
SignBlobResponse' {_sbrSignature = Nothing, _sbrKeyId = Nothing}
sbrSignature :: Lens' SignBlobResponse (Maybe ByteString)
sbrSignature
= lens _sbrSignature (\ s a -> s{_sbrSignature = a})
. mapping _Bytes
sbrKeyId :: Lens' SignBlobResponse (Maybe Text)
sbrKeyId = lens _sbrKeyId (\ s a -> s{_sbrKeyId = a})
instance FromJSON SignBlobResponse where
parseJSON
= withObject "SignBlobResponse"
(\ o ->
SignBlobResponse' <$>
(o .:? "signature") <*> (o .:? "keyId"))
instance ToJSON SignBlobResponse where
toJSON SignBlobResponse'{..}
= object
(catMaybes
[("signature" .=) <$> _sbrSignature,
("keyId" .=) <$> _sbrKeyId])
data ListServiceAccountsResponse =
ListServiceAccountsResponse'
{ _lsarNextPageToken :: !(Maybe Text)
, _lsarAccounts :: !(Maybe [ServiceAccount])
}
deriving (Eq, Show, Data, Typeable, Generic)
listServiceAccountsResponse
:: ListServiceAccountsResponse
listServiceAccountsResponse =
ListServiceAccountsResponse'
{_lsarNextPageToken = Nothing, _lsarAccounts = Nothing}
lsarNextPageToken :: Lens' ListServiceAccountsResponse (Maybe Text)
lsarNextPageToken
= lens _lsarNextPageToken
(\ s a -> s{_lsarNextPageToken = a})
lsarAccounts :: Lens' ListServiceAccountsResponse [ServiceAccount]
lsarAccounts
= lens _lsarAccounts (\ s a -> s{_lsarAccounts = a})
. _Default
. _Coerce
instance FromJSON ListServiceAccountsResponse where
parseJSON
= withObject "ListServiceAccountsResponse"
(\ o ->
ListServiceAccountsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "accounts" .!= mempty))
instance ToJSON ListServiceAccountsResponse where
toJSON ListServiceAccountsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lsarNextPageToken,
("accounts" .=) <$> _lsarAccounts])
data LintPolicyRequest =
LintPolicyRequest'
{ _lprContext :: !(Maybe LintPolicyRequestContext)
, _lprFullResourceName :: !(Maybe Text)
, _lprPolicy :: !(Maybe Policy)
, _lprCondition :: !(Maybe Expr)
, _lprBinding :: !(Maybe Binding)
}
deriving (Eq, Show, Data, Typeable, Generic)
lintPolicyRequest
:: LintPolicyRequest
lintPolicyRequest =
LintPolicyRequest'
{ _lprContext = Nothing
, _lprFullResourceName = Nothing
, _lprPolicy = Nothing
, _lprCondition = Nothing
, _lprBinding = Nothing
}
lprContext :: Lens' LintPolicyRequest (Maybe LintPolicyRequestContext)
lprContext
= lens _lprContext (\ s a -> s{_lprContext = a})
lprFullResourceName :: Lens' LintPolicyRequest (Maybe Text)
lprFullResourceName
= lens _lprFullResourceName
(\ s a -> s{_lprFullResourceName = a})
lprPolicy :: Lens' LintPolicyRequest (Maybe Policy)
lprPolicy
= lens _lprPolicy (\ s a -> s{_lprPolicy = a})
lprCondition :: Lens' LintPolicyRequest (Maybe Expr)
lprCondition
= lens _lprCondition (\ s a -> s{_lprCondition = a})
lprBinding :: Lens' LintPolicyRequest (Maybe Binding)
lprBinding
= lens _lprBinding (\ s a -> s{_lprBinding = a})
instance FromJSON LintPolicyRequest where
parseJSON
= withObject "LintPolicyRequest"
(\ o ->
LintPolicyRequest' <$>
(o .:? "context") <*> (o .:? "fullResourceName") <*>
(o .:? "policy")
<*> (o .:? "condition")
<*> (o .:? "binding"))
instance ToJSON LintPolicyRequest where
toJSON LintPolicyRequest'{..}
= object
(catMaybes
[("context" .=) <$> _lprContext,
("fullResourceName" .=) <$> _lprFullResourceName,
("policy" .=) <$> _lprPolicy,
("condition" .=) <$> _lprCondition,
("binding" .=) <$> _lprBinding])
data ListRolesResponse =
ListRolesResponse'
{ _lrrRoles :: !(Maybe [Role])
, _lrrNextPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
listRolesResponse
:: ListRolesResponse
listRolesResponse =
ListRolesResponse' {_lrrRoles = Nothing, _lrrNextPageToken = Nothing}
lrrRoles :: Lens' ListRolesResponse [Role]
lrrRoles
= lens _lrrRoles (\ s a -> s{_lrrRoles = a}) .
_Default
. _Coerce
lrrNextPageToken :: Lens' ListRolesResponse (Maybe Text)
lrrNextPageToken
= lens _lrrNextPageToken
(\ s a -> s{_lrrNextPageToken = a})
instance FromJSON ListRolesResponse where
parseJSON
= withObject "ListRolesResponse"
(\ o ->
ListRolesResponse' <$>
(o .:? "roles" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON ListRolesResponse where
toJSON ListRolesResponse'{..}
= object
(catMaybes
[("roles" .=) <$> _lrrRoles,
("nextPageToken" .=) <$> _lrrNextPageToken])
data CreateServiceAccountRequest =
CreateServiceAccountRequest'
{ _csarServiceAccount :: !(Maybe ServiceAccount)
, _csarAccountId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
createServiceAccountRequest
:: CreateServiceAccountRequest
createServiceAccountRequest =
CreateServiceAccountRequest'
{_csarServiceAccount = Nothing, _csarAccountId = Nothing}
csarServiceAccount :: Lens' CreateServiceAccountRequest (Maybe ServiceAccount)
csarServiceAccount
= lens _csarServiceAccount
(\ s a -> s{_csarServiceAccount = a})
csarAccountId :: Lens' CreateServiceAccountRequest (Maybe Text)
csarAccountId
= lens _csarAccountId
(\ s a -> s{_csarAccountId = a})
instance FromJSON CreateServiceAccountRequest where
parseJSON
= withObject "CreateServiceAccountRequest"
(\ o ->
CreateServiceAccountRequest' <$>
(o .:? "serviceAccount") <*> (o .:? "accountId"))
instance ToJSON CreateServiceAccountRequest where
toJSON CreateServiceAccountRequest'{..}
= object
(catMaybes
[("serviceAccount" .=) <$> _csarServiceAccount,
("accountId" .=) <$> _csarAccountId])
data CreateRoleRequest =
CreateRoleRequest'
{ _crrRoleId :: !(Maybe Text)
, _crrRole :: !(Maybe Role)
}
deriving (Eq, Show, Data, Typeable, Generic)
createRoleRequest
:: CreateRoleRequest
createRoleRequest =
CreateRoleRequest' {_crrRoleId = Nothing, _crrRole = Nothing}
crrRoleId :: Lens' CreateRoleRequest (Maybe Text)
crrRoleId
= lens _crrRoleId (\ s a -> s{_crrRoleId = a})
crrRole :: Lens' CreateRoleRequest (Maybe Role)
crrRole = lens _crrRole (\ s a -> s{_crrRole = a})
instance FromJSON CreateRoleRequest where
parseJSON
= withObject "CreateRoleRequest"
(\ o ->
CreateRoleRequest' <$>
(o .:? "roleId") <*> (o .:? "role"))
instance ToJSON CreateRoleRequest where
toJSON CreateRoleRequest'{..}
= object
(catMaybes
[("roleId" .=) <$> _crrRoleId,
("role" .=) <$> _crrRole])
data Binding =
Binding'
{ _bMembers :: !(Maybe [Text])
, _bRole :: !(Maybe Text)
, _bCondition :: !(Maybe Expr)
}
deriving (Eq, Show, Data, Typeable, Generic)
binding
:: Binding
binding =
Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing}
bMembers :: Lens' Binding [Text]
bMembers
= lens _bMembers (\ s a -> s{_bMembers = a}) .
_Default
. _Coerce
bRole :: Lens' Binding (Maybe Text)
bRole = lens _bRole (\ s a -> s{_bRole = a})
bCondition :: Lens' Binding (Maybe Expr)
bCondition
= lens _bCondition (\ s a -> s{_bCondition = a})
instance FromJSON Binding where
parseJSON
= withObject "Binding"
(\ o ->
Binding' <$>
(o .:? "members" .!= mempty) <*> (o .:? "role") <*>
(o .:? "condition"))
instance ToJSON Binding where
toJSON Binding'{..}
= object
(catMaybes
[("members" .=) <$> _bMembers,
("role" .=) <$> _bRole,
("condition" .=) <$> _bCondition])
data DisableServiceAccountRequest =
DisableServiceAccountRequest'
deriving (Eq, Show, Data, Typeable, Generic)
disableServiceAccountRequest
:: DisableServiceAccountRequest
disableServiceAccountRequest = DisableServiceAccountRequest'
instance FromJSON DisableServiceAccountRequest where
parseJSON
= withObject "DisableServiceAccountRequest"
(\ o -> pure DisableServiceAccountRequest')
instance ToJSON DisableServiceAccountRequest where
toJSON = const emptyObject