{-# 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])
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 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)
, _saUniqueId :: !(Maybe Text)
, _saName :: !(Maybe Text)
, _saDisplayName :: !(Maybe Text)
, _saProjectId :: !(Maybe Text)
, _saOAuth2ClientId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
serviceAccount
:: ServiceAccount
serviceAccount =
ServiceAccount'
{ _saEmail = Nothing
, _saEtag = Nothing
, _saUniqueId = Nothing
, _saName = Nothing
, _saDisplayName = Nothing
, _saProjectId = 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
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})
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 .:? "uniqueId")
<*> (o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "projectId")
<*> (o .:? "oauth2ClientId"))
instance ToJSON ServiceAccount where
toJSON ServiceAccount'{..}
= object
(catMaybes
[("email" .=) <$> _saEmail, ("etag" .=) <$> _saEtag,
("uniqueId" .=) <$> _saUniqueId,
("name" .=) <$> _saName,
("displayName" .=) <$> _saDisplayName,
("projectId" .=) <$> _saProjectId,
("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 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 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'
{ _pStage :: !(Maybe PermissionStage)
, _pOnlyInPredefinedRoles :: !(Maybe Bool)
, _pCustomRolesSupportLevel :: !(Maybe PermissionCustomRolesSupportLevel)
, _pName :: !(Maybe Text)
, _pTitle :: !(Maybe Text)
, _pAPIdisabled :: !(Maybe Bool)
, _pDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
permission
:: Permission
permission =
Permission'
{ _pStage = Nothing
, _pOnlyInPredefinedRoles = Nothing
, _pCustomRolesSupportLevel = Nothing
, _pName = Nothing
, _pTitle = Nothing
, _pAPIdisabled = Nothing
, _pDescription = Nothing
}
pStage :: Lens' Permission (Maybe PermissionStage)
pStage = lens _pStage (\ s a -> s{_pStage = a})
pOnlyInPredefinedRoles :: Lens' Permission (Maybe Bool)
pOnlyInPredefinedRoles
= lens _pOnlyInPredefinedRoles
(\ s a -> s{_pOnlyInPredefinedRoles = a})
pCustomRolesSupportLevel :: Lens' Permission (Maybe PermissionCustomRolesSupportLevel)
pCustomRolesSupportLevel
= lens _pCustomRolesSupportLevel
(\ s a -> s{_pCustomRolesSupportLevel = a})
pName :: Lens' Permission (Maybe Text)
pName = lens _pName (\ s a -> s{_pName = a})
pTitle :: Lens' Permission (Maybe Text)
pTitle = lens _pTitle (\ s a -> s{_pTitle = a})
pAPIdisabled :: Lens' Permission (Maybe Bool)
pAPIdisabled
= lens _pAPIdisabled (\ s a -> s{_pAPIdisabled = a})
pDescription :: Lens' Permission (Maybe Text)
pDescription
= lens _pDescription (\ s a -> s{_pDescription = 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" .=) <$> _pStage,
("onlyInPredefinedRoles" .=) <$>
_pOnlyInPredefinedRoles,
("customRolesSupportLevel" .=) <$>
_pCustomRolesSupportLevel,
("name" .=) <$> _pName, ("title" .=) <$> _pTitle,
("apiDisabled" .=) <$> _pAPIdisabled,
("description" .=) <$> _pDescription])
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])