@@ -104,12 +104,13 @@ instance ToJSON ConfigFile where
104104 toJSON ConfigFile'{..}
105105 = object (catMaybes [("content" .=) <$> _cfContent])
106106
107−-- | Enables \"data access\" audit logging for a service and specifies a list
108−-- of members that are log-exempted.
107+-- | Provides the configuration for non-admin_activity logging for a service.
108+-- Controls exemptions and specific log sub-types.
109109--
110110-- /See:/ 'auditConfig' smart constructor.
111111data AuditConfig = AuditConfig'
112112 { _acService :: !(Maybe Text)
113+ , _acAuditLogConfigs :: !(Maybe [AuditLogConfig])
113114 , _acExemptedMembers :: !(Maybe [Text])
114115 } deriving (Eq,Show,Data,Typeable,Generic)
115116
@@ -119,22 +120,33 @@ data AuditConfig = AuditConfig'
119120--
120121-- * 'acService'
121122--
123+-- * 'acAuditLogConfigs'
124+--
122125-- * 'acExemptedMembers'
123126auditConfig
124127 :: AuditConfig
125128auditConfig =
126129 AuditConfig'
127130 { _acService = Nothing
131+ , _acAuditLogConfigs = Nothing
128132 , _acExemptedMembers = Nothing
129133 }
130134
131−-- | Specifies a service that will be enabled for \"data access\" audit
132−-- logging. For example, \`resourcemanager\`, \`storage\`, \`compute\`.
133−-- \`allServices\` is a special value that covers all services.
135+-- | Specifies a service that will be enabled for audit logging. For example,
136+-- \`resourcemanager\`, \`storage\`, \`compute\`. \`allServices\` is a
137+-- special value that covers all services.
134138acService :: Lens' AuditConfig (Maybe Text)
135139acService
136140 = lens _acService (\ s a -> s{_acService = a})
137141
142+-- | The configuration for each type of logging
143+acAuditLogConfigs :: Lens' AuditConfig [AuditLogConfig]
144+acAuditLogConfigs
145+ = lens _acAuditLogConfigs
146+ (\ s a -> s{_acAuditLogConfigs = a})
147+ . _Default
148+ . _Coerce
149+
138150-- | Specifies the identities that are exempted from \"data access\" audit
139151-- logging for the \`service\` specified above. Follows the same format of
140152-- Binding.members.
@@ -151,13 +163,15 @@ instance FromJSON AuditConfig where
151163 (\ o ->
152164 AuditConfig' <$>
153165 (o .:? "service") <*>
154− (o .:? "exemptedMembers" .!= mempty))
166+ (o .:? "auditLogConfigs" .!= mempty)
167+ <*> (o .:? "exemptedMembers" .!= mempty))
155168
156169instance ToJSON AuditConfig where
157170 toJSON AuditConfig'{..}
158171 = object
159172 (catMaybes
160173 [("service" .=) <$> _acService,
174+ ("auditLogConfigs" .=) <$> _acAuditLogConfigs,
161175 ("exemptedMembers" .=) <$> _acExemptedMembers])
162176
163177-- | A response containing a partial list of operations and a page token used
@@ -601,9 +615,9 @@ oDescription :: Lens' Operation (Maybe Text)
601615oDescription
602616 = lens _oDescription (\ s a -> s{_oDescription = a})
603617
604−-- | [Output Only] The URL of the resource that the operation modifies. If
605−-- creating a persistent disk snapshot, this points to the persistent disk
606−-- that the snapshot was created from.
618+-- | [Output Only] The URL of the resource that the operation modifies. For
619+-- operations related to creating a snapshot, this points to the persistent
620+-- disk that the snapshot was created from.
607621oTargetLink :: Lens' Operation (Maybe Text)
608622oTargetLink
609623 = lens _oTargetLink (\ s a -> s{_oTargetLink = a})
@@ -1305,7 +1319,7 @@ instance ToJSON ResourceUpdateWarningsItem where
13051319--
13061320-- /See:/ 'deploymentsCancelPreviewRequest' smart constructor.
13071321newtype DeploymentsCancelPreviewRequest = DeploymentsCancelPreviewRequest'
1308− { _dcprFingerprint :: Maybe Base64
1322+ { _dcprFingerprint :: Maybe Bytes
13091323 } deriving (Eq,Show,Data,Typeable,Generic)
13101324
13111325-- | Creates a value of 'DeploymentsCancelPreviewRequest' with the minimum fields required to make a request.
@@ -1333,7 +1347,7 @@ dcprFingerprint :: Lens' DeploymentsCancelPreviewRequest (Maybe ByteString)
13331347dcprFingerprint
13341348 = lens _dcprFingerprint
13351349 (\ s a -> s{_dcprFingerprint = a})
1336− . mapping _Base64
1350+ . mapping _Bytes
13371351
13381352instance FromJSON DeploymentsCancelPreviewRequest
13391353 where
@@ -1720,7 +1734,7 @@ instance ToJSON OperationError where
17201734-- /See:/ 'policy' smart constructor.
17211735data Policy = Policy'
17221736 { _pAuditConfigs :: !(Maybe [AuditConfig])
1723− , _pEtag :: !(Maybe Base64)
1737+ , _pEtag :: !(Maybe Bytes)
17241738 , _pRules :: !(Maybe [Rule])
17251739 , _pVersion :: !(Maybe (Textual Int32))
17261740 , _pBindings :: !(Maybe [Binding])
@@ -1778,7 +1792,7 @@ pAuditConfigs
17781792pEtag :: Lens' Policy (Maybe ByteString)
17791793pEtag
17801794 = lens _pEtag (\ s a -> s{_pEtag = a}) .
1781− mapping _Base64
1795+ mapping _Bytes
17821796
17831797-- | If more than one rule is specified, the rules are applied in the
17841798-- following manner: - All matching LOG rules are always applied. - If any
@@ -2019,7 +2033,7 @@ instance ToJSON OperationErrorErrorsItem where
20192033--
20202034-- /See:/ 'deploymentsStopRequest' smart constructor.
20212035newtype DeploymentsStopRequest = DeploymentsStopRequest'
2022− { _dsrFingerprint :: Maybe Base64
2036+ { _dsrFingerprint :: Maybe Bytes
20232037 } deriving (Eq,Show,Data,Typeable,Generic)
20242038
20252039-- | Creates a value of 'DeploymentsStopRequest' with the minimum fields required to make a request.
@@ -2047,7 +2061,7 @@ dsrFingerprint :: Lens' DeploymentsStopRequest (Maybe ByteString)
20472061dsrFingerprint
20482062 = lens _dsrFingerprint
20492063 (\ s a -> s{_dsrFingerprint = a})
2050− . mapping _Base64
2064+ . mapping _Bytes
20512065
20522066instance FromJSON DeploymentsStopRequest where
20532067 parseJSON
@@ -2111,6 +2125,58 @@ instance ToJSON ResourceWarningsItemDataItem where
21112125 [("value" .=) <$> _rwidiValue,
21122126 ("key" .=) <$> _rwidiKey])
21132127
2128+-- | Provides the configuration for a sub-type of logging.
2129+--
2130+-- /See:/ 'auditLogConfig' smart constructor.
2131+data AuditLogConfig = AuditLogConfig'
2132+ { _alcLogType :: !(Maybe Text)
2133+ , _alcExemptedMembers :: !(Maybe [Text])
2134+ } deriving (Eq,Show,Data,Typeable,Generic)
2135+
2136+-- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request.
2137+--
2138+-- Use one of the following lenses to modify other fields as desired:
2139+--
2140+-- * 'alcLogType'
2141+--
2142+-- * 'alcExemptedMembers'
2143+auditLogConfig
2144+ :: AuditLogConfig
2145+auditLogConfig =
2146+ AuditLogConfig'
2147+ { _alcLogType = Nothing
2148+ , _alcExemptedMembers = Nothing
2149+ }
2150+
2151+-- | The log type that this config enables.
2152+alcLogType :: Lens' AuditLogConfig (Maybe Text)
2153+alcLogType
2154+ = lens _alcLogType (\ s a -> s{_alcLogType = a})
2155+
2156+-- | Specifies the identities that are exempted from this type of logging
2157+-- Follows the same format of Binding.members.
2158+alcExemptedMembers :: Lens' AuditLogConfig [Text]
2159+alcExemptedMembers
2160+ = lens _alcExemptedMembers
2161+ (\ s a -> s{_alcExemptedMembers = a})
2162+ . _Default
2163+ . _Coerce
2164+
2165+instance FromJSON AuditLogConfig where
2166+ parseJSON
2167+ = withObject "AuditLogConfig"
2168+ (\ o ->
2169+ AuditLogConfig' <$>
2170+ (o .:? "logType") <*>
2171+ (o .:? "exemptedMembers" .!= mempty))
2172+
2173+instance ToJSON AuditLogConfig where
2174+ toJSON AuditLogConfig'{..}
2175+ = object
2176+ (catMaybes
2177+ [("logType" .=) <$> _alcLogType,
2178+ ("exemptedMembers" .=) <$> _alcExemptedMembers])
2179+
21142180-- | [Output Only] If errors are generated during update of the resource,
21152181-- this field will be populated.
21162182--
@@ -2593,7 +2659,7 @@ instance ToJSON Binding where
25932659data Deployment = Deployment'
25942660 { _dInsertTime :: !(Maybe Text)
25952661 , _dOperation :: !(Maybe Operation)
2596− , _dFingerprint :: !(Maybe Base64)
2662+ , _dFingerprint :: !(Maybe Bytes)
25972663 , _dSelfLink :: !(Maybe Text)
25982664 , _dName :: !(Maybe Text)
25992665 , _dManifest :: !(Maybe Text)
@@ -2669,7 +2735,7 @@ dOperation
26692735dFingerprint :: Lens' Deployment (Maybe ByteString)
26702736dFingerprint
26712737 = lens _dFingerprint (\ s a -> s{_dFingerprint = a})
2672− . mapping _Base64
2738+ . mapping _Bytes
26732739
26742740-- | [Output Only] Self link for the deployment.
26752741dSelfLink :: Lens' Deployment (Maybe Text)