{-# 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.DLP.Types.Product where
import Network.Google.DLP.Types.Sum
import Network.Google.Prelude
data GooglePrivacyDlpV2InfoTypeStats =
GooglePrivacyDlpV2InfoTypeStats'
{ _gpdvitsCount :: !(Maybe (Textual Int64))
, _gpdvitsInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InfoTypeStats
:: GooglePrivacyDlpV2InfoTypeStats
googlePrivacyDlpV2InfoTypeStats =
GooglePrivacyDlpV2InfoTypeStats'
{_gpdvitsCount = Nothing, _gpdvitsInfoType = Nothing}
gpdvitsCount :: Lens' GooglePrivacyDlpV2InfoTypeStats (Maybe Int64)
gpdvitsCount
= lens _gpdvitsCount (\ s a -> s{_gpdvitsCount = a})
. mapping _Coerce
gpdvitsInfoType :: Lens' GooglePrivacyDlpV2InfoTypeStats (Maybe GooglePrivacyDlpV2InfoType)
gpdvitsInfoType
= lens _gpdvitsInfoType
(\ s a -> s{_gpdvitsInfoType = a})
instance FromJSON GooglePrivacyDlpV2InfoTypeStats
where
parseJSON
= withObject "GooglePrivacyDlpV2InfoTypeStats"
(\ o ->
GooglePrivacyDlpV2InfoTypeStats' <$>
(o .:? "count") <*> (o .:? "infoType"))
instance ToJSON GooglePrivacyDlpV2InfoTypeStats where
toJSON GooglePrivacyDlpV2InfoTypeStats'{..}
= object
(catMaybes
[("count" .=) <$> _gpdvitsCount,
("infoType" .=) <$> _gpdvitsInfoType])
data GooglePrivacyDlpV2RedactConfig =
GooglePrivacyDlpV2RedactConfig'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RedactConfig
:: GooglePrivacyDlpV2RedactConfig
googlePrivacyDlpV2RedactConfig = GooglePrivacyDlpV2RedactConfig'
instance FromJSON GooglePrivacyDlpV2RedactConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2RedactConfig"
(\ o -> pure GooglePrivacyDlpV2RedactConfig')
instance ToJSON GooglePrivacyDlpV2RedactConfig where
toJSON = const emptyObject
data GooglePrivacyDlpV2UpdateJobTriggerRequest =
GooglePrivacyDlpV2UpdateJobTriggerRequest'
{ _gpdvujtrUpdateMask :: !(Maybe GFieldMask)
, _gpdvujtrJobTrigger :: !(Maybe GooglePrivacyDlpV2JobTrigger)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2UpdateJobTriggerRequest
:: GooglePrivacyDlpV2UpdateJobTriggerRequest
googlePrivacyDlpV2UpdateJobTriggerRequest =
GooglePrivacyDlpV2UpdateJobTriggerRequest'
{_gpdvujtrUpdateMask = Nothing, _gpdvujtrJobTrigger = Nothing}
gpdvujtrUpdateMask :: Lens' GooglePrivacyDlpV2UpdateJobTriggerRequest (Maybe GFieldMask)
gpdvujtrUpdateMask
= lens _gpdvujtrUpdateMask
(\ s a -> s{_gpdvujtrUpdateMask = a})
gpdvujtrJobTrigger :: Lens' GooglePrivacyDlpV2UpdateJobTriggerRequest (Maybe GooglePrivacyDlpV2JobTrigger)
gpdvujtrJobTrigger
= lens _gpdvujtrJobTrigger
(\ s a -> s{_gpdvujtrJobTrigger = a})
instance FromJSON
GooglePrivacyDlpV2UpdateJobTriggerRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2UpdateJobTriggerRequest"
(\ o ->
GooglePrivacyDlpV2UpdateJobTriggerRequest' <$>
(o .:? "updateMask") <*> (o .:? "jobTrigger"))
instance ToJSON
GooglePrivacyDlpV2UpdateJobTriggerRequest
where
toJSON GooglePrivacyDlpV2UpdateJobTriggerRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _gpdvujtrUpdateMask,
("jobTrigger" .=) <$> _gpdvujtrJobTrigger])
data GooglePrivacyDlpV2Range =
GooglePrivacyDlpV2Range'
{ _gpdvrStart :: !(Maybe (Textual Int64))
, _gpdvrEnd :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Range
:: GooglePrivacyDlpV2Range
googlePrivacyDlpV2Range =
GooglePrivacyDlpV2Range' {_gpdvrStart = Nothing, _gpdvrEnd = Nothing}
gpdvrStart :: Lens' GooglePrivacyDlpV2Range (Maybe Int64)
gpdvrStart
= lens _gpdvrStart (\ s a -> s{_gpdvrStart = a}) .
mapping _Coerce
gpdvrEnd :: Lens' GooglePrivacyDlpV2Range (Maybe Int64)
gpdvrEnd
= lens _gpdvrEnd (\ s a -> s{_gpdvrEnd = a}) .
mapping _Coerce
instance FromJSON GooglePrivacyDlpV2Range where
parseJSON
= withObject "GooglePrivacyDlpV2Range"
(\ o ->
GooglePrivacyDlpV2Range' <$>
(o .:? "start") <*> (o .:? "end"))
instance ToJSON GooglePrivacyDlpV2Range where
toJSON GooglePrivacyDlpV2Range'{..}
= object
(catMaybes
[("start" .=) <$> _gpdvrStart,
("end" .=) <$> _gpdvrEnd])
data GoogleRpcStatus =
GoogleRpcStatus'
{ _grsDetails :: !(Maybe [GoogleRpcStatusDetailsItem])
, _grsCode :: !(Maybe (Textual Int32))
, _grsMessage :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleRpcStatus
:: GoogleRpcStatus
googleRpcStatus =
GoogleRpcStatus'
{_grsDetails = Nothing, _grsCode = Nothing, _grsMessage = Nothing}
grsDetails :: Lens' GoogleRpcStatus [GoogleRpcStatusDetailsItem]
grsDetails
= lens _grsDetails (\ s a -> s{_grsDetails = a}) .
_Default
. _Coerce
grsCode :: Lens' GoogleRpcStatus (Maybe Int32)
grsCode
= lens _grsCode (\ s a -> s{_grsCode = a}) .
mapping _Coerce
grsMessage :: Lens' GoogleRpcStatus (Maybe Text)
grsMessage
= lens _grsMessage (\ s a -> s{_grsMessage = a})
instance FromJSON GoogleRpcStatus where
parseJSON
= withObject "GoogleRpcStatus"
(\ o ->
GoogleRpcStatus' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON GoogleRpcStatus where
toJSON GoogleRpcStatus'{..}
= object
(catMaybes
[("details" .=) <$> _grsDetails,
("code" .=) <$> _grsCode,
("message" .=) <$> _grsMessage])
data GooglePrivacyDlpV2FixedSizeBucketingConfig =
GooglePrivacyDlpV2FixedSizeBucketingConfig'
{ _gpdvfsbcUpperBound :: !(Maybe GooglePrivacyDlpV2Value)
, _gpdvfsbcLowerBound :: !(Maybe GooglePrivacyDlpV2Value)
, _gpdvfsbcBucketSize :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2FixedSizeBucketingConfig
:: GooglePrivacyDlpV2FixedSizeBucketingConfig
googlePrivacyDlpV2FixedSizeBucketingConfig =
GooglePrivacyDlpV2FixedSizeBucketingConfig'
{ _gpdvfsbcUpperBound = Nothing
, _gpdvfsbcLowerBound = Nothing
, _gpdvfsbcBucketSize = Nothing
}
gpdvfsbcUpperBound :: Lens' GooglePrivacyDlpV2FixedSizeBucketingConfig (Maybe GooglePrivacyDlpV2Value)
gpdvfsbcUpperBound
= lens _gpdvfsbcUpperBound
(\ s a -> s{_gpdvfsbcUpperBound = a})
gpdvfsbcLowerBound :: Lens' GooglePrivacyDlpV2FixedSizeBucketingConfig (Maybe GooglePrivacyDlpV2Value)
gpdvfsbcLowerBound
= lens _gpdvfsbcLowerBound
(\ s a -> s{_gpdvfsbcLowerBound = a})
gpdvfsbcBucketSize :: Lens' GooglePrivacyDlpV2FixedSizeBucketingConfig (Maybe Double)
gpdvfsbcBucketSize
= lens _gpdvfsbcBucketSize
(\ s a -> s{_gpdvfsbcBucketSize = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2FixedSizeBucketingConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2FixedSizeBucketingConfig"
(\ o ->
GooglePrivacyDlpV2FixedSizeBucketingConfig' <$>
(o .:? "upperBound") <*> (o .:? "lowerBound") <*>
(o .:? "bucketSize"))
instance ToJSON
GooglePrivacyDlpV2FixedSizeBucketingConfig
where
toJSON
GooglePrivacyDlpV2FixedSizeBucketingConfig'{..}
= object
(catMaybes
[("upperBound" .=) <$> _gpdvfsbcUpperBound,
("lowerBound" .=) <$> _gpdvfsbcLowerBound,
("bucketSize" .=) <$> _gpdvfsbcBucketSize])
data GooglePrivacyDlpV2InspectResult =
GooglePrivacyDlpV2InspectResult'
{ _gpdvirFindingsTruncated :: !(Maybe Bool)
, _gpdvirFindings :: !(Maybe [GooglePrivacyDlpV2Finding])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectResult
:: GooglePrivacyDlpV2InspectResult
googlePrivacyDlpV2InspectResult =
GooglePrivacyDlpV2InspectResult'
{_gpdvirFindingsTruncated = Nothing, _gpdvirFindings = Nothing}
gpdvirFindingsTruncated :: Lens' GooglePrivacyDlpV2InspectResult (Maybe Bool)
gpdvirFindingsTruncated
= lens _gpdvirFindingsTruncated
(\ s a -> s{_gpdvirFindingsTruncated = a})
gpdvirFindings :: Lens' GooglePrivacyDlpV2InspectResult [GooglePrivacyDlpV2Finding]
gpdvirFindings
= lens _gpdvirFindings
(\ s a -> s{_gpdvirFindings = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2InspectResult
where
parseJSON
= withObject "GooglePrivacyDlpV2InspectResult"
(\ o ->
GooglePrivacyDlpV2InspectResult' <$>
(o .:? "findingsTruncated") <*>
(o .:? "findings" .!= mempty))
instance ToJSON GooglePrivacyDlpV2InspectResult where
toJSON GooglePrivacyDlpV2InspectResult'{..}
= object
(catMaybes
[("findingsTruncated" .=) <$>
_gpdvirFindingsTruncated,
("findings" .=) <$> _gpdvirFindings])
data GooglePrivacyDlpV2StoredInfoTypeConfig =
GooglePrivacyDlpV2StoredInfoTypeConfig'
{ _gpdvsitcLargeCustomDictionary :: !(Maybe GooglePrivacyDlpV2LargeCustomDictionaryConfig)
, _gpdvsitcDisplayName :: !(Maybe Text)
, _gpdvsitcDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2StoredInfoTypeConfig
:: GooglePrivacyDlpV2StoredInfoTypeConfig
googlePrivacyDlpV2StoredInfoTypeConfig =
GooglePrivacyDlpV2StoredInfoTypeConfig'
{ _gpdvsitcLargeCustomDictionary = Nothing
, _gpdvsitcDisplayName = Nothing
, _gpdvsitcDescription = Nothing
}
gpdvsitcLargeCustomDictionary :: Lens' GooglePrivacyDlpV2StoredInfoTypeConfig (Maybe GooglePrivacyDlpV2LargeCustomDictionaryConfig)
gpdvsitcLargeCustomDictionary
= lens _gpdvsitcLargeCustomDictionary
(\ s a -> s{_gpdvsitcLargeCustomDictionary = a})
gpdvsitcDisplayName :: Lens' GooglePrivacyDlpV2StoredInfoTypeConfig (Maybe Text)
gpdvsitcDisplayName
= lens _gpdvsitcDisplayName
(\ s a -> s{_gpdvsitcDisplayName = a})
gpdvsitcDescription :: Lens' GooglePrivacyDlpV2StoredInfoTypeConfig (Maybe Text)
gpdvsitcDescription
= lens _gpdvsitcDescription
(\ s a -> s{_gpdvsitcDescription = a})
instance FromJSON
GooglePrivacyDlpV2StoredInfoTypeConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2StoredInfoTypeConfig"
(\ o ->
GooglePrivacyDlpV2StoredInfoTypeConfig' <$>
(o .:? "largeCustomDictionary") <*>
(o .:? "displayName")
<*> (o .:? "description"))
instance ToJSON
GooglePrivacyDlpV2StoredInfoTypeConfig
where
toJSON GooglePrivacyDlpV2StoredInfoTypeConfig'{..}
= object
(catMaybes
[("largeCustomDictionary" .=) <$>
_gpdvsitcLargeCustomDictionary,
("displayName" .=) <$> _gpdvsitcDisplayName,
("description" .=) <$> _gpdvsitcDescription])
data GooglePrivacyDlpV2InfoTypeTransformation =
GooglePrivacyDlpV2InfoTypeTransformation'
{ _gpdvittInfoTypes :: !(Maybe [GooglePrivacyDlpV2InfoType])
, _gpdvittPrimitiveTransformation :: !(Maybe GooglePrivacyDlpV2PrimitiveTransformation)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InfoTypeTransformation
:: GooglePrivacyDlpV2InfoTypeTransformation
googlePrivacyDlpV2InfoTypeTransformation =
GooglePrivacyDlpV2InfoTypeTransformation'
{_gpdvittInfoTypes = Nothing, _gpdvittPrimitiveTransformation = Nothing}
gpdvittInfoTypes :: Lens' GooglePrivacyDlpV2InfoTypeTransformation [GooglePrivacyDlpV2InfoType]
gpdvittInfoTypes
= lens _gpdvittInfoTypes
(\ s a -> s{_gpdvittInfoTypes = a})
. _Default
. _Coerce
gpdvittPrimitiveTransformation :: Lens' GooglePrivacyDlpV2InfoTypeTransformation (Maybe GooglePrivacyDlpV2PrimitiveTransformation)
gpdvittPrimitiveTransformation
= lens _gpdvittPrimitiveTransformation
(\ s a -> s{_gpdvittPrimitiveTransformation = a})
instance FromJSON
GooglePrivacyDlpV2InfoTypeTransformation
where
parseJSON
= withObject
"GooglePrivacyDlpV2InfoTypeTransformation"
(\ o ->
GooglePrivacyDlpV2InfoTypeTransformation' <$>
(o .:? "infoTypes" .!= mempty) <*>
(o .:? "primitiveTransformation"))
instance ToJSON
GooglePrivacyDlpV2InfoTypeTransformation
where
toJSON GooglePrivacyDlpV2InfoTypeTransformation'{..}
= object
(catMaybes
[("infoTypes" .=) <$> _gpdvittInfoTypes,
("primitiveTransformation" .=) <$>
_gpdvittPrimitiveTransformation])
newtype GooglePrivacyDlpV2FieldId =
GooglePrivacyDlpV2FieldId'
{ _gpdvfiName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2FieldId
:: GooglePrivacyDlpV2FieldId
googlePrivacyDlpV2FieldId = GooglePrivacyDlpV2FieldId' {_gpdvfiName = Nothing}
gpdvfiName :: Lens' GooglePrivacyDlpV2FieldId (Maybe Text)
gpdvfiName
= lens _gpdvfiName (\ s a -> s{_gpdvfiName = a})
instance FromJSON GooglePrivacyDlpV2FieldId where
parseJSON
= withObject "GooglePrivacyDlpV2FieldId"
(\ o ->
GooglePrivacyDlpV2FieldId' <$> (o .:? "name"))
instance ToJSON GooglePrivacyDlpV2FieldId where
toJSON GooglePrivacyDlpV2FieldId'{..}
= object (catMaybes [("name" .=) <$> _gpdvfiName])
data GooglePrivacyDlpV2DlpJob =
GooglePrivacyDlpV2DlpJob'
{ _gpdvdjInspectDetails :: !(Maybe GooglePrivacyDlpV2InspectDataSourceDetails)
, _gpdvdjState :: !(Maybe GooglePrivacyDlpV2DlpJobState)
, _gpdvdjStartTime :: !(Maybe DateTime')
, _gpdvdjJobTriggerName :: !(Maybe Text)
, _gpdvdjRiskDetails :: !(Maybe GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails)
, _gpdvdjName :: !(Maybe Text)
, _gpdvdjEndTime :: !(Maybe DateTime')
, _gpdvdjType :: !(Maybe GooglePrivacyDlpV2DlpJobType)
, _gpdvdjErrors :: !(Maybe [GooglePrivacyDlpV2Error])
, _gpdvdjCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DlpJob
:: GooglePrivacyDlpV2DlpJob
googlePrivacyDlpV2DlpJob =
GooglePrivacyDlpV2DlpJob'
{ _gpdvdjInspectDetails = Nothing
, _gpdvdjState = Nothing
, _gpdvdjStartTime = Nothing
, _gpdvdjJobTriggerName = Nothing
, _gpdvdjRiskDetails = Nothing
, _gpdvdjName = Nothing
, _gpdvdjEndTime = Nothing
, _gpdvdjType = Nothing
, _gpdvdjErrors = Nothing
, _gpdvdjCreateTime = Nothing
}
gpdvdjInspectDetails :: Lens' GooglePrivacyDlpV2DlpJob (Maybe GooglePrivacyDlpV2InspectDataSourceDetails)
gpdvdjInspectDetails
= lens _gpdvdjInspectDetails
(\ s a -> s{_gpdvdjInspectDetails = a})
gpdvdjState :: Lens' GooglePrivacyDlpV2DlpJob (Maybe GooglePrivacyDlpV2DlpJobState)
gpdvdjState
= lens _gpdvdjState (\ s a -> s{_gpdvdjState = a})
gpdvdjStartTime :: Lens' GooglePrivacyDlpV2DlpJob (Maybe UTCTime)
gpdvdjStartTime
= lens _gpdvdjStartTime
(\ s a -> s{_gpdvdjStartTime = a})
. mapping _DateTime
gpdvdjJobTriggerName :: Lens' GooglePrivacyDlpV2DlpJob (Maybe Text)
gpdvdjJobTriggerName
= lens _gpdvdjJobTriggerName
(\ s a -> s{_gpdvdjJobTriggerName = a})
gpdvdjRiskDetails :: Lens' GooglePrivacyDlpV2DlpJob (Maybe GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails)
gpdvdjRiskDetails
= lens _gpdvdjRiskDetails
(\ s a -> s{_gpdvdjRiskDetails = a})
gpdvdjName :: Lens' GooglePrivacyDlpV2DlpJob (Maybe Text)
gpdvdjName
= lens _gpdvdjName (\ s a -> s{_gpdvdjName = a})
gpdvdjEndTime :: Lens' GooglePrivacyDlpV2DlpJob (Maybe UTCTime)
gpdvdjEndTime
= lens _gpdvdjEndTime
(\ s a -> s{_gpdvdjEndTime = a})
. mapping _DateTime
gpdvdjType :: Lens' GooglePrivacyDlpV2DlpJob (Maybe GooglePrivacyDlpV2DlpJobType)
gpdvdjType
= lens _gpdvdjType (\ s a -> s{_gpdvdjType = a})
gpdvdjErrors :: Lens' GooglePrivacyDlpV2DlpJob [GooglePrivacyDlpV2Error]
gpdvdjErrors
= lens _gpdvdjErrors (\ s a -> s{_gpdvdjErrors = a})
. _Default
. _Coerce
gpdvdjCreateTime :: Lens' GooglePrivacyDlpV2DlpJob (Maybe UTCTime)
gpdvdjCreateTime
= lens _gpdvdjCreateTime
(\ s a -> s{_gpdvdjCreateTime = a})
. mapping _DateTime
instance FromJSON GooglePrivacyDlpV2DlpJob where
parseJSON
= withObject "GooglePrivacyDlpV2DlpJob"
(\ o ->
GooglePrivacyDlpV2DlpJob' <$>
(o .:? "inspectDetails") <*> (o .:? "state") <*>
(o .:? "startTime")
<*> (o .:? "jobTriggerName")
<*> (o .:? "riskDetails")
<*> (o .:? "name")
<*> (o .:? "endTime")
<*> (o .:? "type")
<*> (o .:? "errors" .!= mempty)
<*> (o .:? "createTime"))
instance ToJSON GooglePrivacyDlpV2DlpJob where
toJSON GooglePrivacyDlpV2DlpJob'{..}
= object
(catMaybes
[("inspectDetails" .=) <$> _gpdvdjInspectDetails,
("state" .=) <$> _gpdvdjState,
("startTime" .=) <$> _gpdvdjStartTime,
("jobTriggerName" .=) <$> _gpdvdjJobTriggerName,
("riskDetails" .=) <$> _gpdvdjRiskDetails,
("name" .=) <$> _gpdvdjName,
("endTime" .=) <$> _gpdvdjEndTime,
("type" .=) <$> _gpdvdjType,
("errors" .=) <$> _gpdvdjErrors,
("createTime" .=) <$> _gpdvdjCreateTime])
data GooglePrivacyDlpV2RecordTransformations =
GooglePrivacyDlpV2RecordTransformations'
{ _gpdvrtRecordSuppressions :: !(Maybe [GooglePrivacyDlpV2RecordSuppression])
, _gpdvrtFieldTransformations :: !(Maybe [GooglePrivacyDlpV2FieldTransformation])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RecordTransformations
:: GooglePrivacyDlpV2RecordTransformations
googlePrivacyDlpV2RecordTransformations =
GooglePrivacyDlpV2RecordTransformations'
{_gpdvrtRecordSuppressions = Nothing, _gpdvrtFieldTransformations = Nothing}
gpdvrtRecordSuppressions :: Lens' GooglePrivacyDlpV2RecordTransformations [GooglePrivacyDlpV2RecordSuppression]
gpdvrtRecordSuppressions
= lens _gpdvrtRecordSuppressions
(\ s a -> s{_gpdvrtRecordSuppressions = a})
. _Default
. _Coerce
gpdvrtFieldTransformations :: Lens' GooglePrivacyDlpV2RecordTransformations [GooglePrivacyDlpV2FieldTransformation]
gpdvrtFieldTransformations
= lens _gpdvrtFieldTransformations
(\ s a -> s{_gpdvrtFieldTransformations = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2RecordTransformations
where
parseJSON
= withObject
"GooglePrivacyDlpV2RecordTransformations"
(\ o ->
GooglePrivacyDlpV2RecordTransformations' <$>
(o .:? "recordSuppressions" .!= mempty) <*>
(o .:? "fieldTransformations" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2RecordTransformations
where
toJSON GooglePrivacyDlpV2RecordTransformations'{..}
= object
(catMaybes
[("recordSuppressions" .=) <$>
_gpdvrtRecordSuppressions,
("fieldTransformations" .=) <$>
_gpdvrtFieldTransformations])
data GooglePrivacyDlpV2Key =
GooglePrivacyDlpV2Key'
{ _gpdvkPartitionId :: !(Maybe GooglePrivacyDlpV2PartitionId)
, _gpdvkPath :: !(Maybe [GooglePrivacyDlpV2PathElement])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Key
:: GooglePrivacyDlpV2Key
googlePrivacyDlpV2Key =
GooglePrivacyDlpV2Key' {_gpdvkPartitionId = Nothing, _gpdvkPath = Nothing}
gpdvkPartitionId :: Lens' GooglePrivacyDlpV2Key (Maybe GooglePrivacyDlpV2PartitionId)
gpdvkPartitionId
= lens _gpdvkPartitionId
(\ s a -> s{_gpdvkPartitionId = a})
gpdvkPath :: Lens' GooglePrivacyDlpV2Key [GooglePrivacyDlpV2PathElement]
gpdvkPath
= lens _gpdvkPath (\ s a -> s{_gpdvkPath = a}) .
_Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2Key where
parseJSON
= withObject "GooglePrivacyDlpV2Key"
(\ o ->
GooglePrivacyDlpV2Key' <$>
(o .:? "partitionId") <*> (o .:? "path" .!= mempty))
instance ToJSON GooglePrivacyDlpV2Key where
toJSON GooglePrivacyDlpV2Key'{..}
= object
(catMaybes
[("partitionId" .=) <$> _gpdvkPartitionId,
("path" .=) <$> _gpdvkPath])
newtype GooglePrivacyDlpV2BucketingConfig =
GooglePrivacyDlpV2BucketingConfig'
{ _gpdvbcBuckets :: Maybe [GooglePrivacyDlpV2Bucket]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2BucketingConfig
:: GooglePrivacyDlpV2BucketingConfig
googlePrivacyDlpV2BucketingConfig =
GooglePrivacyDlpV2BucketingConfig' {_gpdvbcBuckets = Nothing}
gpdvbcBuckets :: Lens' GooglePrivacyDlpV2BucketingConfig [GooglePrivacyDlpV2Bucket]
gpdvbcBuckets
= lens _gpdvbcBuckets
(\ s a -> s{_gpdvbcBuckets = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2BucketingConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2BucketingConfig"
(\ o ->
GooglePrivacyDlpV2BucketingConfig' <$>
(o .:? "buckets" .!= mempty))
instance ToJSON GooglePrivacyDlpV2BucketingConfig
where
toJSON GooglePrivacyDlpV2BucketingConfig'{..}
= object
(catMaybes [("buckets" .=) <$> _gpdvbcBuckets])
data GooglePrivacyDlpV2InspectConfig =
GooglePrivacyDlpV2InspectConfig'
{ _gpdvicInfoTypes :: !(Maybe [GooglePrivacyDlpV2InfoType])
, _gpdvicMinLikelihood :: !(Maybe GooglePrivacyDlpV2InspectConfigMinLikelihood)
, _gpdvicExcludeInfoTypes :: !(Maybe Bool)
, _gpdvicIncludeQuote :: !(Maybe Bool)
, _gpdvicCustomInfoTypes :: !(Maybe [GooglePrivacyDlpV2CustomInfoType])
, _gpdvicLimits :: !(Maybe GooglePrivacyDlpV2FindingLimits)
, _gpdvicContentOptions :: !(Maybe [Text])
, _gpdvicRuleSet :: !(Maybe [GooglePrivacyDlpV2InspectionRuleSet])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectConfig
:: GooglePrivacyDlpV2InspectConfig
googlePrivacyDlpV2InspectConfig =
GooglePrivacyDlpV2InspectConfig'
{ _gpdvicInfoTypes = Nothing
, _gpdvicMinLikelihood = Nothing
, _gpdvicExcludeInfoTypes = Nothing
, _gpdvicIncludeQuote = Nothing
, _gpdvicCustomInfoTypes = Nothing
, _gpdvicLimits = Nothing
, _gpdvicContentOptions = Nothing
, _gpdvicRuleSet = Nothing
}
gpdvicInfoTypes :: Lens' GooglePrivacyDlpV2InspectConfig [GooglePrivacyDlpV2InfoType]
gpdvicInfoTypes
= lens _gpdvicInfoTypes
(\ s a -> s{_gpdvicInfoTypes = a})
. _Default
. _Coerce
gpdvicMinLikelihood :: Lens' GooglePrivacyDlpV2InspectConfig (Maybe GooglePrivacyDlpV2InspectConfigMinLikelihood)
gpdvicMinLikelihood
= lens _gpdvicMinLikelihood
(\ s a -> s{_gpdvicMinLikelihood = a})
gpdvicExcludeInfoTypes :: Lens' GooglePrivacyDlpV2InspectConfig (Maybe Bool)
gpdvicExcludeInfoTypes
= lens _gpdvicExcludeInfoTypes
(\ s a -> s{_gpdvicExcludeInfoTypes = a})
gpdvicIncludeQuote :: Lens' GooglePrivacyDlpV2InspectConfig (Maybe Bool)
gpdvicIncludeQuote
= lens _gpdvicIncludeQuote
(\ s a -> s{_gpdvicIncludeQuote = a})
gpdvicCustomInfoTypes :: Lens' GooglePrivacyDlpV2InspectConfig [GooglePrivacyDlpV2CustomInfoType]
gpdvicCustomInfoTypes
= lens _gpdvicCustomInfoTypes
(\ s a -> s{_gpdvicCustomInfoTypes = a})
. _Default
. _Coerce
gpdvicLimits :: Lens' GooglePrivacyDlpV2InspectConfig (Maybe GooglePrivacyDlpV2FindingLimits)
gpdvicLimits
= lens _gpdvicLimits (\ s a -> s{_gpdvicLimits = a})
gpdvicContentOptions :: Lens' GooglePrivacyDlpV2InspectConfig [Text]
gpdvicContentOptions
= lens _gpdvicContentOptions
(\ s a -> s{_gpdvicContentOptions = a})
. _Default
. _Coerce
gpdvicRuleSet :: Lens' GooglePrivacyDlpV2InspectConfig [GooglePrivacyDlpV2InspectionRuleSet]
gpdvicRuleSet
= lens _gpdvicRuleSet
(\ s a -> s{_gpdvicRuleSet = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2InspectConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2InspectConfig"
(\ o ->
GooglePrivacyDlpV2InspectConfig' <$>
(o .:? "infoTypes" .!= mempty) <*>
(o .:? "minLikelihood")
<*> (o .:? "excludeInfoTypes")
<*> (o .:? "includeQuote")
<*> (o .:? "customInfoTypes" .!= mempty)
<*> (o .:? "limits")
<*> (o .:? "contentOptions" .!= mempty)
<*> (o .:? "ruleSet" .!= mempty))
instance ToJSON GooglePrivacyDlpV2InspectConfig where
toJSON GooglePrivacyDlpV2InspectConfig'{..}
= object
(catMaybes
[("infoTypes" .=) <$> _gpdvicInfoTypes,
("minLikelihood" .=) <$> _gpdvicMinLikelihood,
("excludeInfoTypes" .=) <$> _gpdvicExcludeInfoTypes,
("includeQuote" .=) <$> _gpdvicIncludeQuote,
("customInfoTypes" .=) <$> _gpdvicCustomInfoTypes,
("limits" .=) <$> _gpdvicLimits,
("contentOptions" .=) <$> _gpdvicContentOptions,
("ruleSet" .=) <$> _gpdvicRuleSet])
data GooglePrivacyDlpV2RiskAnalysisJobConfig =
GooglePrivacyDlpV2RiskAnalysisJobConfig'
{ _gpdvrajcPrivacyMetric :: !(Maybe GooglePrivacyDlpV2PrivacyMetric)
, _gpdvrajcActions :: !(Maybe [GooglePrivacyDlpV2Action])
, _gpdvrajcSourceTable :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RiskAnalysisJobConfig
:: GooglePrivacyDlpV2RiskAnalysisJobConfig
googlePrivacyDlpV2RiskAnalysisJobConfig =
GooglePrivacyDlpV2RiskAnalysisJobConfig'
{ _gpdvrajcPrivacyMetric = Nothing
, _gpdvrajcActions = Nothing
, _gpdvrajcSourceTable = Nothing
}
gpdvrajcPrivacyMetric :: Lens' GooglePrivacyDlpV2RiskAnalysisJobConfig (Maybe GooglePrivacyDlpV2PrivacyMetric)
gpdvrajcPrivacyMetric
= lens _gpdvrajcPrivacyMetric
(\ s a -> s{_gpdvrajcPrivacyMetric = a})
gpdvrajcActions :: Lens' GooglePrivacyDlpV2RiskAnalysisJobConfig [GooglePrivacyDlpV2Action]
gpdvrajcActions
= lens _gpdvrajcActions
(\ s a -> s{_gpdvrajcActions = a})
. _Default
. _Coerce
gpdvrajcSourceTable :: Lens' GooglePrivacyDlpV2RiskAnalysisJobConfig (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvrajcSourceTable
= lens _gpdvrajcSourceTable
(\ s a -> s{_gpdvrajcSourceTable = a})
instance FromJSON
GooglePrivacyDlpV2RiskAnalysisJobConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2RiskAnalysisJobConfig"
(\ o ->
GooglePrivacyDlpV2RiskAnalysisJobConfig' <$>
(o .:? "privacyMetric") <*>
(o .:? "actions" .!= mempty)
<*> (o .:? "sourceTable"))
instance ToJSON
GooglePrivacyDlpV2RiskAnalysisJobConfig
where
toJSON GooglePrivacyDlpV2RiskAnalysisJobConfig'{..}
= object
(catMaybes
[("privacyMetric" .=) <$> _gpdvrajcPrivacyMetric,
("actions" .=) <$> _gpdvrajcActions,
("sourceTable" .=) <$> _gpdvrajcSourceTable])
newtype GooglePrivacyDlpV2QuoteInfo =
GooglePrivacyDlpV2QuoteInfo'
{ _gpdvqiDateTime :: Maybe GooglePrivacyDlpV2DateTime
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2QuoteInfo
:: GooglePrivacyDlpV2QuoteInfo
googlePrivacyDlpV2QuoteInfo =
GooglePrivacyDlpV2QuoteInfo' {_gpdvqiDateTime = Nothing}
gpdvqiDateTime :: Lens' GooglePrivacyDlpV2QuoteInfo (Maybe GooglePrivacyDlpV2DateTime)
gpdvqiDateTime
= lens _gpdvqiDateTime
(\ s a -> s{_gpdvqiDateTime = a})
instance FromJSON GooglePrivacyDlpV2QuoteInfo where
parseJSON
= withObject "GooglePrivacyDlpV2QuoteInfo"
(\ o ->
GooglePrivacyDlpV2QuoteInfo' <$> (o .:? "dateTime"))
instance ToJSON GooglePrivacyDlpV2QuoteInfo where
toJSON GooglePrivacyDlpV2QuoteInfo'{..}
= object
(catMaybes [("dateTime" .=) <$> _gpdvqiDateTime])
newtype GooglePrivacyDlpV2RecordSuppression =
GooglePrivacyDlpV2RecordSuppression'
{ _gpdvrsCondition :: Maybe GooglePrivacyDlpV2RecordCondition
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RecordSuppression
:: GooglePrivacyDlpV2RecordSuppression
googlePrivacyDlpV2RecordSuppression =
GooglePrivacyDlpV2RecordSuppression' {_gpdvrsCondition = Nothing}
gpdvrsCondition :: Lens' GooglePrivacyDlpV2RecordSuppression (Maybe GooglePrivacyDlpV2RecordCondition)
gpdvrsCondition
= lens _gpdvrsCondition
(\ s a -> s{_gpdvrsCondition = a})
instance FromJSON GooglePrivacyDlpV2RecordSuppression
where
parseJSON
= withObject "GooglePrivacyDlpV2RecordSuppression"
(\ o ->
GooglePrivacyDlpV2RecordSuppression' <$>
(o .:? "condition"))
instance ToJSON GooglePrivacyDlpV2RecordSuppression
where
toJSON GooglePrivacyDlpV2RecordSuppression'{..}
= object
(catMaybes [("condition" .=) <$> _gpdvrsCondition])
data GooglePrivacyDlpV2CryptoKey =
GooglePrivacyDlpV2CryptoKey'
{ _gpdvckTransient :: !(Maybe GooglePrivacyDlpV2TransientCryptoKey)
, _gpdvckKmsWrApped :: !(Maybe GooglePrivacyDlpV2KmsWrAppedCryptoKey)
, _gpdvckUnwrApped :: !(Maybe GooglePrivacyDlpV2UnwrAppedCryptoKey)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CryptoKey
:: GooglePrivacyDlpV2CryptoKey
googlePrivacyDlpV2CryptoKey =
GooglePrivacyDlpV2CryptoKey'
{ _gpdvckTransient = Nothing
, _gpdvckKmsWrApped = Nothing
, _gpdvckUnwrApped = Nothing
}
gpdvckTransient :: Lens' GooglePrivacyDlpV2CryptoKey (Maybe GooglePrivacyDlpV2TransientCryptoKey)
gpdvckTransient
= lens _gpdvckTransient
(\ s a -> s{_gpdvckTransient = a})
gpdvckKmsWrApped :: Lens' GooglePrivacyDlpV2CryptoKey (Maybe GooglePrivacyDlpV2KmsWrAppedCryptoKey)
gpdvckKmsWrApped
= lens _gpdvckKmsWrApped
(\ s a -> s{_gpdvckKmsWrApped = a})
gpdvckUnwrApped :: Lens' GooglePrivacyDlpV2CryptoKey (Maybe GooglePrivacyDlpV2UnwrAppedCryptoKey)
gpdvckUnwrApped
= lens _gpdvckUnwrApped
(\ s a -> s{_gpdvckUnwrApped = a})
instance FromJSON GooglePrivacyDlpV2CryptoKey where
parseJSON
= withObject "GooglePrivacyDlpV2CryptoKey"
(\ o ->
GooglePrivacyDlpV2CryptoKey' <$>
(o .:? "transient") <*> (o .:? "kmsWrapped") <*>
(o .:? "unwrapped"))
instance ToJSON GooglePrivacyDlpV2CryptoKey where
toJSON GooglePrivacyDlpV2CryptoKey'{..}
= object
(catMaybes
[("transient" .=) <$> _gpdvckTransient,
("kmsWrapped" .=) <$> _gpdvckKmsWrApped,
("unwrapped" .=) <$> _gpdvckUnwrApped])
data GooglePrivacyDlpV2LargeCustomDictionaryConfig =
GooglePrivacyDlpV2LargeCustomDictionaryConfig'
{ _gpdvlcdcBigQueryField :: !(Maybe GooglePrivacyDlpV2BigQueryField)
, _gpdvlcdcCloudStorageFileSet :: !(Maybe GooglePrivacyDlpV2CloudStorageFileSet)
, _gpdvlcdcOutputPath :: !(Maybe GooglePrivacyDlpV2CloudStoragePath)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2LargeCustomDictionaryConfig
:: GooglePrivacyDlpV2LargeCustomDictionaryConfig
googlePrivacyDlpV2LargeCustomDictionaryConfig =
GooglePrivacyDlpV2LargeCustomDictionaryConfig'
{ _gpdvlcdcBigQueryField = Nothing
, _gpdvlcdcCloudStorageFileSet = Nothing
, _gpdvlcdcOutputPath = Nothing
}
gpdvlcdcBigQueryField :: Lens' GooglePrivacyDlpV2LargeCustomDictionaryConfig (Maybe GooglePrivacyDlpV2BigQueryField)
gpdvlcdcBigQueryField
= lens _gpdvlcdcBigQueryField
(\ s a -> s{_gpdvlcdcBigQueryField = a})
gpdvlcdcCloudStorageFileSet :: Lens' GooglePrivacyDlpV2LargeCustomDictionaryConfig (Maybe GooglePrivacyDlpV2CloudStorageFileSet)
gpdvlcdcCloudStorageFileSet
= lens _gpdvlcdcCloudStorageFileSet
(\ s a -> s{_gpdvlcdcCloudStorageFileSet = a})
gpdvlcdcOutputPath :: Lens' GooglePrivacyDlpV2LargeCustomDictionaryConfig (Maybe GooglePrivacyDlpV2CloudStoragePath)
gpdvlcdcOutputPath
= lens _gpdvlcdcOutputPath
(\ s a -> s{_gpdvlcdcOutputPath = a})
instance FromJSON
GooglePrivacyDlpV2LargeCustomDictionaryConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2LargeCustomDictionaryConfig"
(\ o ->
GooglePrivacyDlpV2LargeCustomDictionaryConfig' <$>
(o .:? "bigQueryField") <*>
(o .:? "cloudStorageFileSet")
<*> (o .:? "outputPath"))
instance ToJSON
GooglePrivacyDlpV2LargeCustomDictionaryConfig
where
toJSON
GooglePrivacyDlpV2LargeCustomDictionaryConfig'{..}
= object
(catMaybes
[("bigQueryField" .=) <$> _gpdvlcdcBigQueryField,
("cloudStorageFileSet" .=) <$>
_gpdvlcdcCloudStorageFileSet,
("outputPath" .=) <$> _gpdvlcdcOutputPath])
newtype GooglePrivacyDlpV2WordList =
GooglePrivacyDlpV2WordList'
{ _gpdvwlWords :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2WordList
:: GooglePrivacyDlpV2WordList
googlePrivacyDlpV2WordList =
GooglePrivacyDlpV2WordList' {_gpdvwlWords = Nothing}
gpdvwlWords :: Lens' GooglePrivacyDlpV2WordList [Text]
gpdvwlWords
= lens _gpdvwlWords (\ s a -> s{_gpdvwlWords = a}) .
_Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2WordList where
parseJSON
= withObject "GooglePrivacyDlpV2WordList"
(\ o ->
GooglePrivacyDlpV2WordList' <$>
(o .:? "words" .!= mempty))
instance ToJSON GooglePrivacyDlpV2WordList where
toJSON GooglePrivacyDlpV2WordList'{..}
= object (catMaybes [("words" .=) <$> _gpdvwlWords])
data GooglePrivacyDlpV2ContentItem =
GooglePrivacyDlpV2ContentItem'
{ _gpdvciValue :: !(Maybe Text)
, _gpdvciByteItem :: !(Maybe GooglePrivacyDlpV2ByteContentItem)
, _gpdvciTable :: !(Maybe GooglePrivacyDlpV2Table)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ContentItem
:: GooglePrivacyDlpV2ContentItem
googlePrivacyDlpV2ContentItem =
GooglePrivacyDlpV2ContentItem'
{_gpdvciValue = Nothing, _gpdvciByteItem = Nothing, _gpdvciTable = Nothing}
gpdvciValue :: Lens' GooglePrivacyDlpV2ContentItem (Maybe Text)
gpdvciValue
= lens _gpdvciValue (\ s a -> s{_gpdvciValue = a})
gpdvciByteItem :: Lens' GooglePrivacyDlpV2ContentItem (Maybe GooglePrivacyDlpV2ByteContentItem)
gpdvciByteItem
= lens _gpdvciByteItem
(\ s a -> s{_gpdvciByteItem = a})
gpdvciTable :: Lens' GooglePrivacyDlpV2ContentItem (Maybe GooglePrivacyDlpV2Table)
gpdvciTable
= lens _gpdvciTable (\ s a -> s{_gpdvciTable = a})
instance FromJSON GooglePrivacyDlpV2ContentItem where
parseJSON
= withObject "GooglePrivacyDlpV2ContentItem"
(\ o ->
GooglePrivacyDlpV2ContentItem' <$>
(o .:? "value") <*> (o .:? "byteItem") <*>
(o .:? "table"))
instance ToJSON GooglePrivacyDlpV2ContentItem where
toJSON GooglePrivacyDlpV2ContentItem'{..}
= object
(catMaybes
[("value" .=) <$> _gpdvciValue,
("byteItem" .=) <$> _gpdvciByteItem,
("table" .=) <$> _gpdvciTable])
data GooglePrivacyDlpV2CategoricalStatsHistogramBucket =
GooglePrivacyDlpV2CategoricalStatsHistogramBucket'
{ _gpdvcshbValueFrequencyLowerBound :: !(Maybe (Textual Int64))
, _gpdvcshbBucketValues :: !(Maybe [GooglePrivacyDlpV2ValueFrequency])
, _gpdvcshbValueFrequencyUpperBound :: !(Maybe (Textual Int64))
, _gpdvcshbBucketSize :: !(Maybe (Textual Int64))
, _gpdvcshbBucketValueCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CategoricalStatsHistogramBucket
:: GooglePrivacyDlpV2CategoricalStatsHistogramBucket
googlePrivacyDlpV2CategoricalStatsHistogramBucket =
GooglePrivacyDlpV2CategoricalStatsHistogramBucket'
{ _gpdvcshbValueFrequencyLowerBound = Nothing
, _gpdvcshbBucketValues = Nothing
, _gpdvcshbValueFrequencyUpperBound = Nothing
, _gpdvcshbBucketSize = Nothing
, _gpdvcshbBucketValueCount = Nothing
}
gpdvcshbValueFrequencyLowerBound :: Lens' GooglePrivacyDlpV2CategoricalStatsHistogramBucket (Maybe Int64)
gpdvcshbValueFrequencyLowerBound
= lens _gpdvcshbValueFrequencyLowerBound
(\ s a -> s{_gpdvcshbValueFrequencyLowerBound = a})
. mapping _Coerce
gpdvcshbBucketValues :: Lens' GooglePrivacyDlpV2CategoricalStatsHistogramBucket [GooglePrivacyDlpV2ValueFrequency]
gpdvcshbBucketValues
= lens _gpdvcshbBucketValues
(\ s a -> s{_gpdvcshbBucketValues = a})
. _Default
. _Coerce
gpdvcshbValueFrequencyUpperBound :: Lens' GooglePrivacyDlpV2CategoricalStatsHistogramBucket (Maybe Int64)
gpdvcshbValueFrequencyUpperBound
= lens _gpdvcshbValueFrequencyUpperBound
(\ s a -> s{_gpdvcshbValueFrequencyUpperBound = a})
. mapping _Coerce
gpdvcshbBucketSize :: Lens' GooglePrivacyDlpV2CategoricalStatsHistogramBucket (Maybe Int64)
gpdvcshbBucketSize
= lens _gpdvcshbBucketSize
(\ s a -> s{_gpdvcshbBucketSize = a})
. mapping _Coerce
gpdvcshbBucketValueCount :: Lens' GooglePrivacyDlpV2CategoricalStatsHistogramBucket (Maybe Int64)
gpdvcshbBucketValueCount
= lens _gpdvcshbBucketValueCount
(\ s a -> s{_gpdvcshbBucketValueCount = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2CategoricalStatsHistogramBucket
where
parseJSON
= withObject
"GooglePrivacyDlpV2CategoricalStatsHistogramBucket"
(\ o ->
GooglePrivacyDlpV2CategoricalStatsHistogramBucket'
<$>
(o .:? "valueFrequencyLowerBound") <*>
(o .:? "bucketValues" .!= mempty)
<*> (o .:? "valueFrequencyUpperBound")
<*> (o .:? "bucketSize")
<*> (o .:? "bucketValueCount"))
instance ToJSON
GooglePrivacyDlpV2CategoricalStatsHistogramBucket
where
toJSON
GooglePrivacyDlpV2CategoricalStatsHistogramBucket'{..}
= object
(catMaybes
[("valueFrequencyLowerBound" .=) <$>
_gpdvcshbValueFrequencyLowerBound,
("bucketValues" .=) <$> _gpdvcshbBucketValues,
("valueFrequencyUpperBound" .=) <$>
_gpdvcshbValueFrequencyUpperBound,
("bucketSize" .=) <$> _gpdvcshbBucketSize,
("bucketValueCount" .=) <$>
_gpdvcshbBucketValueCount])
data GooglePrivacyDlpV2Result =
GooglePrivacyDlpV2Result'
{ _gpdvrProcessedBytes :: !(Maybe (Textual Int64))
, _gpdvrInfoTypeStats :: !(Maybe [GooglePrivacyDlpV2InfoTypeStats])
, _gpdvrTotalEstimatedBytes :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Result
:: GooglePrivacyDlpV2Result
googlePrivacyDlpV2Result =
GooglePrivacyDlpV2Result'
{ _gpdvrProcessedBytes = Nothing
, _gpdvrInfoTypeStats = Nothing
, _gpdvrTotalEstimatedBytes = Nothing
}
gpdvrProcessedBytes :: Lens' GooglePrivacyDlpV2Result (Maybe Int64)
gpdvrProcessedBytes
= lens _gpdvrProcessedBytes
(\ s a -> s{_gpdvrProcessedBytes = a})
. mapping _Coerce
gpdvrInfoTypeStats :: Lens' GooglePrivacyDlpV2Result [GooglePrivacyDlpV2InfoTypeStats]
gpdvrInfoTypeStats
= lens _gpdvrInfoTypeStats
(\ s a -> s{_gpdvrInfoTypeStats = a})
. _Default
. _Coerce
gpdvrTotalEstimatedBytes :: Lens' GooglePrivacyDlpV2Result (Maybe Int64)
gpdvrTotalEstimatedBytes
= lens _gpdvrTotalEstimatedBytes
(\ s a -> s{_gpdvrTotalEstimatedBytes = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2Result where
parseJSON
= withObject "GooglePrivacyDlpV2Result"
(\ o ->
GooglePrivacyDlpV2Result' <$>
(o .:? "processedBytes") <*>
(o .:? "infoTypeStats" .!= mempty)
<*> (o .:? "totalEstimatedBytes"))
instance ToJSON GooglePrivacyDlpV2Result where
toJSON GooglePrivacyDlpV2Result'{..}
= object
(catMaybes
[("processedBytes" .=) <$> _gpdvrProcessedBytes,
("infoTypeStats" .=) <$> _gpdvrInfoTypeStats,
("totalEstimatedBytes" .=) <$>
_gpdvrTotalEstimatedBytes])
data GooglePrivacyDlpV2InspectDataSourceDetails =
GooglePrivacyDlpV2InspectDataSourceDetails'
{ _gpdvidsdResult :: !(Maybe GooglePrivacyDlpV2Result)
, _gpdvidsdRequestedOptions :: !(Maybe GooglePrivacyDlpV2RequestedOptions)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectDataSourceDetails
:: GooglePrivacyDlpV2InspectDataSourceDetails
googlePrivacyDlpV2InspectDataSourceDetails =
GooglePrivacyDlpV2InspectDataSourceDetails'
{_gpdvidsdResult = Nothing, _gpdvidsdRequestedOptions = Nothing}
gpdvidsdResult :: Lens' GooglePrivacyDlpV2InspectDataSourceDetails (Maybe GooglePrivacyDlpV2Result)
gpdvidsdResult
= lens _gpdvidsdResult
(\ s a -> s{_gpdvidsdResult = a})
gpdvidsdRequestedOptions :: Lens' GooglePrivacyDlpV2InspectDataSourceDetails (Maybe GooglePrivacyDlpV2RequestedOptions)
gpdvidsdRequestedOptions
= lens _gpdvidsdRequestedOptions
(\ s a -> s{_gpdvidsdRequestedOptions = a})
instance FromJSON
GooglePrivacyDlpV2InspectDataSourceDetails
where
parseJSON
= withObject
"GooglePrivacyDlpV2InspectDataSourceDetails"
(\ o ->
GooglePrivacyDlpV2InspectDataSourceDetails' <$>
(o .:? "result") <*> (o .:? "requestedOptions"))
instance ToJSON
GooglePrivacyDlpV2InspectDataSourceDetails
where
toJSON
GooglePrivacyDlpV2InspectDataSourceDetails'{..}
= object
(catMaybes
[("result" .=) <$> _gpdvidsdResult,
("requestedOptions" .=) <$>
_gpdvidsdRequestedOptions])
data GooglePrivacyDlpV2RedactImageResponse =
GooglePrivacyDlpV2RedactImageResponse'
{ _gpdvrirExtractedText :: !(Maybe Text)
, _gpdvrirInspectResult :: !(Maybe GooglePrivacyDlpV2InspectResult)
, _gpdvrirRedactedImage :: !(Maybe Bytes)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RedactImageResponse
:: GooglePrivacyDlpV2RedactImageResponse
googlePrivacyDlpV2RedactImageResponse =
GooglePrivacyDlpV2RedactImageResponse'
{ _gpdvrirExtractedText = Nothing
, _gpdvrirInspectResult = Nothing
, _gpdvrirRedactedImage = Nothing
}
gpdvrirExtractedText :: Lens' GooglePrivacyDlpV2RedactImageResponse (Maybe Text)
gpdvrirExtractedText
= lens _gpdvrirExtractedText
(\ s a -> s{_gpdvrirExtractedText = a})
gpdvrirInspectResult :: Lens' GooglePrivacyDlpV2RedactImageResponse (Maybe GooglePrivacyDlpV2InspectResult)
gpdvrirInspectResult
= lens _gpdvrirInspectResult
(\ s a -> s{_gpdvrirInspectResult = a})
gpdvrirRedactedImage :: Lens' GooglePrivacyDlpV2RedactImageResponse (Maybe ByteString)
gpdvrirRedactedImage
= lens _gpdvrirRedactedImage
(\ s a -> s{_gpdvrirRedactedImage = a})
. mapping _Bytes
instance FromJSON
GooglePrivacyDlpV2RedactImageResponse
where
parseJSON
= withObject "GooglePrivacyDlpV2RedactImageResponse"
(\ o ->
GooglePrivacyDlpV2RedactImageResponse' <$>
(o .:? "extractedText") <*> (o .:? "inspectResult")
<*> (o .:? "redactedImage"))
instance ToJSON GooglePrivacyDlpV2RedactImageResponse
where
toJSON GooglePrivacyDlpV2RedactImageResponse'{..}
= object
(catMaybes
[("extractedText" .=) <$> _gpdvrirExtractedText,
("inspectResult" .=) <$> _gpdvrirInspectResult,
("redactedImage" .=) <$> _gpdvrirRedactedImage])
newtype GooglePrivacyDlpV2PublishToPubSub =
GooglePrivacyDlpV2PublishToPubSub'
{ _gpdvptpsTopic :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2PublishToPubSub
:: GooglePrivacyDlpV2PublishToPubSub
googlePrivacyDlpV2PublishToPubSub =
GooglePrivacyDlpV2PublishToPubSub' {_gpdvptpsTopic = Nothing}
gpdvptpsTopic :: Lens' GooglePrivacyDlpV2PublishToPubSub (Maybe Text)
gpdvptpsTopic
= lens _gpdvptpsTopic
(\ s a -> s{_gpdvptpsTopic = a})
instance FromJSON GooglePrivacyDlpV2PublishToPubSub
where
parseJSON
= withObject "GooglePrivacyDlpV2PublishToPubSub"
(\ o ->
GooglePrivacyDlpV2PublishToPubSub' <$>
(o .:? "topic"))
instance ToJSON GooglePrivacyDlpV2PublishToPubSub
where
toJSON GooglePrivacyDlpV2PublishToPubSub'{..}
= object
(catMaybes [("topic" .=) <$> _gpdvptpsTopic])
data GooglePrivacyDlpV2BigQueryKey =
GooglePrivacyDlpV2BigQueryKey'
{ _gpdvbqkTableReference :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
, _gpdvbqkRowNumber :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2BigQueryKey
:: GooglePrivacyDlpV2BigQueryKey
googlePrivacyDlpV2BigQueryKey =
GooglePrivacyDlpV2BigQueryKey'
{_gpdvbqkTableReference = Nothing, _gpdvbqkRowNumber = Nothing}
gpdvbqkTableReference :: Lens' GooglePrivacyDlpV2BigQueryKey (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvbqkTableReference
= lens _gpdvbqkTableReference
(\ s a -> s{_gpdvbqkTableReference = a})
gpdvbqkRowNumber :: Lens' GooglePrivacyDlpV2BigQueryKey (Maybe Int64)
gpdvbqkRowNumber
= lens _gpdvbqkRowNumber
(\ s a -> s{_gpdvbqkRowNumber = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2BigQueryKey where
parseJSON
= withObject "GooglePrivacyDlpV2BigQueryKey"
(\ o ->
GooglePrivacyDlpV2BigQueryKey' <$>
(o .:? "tableReference") <*> (o .:? "rowNumber"))
instance ToJSON GooglePrivacyDlpV2BigQueryKey where
toJSON GooglePrivacyDlpV2BigQueryKey'{..}
= object
(catMaybes
[("tableReference" .=) <$> _gpdvbqkTableReference,
("rowNumber" .=) <$> _gpdvbqkRowNumber])
newtype GooglePrivacyDlpV2DetectionRule =
GooglePrivacyDlpV2DetectionRule'
{ _gpdvdrHotwordRule :: Maybe GooglePrivacyDlpV2HotwordRule
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DetectionRule
:: GooglePrivacyDlpV2DetectionRule
googlePrivacyDlpV2DetectionRule =
GooglePrivacyDlpV2DetectionRule' {_gpdvdrHotwordRule = Nothing}
gpdvdrHotwordRule :: Lens' GooglePrivacyDlpV2DetectionRule (Maybe GooglePrivacyDlpV2HotwordRule)
gpdvdrHotwordRule
= lens _gpdvdrHotwordRule
(\ s a -> s{_gpdvdrHotwordRule = a})
instance FromJSON GooglePrivacyDlpV2DetectionRule
where
parseJSON
= withObject "GooglePrivacyDlpV2DetectionRule"
(\ o ->
GooglePrivacyDlpV2DetectionRule' <$>
(o .:? "hotwordRule"))
instance ToJSON GooglePrivacyDlpV2DetectionRule where
toJSON GooglePrivacyDlpV2DetectionRule'{..}
= object
(catMaybes
[("hotwordRule" .=) <$> _gpdvdrHotwordRule])
newtype GooglePrivacyDlpV2RecordCondition =
GooglePrivacyDlpV2RecordCondition'
{ _gpdvrcExpressions :: Maybe GooglePrivacyDlpV2Expressions
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RecordCondition
:: GooglePrivacyDlpV2RecordCondition
googlePrivacyDlpV2RecordCondition =
GooglePrivacyDlpV2RecordCondition' {_gpdvrcExpressions = Nothing}
gpdvrcExpressions :: Lens' GooglePrivacyDlpV2RecordCondition (Maybe GooglePrivacyDlpV2Expressions)
gpdvrcExpressions
= lens _gpdvrcExpressions
(\ s a -> s{_gpdvrcExpressions = a})
instance FromJSON GooglePrivacyDlpV2RecordCondition
where
parseJSON
= withObject "GooglePrivacyDlpV2RecordCondition"
(\ o ->
GooglePrivacyDlpV2RecordCondition' <$>
(o .:? "expressions"))
instance ToJSON GooglePrivacyDlpV2RecordCondition
where
toJSON GooglePrivacyDlpV2RecordCondition'{..}
= object
(catMaybes
[("expressions" .=) <$> _gpdvrcExpressions])
data GooglePrivacyDlpV2DateShiftConfig =
GooglePrivacyDlpV2DateShiftConfig'
{ _gpdvdscContext :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvdscUpperBoundDays :: !(Maybe (Textual Int32))
, _gpdvdscCryptoKey :: !(Maybe GooglePrivacyDlpV2CryptoKey)
, _gpdvdscLowerBoundDays :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DateShiftConfig
:: GooglePrivacyDlpV2DateShiftConfig
googlePrivacyDlpV2DateShiftConfig =
GooglePrivacyDlpV2DateShiftConfig'
{ _gpdvdscContext = Nothing
, _gpdvdscUpperBoundDays = Nothing
, _gpdvdscCryptoKey = Nothing
, _gpdvdscLowerBoundDays = Nothing
}
gpdvdscContext :: Lens' GooglePrivacyDlpV2DateShiftConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvdscContext
= lens _gpdvdscContext
(\ s a -> s{_gpdvdscContext = a})
gpdvdscUpperBoundDays :: Lens' GooglePrivacyDlpV2DateShiftConfig (Maybe Int32)
gpdvdscUpperBoundDays
= lens _gpdvdscUpperBoundDays
(\ s a -> s{_gpdvdscUpperBoundDays = a})
. mapping _Coerce
gpdvdscCryptoKey :: Lens' GooglePrivacyDlpV2DateShiftConfig (Maybe GooglePrivacyDlpV2CryptoKey)
gpdvdscCryptoKey
= lens _gpdvdscCryptoKey
(\ s a -> s{_gpdvdscCryptoKey = a})
gpdvdscLowerBoundDays :: Lens' GooglePrivacyDlpV2DateShiftConfig (Maybe Int32)
gpdvdscLowerBoundDays
= lens _gpdvdscLowerBoundDays
(\ s a -> s{_gpdvdscLowerBoundDays = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2DateShiftConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2DateShiftConfig"
(\ o ->
GooglePrivacyDlpV2DateShiftConfig' <$>
(o .:? "context") <*> (o .:? "upperBoundDays") <*>
(o .:? "cryptoKey")
<*> (o .:? "lowerBoundDays"))
instance ToJSON GooglePrivacyDlpV2DateShiftConfig
where
toJSON GooglePrivacyDlpV2DateShiftConfig'{..}
= object
(catMaybes
[("context" .=) <$> _gpdvdscContext,
("upperBoundDays" .=) <$> _gpdvdscUpperBoundDays,
("cryptoKey" .=) <$> _gpdvdscCryptoKey,
("lowerBoundDays" .=) <$> _gpdvdscLowerBoundDays])
data GooglePrivacyDlpV2InspectContentRequest =
GooglePrivacyDlpV2InspectContentRequest'
{ _gpdvicrInspectConfig :: !(Maybe GooglePrivacyDlpV2InspectConfig)
, _gpdvicrItem :: !(Maybe GooglePrivacyDlpV2ContentItem)
, _gpdvicrInspectTemplateName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectContentRequest
:: GooglePrivacyDlpV2InspectContentRequest
googlePrivacyDlpV2InspectContentRequest =
GooglePrivacyDlpV2InspectContentRequest'
{ _gpdvicrInspectConfig = Nothing
, _gpdvicrItem = Nothing
, _gpdvicrInspectTemplateName = Nothing
}
gpdvicrInspectConfig :: Lens' GooglePrivacyDlpV2InspectContentRequest (Maybe GooglePrivacyDlpV2InspectConfig)
gpdvicrInspectConfig
= lens _gpdvicrInspectConfig
(\ s a -> s{_gpdvicrInspectConfig = a})
gpdvicrItem :: Lens' GooglePrivacyDlpV2InspectContentRequest (Maybe GooglePrivacyDlpV2ContentItem)
gpdvicrItem
= lens _gpdvicrItem (\ s a -> s{_gpdvicrItem = a})
gpdvicrInspectTemplateName :: Lens' GooglePrivacyDlpV2InspectContentRequest (Maybe Text)
gpdvicrInspectTemplateName
= lens _gpdvicrInspectTemplateName
(\ s a -> s{_gpdvicrInspectTemplateName = a})
instance FromJSON
GooglePrivacyDlpV2InspectContentRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2InspectContentRequest"
(\ o ->
GooglePrivacyDlpV2InspectContentRequest' <$>
(o .:? "inspectConfig") <*> (o .:? "item") <*>
(o .:? "inspectTemplateName"))
instance ToJSON
GooglePrivacyDlpV2InspectContentRequest
where
toJSON GooglePrivacyDlpV2InspectContentRequest'{..}
= object
(catMaybes
[("inspectConfig" .=) <$> _gpdvicrInspectConfig,
("item" .=) <$> _gpdvicrItem,
("inspectTemplateName" .=) <$>
_gpdvicrInspectTemplateName])
newtype GooglePrivacyDlpV2CategoricalStatsResult =
GooglePrivacyDlpV2CategoricalStatsResult'
{ _gpdvcsrValueFrequencyHistogramBuckets :: Maybe [GooglePrivacyDlpV2CategoricalStatsHistogramBucket]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CategoricalStatsResult
:: GooglePrivacyDlpV2CategoricalStatsResult
googlePrivacyDlpV2CategoricalStatsResult =
GooglePrivacyDlpV2CategoricalStatsResult'
{_gpdvcsrValueFrequencyHistogramBuckets = Nothing}
gpdvcsrValueFrequencyHistogramBuckets :: Lens' GooglePrivacyDlpV2CategoricalStatsResult [GooglePrivacyDlpV2CategoricalStatsHistogramBucket]
gpdvcsrValueFrequencyHistogramBuckets
= lens _gpdvcsrValueFrequencyHistogramBuckets
(\ s a ->
s{_gpdvcsrValueFrequencyHistogramBuckets = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2CategoricalStatsResult
where
parseJSON
= withObject
"GooglePrivacyDlpV2CategoricalStatsResult"
(\ o ->
GooglePrivacyDlpV2CategoricalStatsResult' <$>
(o .:? "valueFrequencyHistogramBuckets" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2CategoricalStatsResult
where
toJSON GooglePrivacyDlpV2CategoricalStatsResult'{..}
= object
(catMaybes
[("valueFrequencyHistogramBuckets" .=) <$>
_gpdvcsrValueFrequencyHistogramBuckets])
data GooglePrivacyDlpV2NumericalStatsResult =
GooglePrivacyDlpV2NumericalStatsResult'
{ _gpdvnsrMaxValue :: !(Maybe GooglePrivacyDlpV2Value)
, _gpdvnsrQuantileValues :: !(Maybe [GooglePrivacyDlpV2Value])
, _gpdvnsrMinValue :: !(Maybe GooglePrivacyDlpV2Value)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2NumericalStatsResult
:: GooglePrivacyDlpV2NumericalStatsResult
googlePrivacyDlpV2NumericalStatsResult =
GooglePrivacyDlpV2NumericalStatsResult'
{ _gpdvnsrMaxValue = Nothing
, _gpdvnsrQuantileValues = Nothing
, _gpdvnsrMinValue = Nothing
}
gpdvnsrMaxValue :: Lens' GooglePrivacyDlpV2NumericalStatsResult (Maybe GooglePrivacyDlpV2Value)
gpdvnsrMaxValue
= lens _gpdvnsrMaxValue
(\ s a -> s{_gpdvnsrMaxValue = a})
gpdvnsrQuantileValues :: Lens' GooglePrivacyDlpV2NumericalStatsResult [GooglePrivacyDlpV2Value]
gpdvnsrQuantileValues
= lens _gpdvnsrQuantileValues
(\ s a -> s{_gpdvnsrQuantileValues = a})
. _Default
. _Coerce
gpdvnsrMinValue :: Lens' GooglePrivacyDlpV2NumericalStatsResult (Maybe GooglePrivacyDlpV2Value)
gpdvnsrMinValue
= lens _gpdvnsrMinValue
(\ s a -> s{_gpdvnsrMinValue = a})
instance FromJSON
GooglePrivacyDlpV2NumericalStatsResult
where
parseJSON
= withObject "GooglePrivacyDlpV2NumericalStatsResult"
(\ o ->
GooglePrivacyDlpV2NumericalStatsResult' <$>
(o .:? "maxValue") <*>
(o .:? "quantileValues" .!= mempty)
<*> (o .:? "minValue"))
instance ToJSON
GooglePrivacyDlpV2NumericalStatsResult
where
toJSON GooglePrivacyDlpV2NumericalStatsResult'{..}
= object
(catMaybes
[("maxValue" .=) <$> _gpdvnsrMaxValue,
("quantileValues" .=) <$> _gpdvnsrQuantileValues,
("minValue" .=) <$> _gpdvnsrMinValue])
data GooglePrivacyDlpV2PublishSummaryToCscc =
GooglePrivacyDlpV2PublishSummaryToCscc'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2PublishSummaryToCscc
:: GooglePrivacyDlpV2PublishSummaryToCscc
googlePrivacyDlpV2PublishSummaryToCscc = GooglePrivacyDlpV2PublishSummaryToCscc'
instance FromJSON
GooglePrivacyDlpV2PublishSummaryToCscc
where
parseJSON
= withObject "GooglePrivacyDlpV2PublishSummaryToCscc"
(\ o -> pure GooglePrivacyDlpV2PublishSummaryToCscc')
instance ToJSON
GooglePrivacyDlpV2PublishSummaryToCscc
where
toJSON = const emptyObject
data GooglePrivacyDlpV2UpdateInspectTemplateRequest =
GooglePrivacyDlpV2UpdateInspectTemplateRequest'
{ _gpdvuitrUpdateMask :: !(Maybe GFieldMask)
, _gpdvuitrInspectTemplate :: !(Maybe GooglePrivacyDlpV2InspectTemplate)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2UpdateInspectTemplateRequest
:: GooglePrivacyDlpV2UpdateInspectTemplateRequest
googlePrivacyDlpV2UpdateInspectTemplateRequest =
GooglePrivacyDlpV2UpdateInspectTemplateRequest'
{_gpdvuitrUpdateMask = Nothing, _gpdvuitrInspectTemplate = Nothing}
gpdvuitrUpdateMask :: Lens' GooglePrivacyDlpV2UpdateInspectTemplateRequest (Maybe GFieldMask)
gpdvuitrUpdateMask
= lens _gpdvuitrUpdateMask
(\ s a -> s{_gpdvuitrUpdateMask = a})
gpdvuitrInspectTemplate :: Lens' GooglePrivacyDlpV2UpdateInspectTemplateRequest (Maybe GooglePrivacyDlpV2InspectTemplate)
gpdvuitrInspectTemplate
= lens _gpdvuitrInspectTemplate
(\ s a -> s{_gpdvuitrInspectTemplate = a})
instance FromJSON
GooglePrivacyDlpV2UpdateInspectTemplateRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2UpdateInspectTemplateRequest"
(\ o ->
GooglePrivacyDlpV2UpdateInspectTemplateRequest' <$>
(o .:? "updateMask") <*> (o .:? "inspectTemplate"))
instance ToJSON
GooglePrivacyDlpV2UpdateInspectTemplateRequest
where
toJSON
GooglePrivacyDlpV2UpdateInspectTemplateRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _gpdvuitrUpdateMask,
("inspectTemplate" .=) <$> _gpdvuitrInspectTemplate])
newtype GooglePrivacyDlpV2EntityId =
GooglePrivacyDlpV2EntityId'
{ _gpdveiField :: Maybe GooglePrivacyDlpV2FieldId
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2EntityId
:: GooglePrivacyDlpV2EntityId
googlePrivacyDlpV2EntityId =
GooglePrivacyDlpV2EntityId' {_gpdveiField = Nothing}
gpdveiField :: Lens' GooglePrivacyDlpV2EntityId (Maybe GooglePrivacyDlpV2FieldId)
gpdveiField
= lens _gpdveiField (\ s a -> s{_gpdveiField = a})
instance FromJSON GooglePrivacyDlpV2EntityId where
parseJSON
= withObject "GooglePrivacyDlpV2EntityId"
(\ o ->
GooglePrivacyDlpV2EntityId' <$> (o .:? "field"))
instance ToJSON GooglePrivacyDlpV2EntityId where
toJSON GooglePrivacyDlpV2EntityId'{..}
= object (catMaybes [("field" .=) <$> _gpdveiField])
data GooglePrivacyDlpV2ByteContentItem =
GooglePrivacyDlpV2ByteContentItem'
{ _gpdvbciData :: !(Maybe Bytes)
, _gpdvbciType :: !(Maybe GooglePrivacyDlpV2ByteContentItemType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ByteContentItem
:: GooglePrivacyDlpV2ByteContentItem
googlePrivacyDlpV2ByteContentItem =
GooglePrivacyDlpV2ByteContentItem'
{_gpdvbciData = Nothing, _gpdvbciType = Nothing}
gpdvbciData :: Lens' GooglePrivacyDlpV2ByteContentItem (Maybe ByteString)
gpdvbciData
= lens _gpdvbciData (\ s a -> s{_gpdvbciData = a}) .
mapping _Bytes
gpdvbciType :: Lens' GooglePrivacyDlpV2ByteContentItem (Maybe GooglePrivacyDlpV2ByteContentItemType)
gpdvbciType
= lens _gpdvbciType (\ s a -> s{_gpdvbciType = a})
instance FromJSON GooglePrivacyDlpV2ByteContentItem
where
parseJSON
= withObject "GooglePrivacyDlpV2ByteContentItem"
(\ o ->
GooglePrivacyDlpV2ByteContentItem' <$>
(o .:? "data") <*> (o .:? "type"))
instance ToJSON GooglePrivacyDlpV2ByteContentItem
where
toJSON GooglePrivacyDlpV2ByteContentItem'{..}
= object
(catMaybes
[("data" .=) <$> _gpdvbciData,
("type" .=) <$> _gpdvbciType])
data GooglePrivacyDlpV2TaggedField =
GooglePrivacyDlpV2TaggedField'
{ _gpdvtfField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvtfInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvtfInferred :: !(Maybe GoogleProtobufEmpty)
, _gpdvtfCustomTag :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TaggedField
:: GooglePrivacyDlpV2TaggedField
googlePrivacyDlpV2TaggedField =
GooglePrivacyDlpV2TaggedField'
{ _gpdvtfField = Nothing
, _gpdvtfInfoType = Nothing
, _gpdvtfInferred = Nothing
, _gpdvtfCustomTag = Nothing
}
gpdvtfField :: Lens' GooglePrivacyDlpV2TaggedField (Maybe GooglePrivacyDlpV2FieldId)
gpdvtfField
= lens _gpdvtfField (\ s a -> s{_gpdvtfField = a})
gpdvtfInfoType :: Lens' GooglePrivacyDlpV2TaggedField (Maybe GooglePrivacyDlpV2InfoType)
gpdvtfInfoType
= lens _gpdvtfInfoType
(\ s a -> s{_gpdvtfInfoType = a})
gpdvtfInferred :: Lens' GooglePrivacyDlpV2TaggedField (Maybe GoogleProtobufEmpty)
gpdvtfInferred
= lens _gpdvtfInferred
(\ s a -> s{_gpdvtfInferred = a})
gpdvtfCustomTag :: Lens' GooglePrivacyDlpV2TaggedField (Maybe Text)
gpdvtfCustomTag
= lens _gpdvtfCustomTag
(\ s a -> s{_gpdvtfCustomTag = a})
instance FromJSON GooglePrivacyDlpV2TaggedField where
parseJSON
= withObject "GooglePrivacyDlpV2TaggedField"
(\ o ->
GooglePrivacyDlpV2TaggedField' <$>
(o .:? "field") <*> (o .:? "infoType") <*>
(o .:? "inferred")
<*> (o .:? "customTag"))
instance ToJSON GooglePrivacyDlpV2TaggedField where
toJSON GooglePrivacyDlpV2TaggedField'{..}
= object
(catMaybes
[("field" .=) <$> _gpdvtfField,
("infoType" .=) <$> _gpdvtfInfoType,
("inferred" .=) <$> _gpdvtfInferred,
("customTag" .=) <$> _gpdvtfCustomTag])
data GooglePrivacyDlpV2BigQueryOptions =
GooglePrivacyDlpV2BigQueryOptions'
{ _gpdvbqoRowsLimit :: !(Maybe (Textual Int64))
, _gpdvbqoRowsLimitPercent :: !(Maybe (Textual Int32))
, _gpdvbqoTableReference :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
, _gpdvbqoIdentifyingFields :: !(Maybe [GooglePrivacyDlpV2FieldId])
, _gpdvbqoExcludedFields :: !(Maybe [GooglePrivacyDlpV2FieldId])
, _gpdvbqoSampleMethod :: !(Maybe GooglePrivacyDlpV2BigQueryOptionsSampleMethod)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2BigQueryOptions
:: GooglePrivacyDlpV2BigQueryOptions
googlePrivacyDlpV2BigQueryOptions =
GooglePrivacyDlpV2BigQueryOptions'
{ _gpdvbqoRowsLimit = Nothing
, _gpdvbqoRowsLimitPercent = Nothing
, _gpdvbqoTableReference = Nothing
, _gpdvbqoIdentifyingFields = Nothing
, _gpdvbqoExcludedFields = Nothing
, _gpdvbqoSampleMethod = Nothing
}
gpdvbqoRowsLimit :: Lens' GooglePrivacyDlpV2BigQueryOptions (Maybe Int64)
gpdvbqoRowsLimit
= lens _gpdvbqoRowsLimit
(\ s a -> s{_gpdvbqoRowsLimit = a})
. mapping _Coerce
gpdvbqoRowsLimitPercent :: Lens' GooglePrivacyDlpV2BigQueryOptions (Maybe Int32)
gpdvbqoRowsLimitPercent
= lens _gpdvbqoRowsLimitPercent
(\ s a -> s{_gpdvbqoRowsLimitPercent = a})
. mapping _Coerce
gpdvbqoTableReference :: Lens' GooglePrivacyDlpV2BigQueryOptions (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvbqoTableReference
= lens _gpdvbqoTableReference
(\ s a -> s{_gpdvbqoTableReference = a})
gpdvbqoIdentifyingFields :: Lens' GooglePrivacyDlpV2BigQueryOptions [GooglePrivacyDlpV2FieldId]
gpdvbqoIdentifyingFields
= lens _gpdvbqoIdentifyingFields
(\ s a -> s{_gpdvbqoIdentifyingFields = a})
. _Default
. _Coerce
gpdvbqoExcludedFields :: Lens' GooglePrivacyDlpV2BigQueryOptions [GooglePrivacyDlpV2FieldId]
gpdvbqoExcludedFields
= lens _gpdvbqoExcludedFields
(\ s a -> s{_gpdvbqoExcludedFields = a})
. _Default
. _Coerce
gpdvbqoSampleMethod :: Lens' GooglePrivacyDlpV2BigQueryOptions (Maybe GooglePrivacyDlpV2BigQueryOptionsSampleMethod)
gpdvbqoSampleMethod
= lens _gpdvbqoSampleMethod
(\ s a -> s{_gpdvbqoSampleMethod = a})
instance FromJSON GooglePrivacyDlpV2BigQueryOptions
where
parseJSON
= withObject "GooglePrivacyDlpV2BigQueryOptions"
(\ o ->
GooglePrivacyDlpV2BigQueryOptions' <$>
(o .:? "rowsLimit") <*> (o .:? "rowsLimitPercent")
<*> (o .:? "tableReference")
<*> (o .:? "identifyingFields" .!= mempty)
<*> (o .:? "excludedFields" .!= mempty)
<*> (o .:? "sampleMethod"))
instance ToJSON GooglePrivacyDlpV2BigQueryOptions
where
toJSON GooglePrivacyDlpV2BigQueryOptions'{..}
= object
(catMaybes
[("rowsLimit" .=) <$> _gpdvbqoRowsLimit,
("rowsLimitPercent" .=) <$> _gpdvbqoRowsLimitPercent,
("tableReference" .=) <$> _gpdvbqoTableReference,
("identifyingFields" .=) <$>
_gpdvbqoIdentifyingFields,
("excludedFields" .=) <$> _gpdvbqoExcludedFields,
("sampleMethod" .=) <$> _gpdvbqoSampleMethod])
data GooglePrivacyDlpV2KMapEstimationQuasiIdValues =
GooglePrivacyDlpV2KMapEstimationQuasiIdValues'
{ _gpdvkmeqivEstimatedAnonymity :: !(Maybe (Textual Int64))
, _gpdvkmeqivQuasiIdsValues :: !(Maybe [GooglePrivacyDlpV2Value])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KMapEstimationQuasiIdValues
:: GooglePrivacyDlpV2KMapEstimationQuasiIdValues
googlePrivacyDlpV2KMapEstimationQuasiIdValues =
GooglePrivacyDlpV2KMapEstimationQuasiIdValues'
{ _gpdvkmeqivEstimatedAnonymity = Nothing
, _gpdvkmeqivQuasiIdsValues = Nothing
}
gpdvkmeqivEstimatedAnonymity :: Lens' GooglePrivacyDlpV2KMapEstimationQuasiIdValues (Maybe Int64)
gpdvkmeqivEstimatedAnonymity
= lens _gpdvkmeqivEstimatedAnonymity
(\ s a -> s{_gpdvkmeqivEstimatedAnonymity = a})
. mapping _Coerce
gpdvkmeqivQuasiIdsValues :: Lens' GooglePrivacyDlpV2KMapEstimationQuasiIdValues [GooglePrivacyDlpV2Value]
gpdvkmeqivQuasiIdsValues
= lens _gpdvkmeqivQuasiIdsValues
(\ s a -> s{_gpdvkmeqivQuasiIdsValues = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2KMapEstimationQuasiIdValues
where
parseJSON
= withObject
"GooglePrivacyDlpV2KMapEstimationQuasiIdValues"
(\ o ->
GooglePrivacyDlpV2KMapEstimationQuasiIdValues' <$>
(o .:? "estimatedAnonymity") <*>
(o .:? "quasiIdsValues" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2KMapEstimationQuasiIdValues
where
toJSON
GooglePrivacyDlpV2KMapEstimationQuasiIdValues'{..}
= object
(catMaybes
[("estimatedAnonymity" .=) <$>
_gpdvkmeqivEstimatedAnonymity,
("quasiIdsValues" .=) <$> _gpdvkmeqivQuasiIdsValues])
newtype GooglePrivacyDlpV2ExcludeInfoTypes =
GooglePrivacyDlpV2ExcludeInfoTypes'
{ _gpdveitInfoTypes :: Maybe [GooglePrivacyDlpV2InfoType]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ExcludeInfoTypes
:: GooglePrivacyDlpV2ExcludeInfoTypes
googlePrivacyDlpV2ExcludeInfoTypes =
GooglePrivacyDlpV2ExcludeInfoTypes' {_gpdveitInfoTypes = Nothing}
gpdveitInfoTypes :: Lens' GooglePrivacyDlpV2ExcludeInfoTypes [GooglePrivacyDlpV2InfoType]
gpdveitInfoTypes
= lens _gpdveitInfoTypes
(\ s a -> s{_gpdveitInfoTypes = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2ExcludeInfoTypes
where
parseJSON
= withObject "GooglePrivacyDlpV2ExcludeInfoTypes"
(\ o ->
GooglePrivacyDlpV2ExcludeInfoTypes' <$>
(o .:? "infoTypes" .!= mempty))
instance ToJSON GooglePrivacyDlpV2ExcludeInfoTypes
where
toJSON GooglePrivacyDlpV2ExcludeInfoTypes'{..}
= object
(catMaybes [("infoTypes" .=) <$> _gpdveitInfoTypes])
data GooglePrivacyDlpV2CreateInspectTemplateRequest =
GooglePrivacyDlpV2CreateInspectTemplateRequest'
{ _gpdvcitrTemplateId :: !(Maybe Text)
, _gpdvcitrInspectTemplate :: !(Maybe GooglePrivacyDlpV2InspectTemplate)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CreateInspectTemplateRequest
:: GooglePrivacyDlpV2CreateInspectTemplateRequest
googlePrivacyDlpV2CreateInspectTemplateRequest =
GooglePrivacyDlpV2CreateInspectTemplateRequest'
{_gpdvcitrTemplateId = Nothing, _gpdvcitrInspectTemplate = Nothing}
gpdvcitrTemplateId :: Lens' GooglePrivacyDlpV2CreateInspectTemplateRequest (Maybe Text)
gpdvcitrTemplateId
= lens _gpdvcitrTemplateId
(\ s a -> s{_gpdvcitrTemplateId = a})
gpdvcitrInspectTemplate :: Lens' GooglePrivacyDlpV2CreateInspectTemplateRequest (Maybe GooglePrivacyDlpV2InspectTemplate)
gpdvcitrInspectTemplate
= lens _gpdvcitrInspectTemplate
(\ s a -> s{_gpdvcitrInspectTemplate = a})
instance FromJSON
GooglePrivacyDlpV2CreateInspectTemplateRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2CreateInspectTemplateRequest"
(\ o ->
GooglePrivacyDlpV2CreateInspectTemplateRequest' <$>
(o .:? "templateId") <*> (o .:? "inspectTemplate"))
instance ToJSON
GooglePrivacyDlpV2CreateInspectTemplateRequest
where
toJSON
GooglePrivacyDlpV2CreateInspectTemplateRequest'{..}
= object
(catMaybes
[("templateId" .=) <$> _gpdvcitrTemplateId,
("inspectTemplate" .=) <$> _gpdvcitrInspectTemplate])
data GooglePrivacyDlpV2PathElement =
GooglePrivacyDlpV2PathElement'
{ _gpdvpeKind :: !(Maybe Text)
, _gpdvpeName :: !(Maybe Text)
, _gpdvpeId :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2PathElement
:: GooglePrivacyDlpV2PathElement
googlePrivacyDlpV2PathElement =
GooglePrivacyDlpV2PathElement'
{_gpdvpeKind = Nothing, _gpdvpeName = Nothing, _gpdvpeId = Nothing}
gpdvpeKind :: Lens' GooglePrivacyDlpV2PathElement (Maybe Text)
gpdvpeKind
= lens _gpdvpeKind (\ s a -> s{_gpdvpeKind = a})
gpdvpeName :: Lens' GooglePrivacyDlpV2PathElement (Maybe Text)
gpdvpeName
= lens _gpdvpeName (\ s a -> s{_gpdvpeName = a})
gpdvpeId :: Lens' GooglePrivacyDlpV2PathElement (Maybe Int64)
gpdvpeId
= lens _gpdvpeId (\ s a -> s{_gpdvpeId = a}) .
mapping _Coerce
instance FromJSON GooglePrivacyDlpV2PathElement where
parseJSON
= withObject "GooglePrivacyDlpV2PathElement"
(\ o ->
GooglePrivacyDlpV2PathElement' <$>
(o .:? "kind") <*> (o .:? "name") <*> (o .:? "id"))
instance ToJSON GooglePrivacyDlpV2PathElement where
toJSON GooglePrivacyDlpV2PathElement'{..}
= object
(catMaybes
[("kind" .=) <$> _gpdvpeKind,
("name" .=) <$> _gpdvpeName,
("id" .=) <$> _gpdvpeId])
newtype GooglePrivacyDlpV2DeltaPresenceEstimationResult =
GooglePrivacyDlpV2DeltaPresenceEstimationResult'
{ _gpdvdperDeltaPresenceEstimationHistogram :: Maybe [GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeltaPresenceEstimationResult
:: GooglePrivacyDlpV2DeltaPresenceEstimationResult
googlePrivacyDlpV2DeltaPresenceEstimationResult =
GooglePrivacyDlpV2DeltaPresenceEstimationResult'
{_gpdvdperDeltaPresenceEstimationHistogram = Nothing}
gpdvdperDeltaPresenceEstimationHistogram :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationResult [GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket]
gpdvdperDeltaPresenceEstimationHistogram
= lens _gpdvdperDeltaPresenceEstimationHistogram
(\ s a ->
s{_gpdvdperDeltaPresenceEstimationHistogram = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2DeltaPresenceEstimationResult
where
parseJSON
= withObject
"GooglePrivacyDlpV2DeltaPresenceEstimationResult"
(\ o ->
GooglePrivacyDlpV2DeltaPresenceEstimationResult' <$>
(o .:? "deltaPresenceEstimationHistogram" .!=
mempty))
instance ToJSON
GooglePrivacyDlpV2DeltaPresenceEstimationResult
where
toJSON
GooglePrivacyDlpV2DeltaPresenceEstimationResult'{..}
= object
(catMaybes
[("deltaPresenceEstimationHistogram" .=) <$>
_gpdvdperDeltaPresenceEstimationHistogram])
data GooglePrivacyDlpV2InspectJobConfig =
GooglePrivacyDlpV2InspectJobConfig'
{ _gpdvijcActions :: !(Maybe [GooglePrivacyDlpV2Action])
, _gpdvijcStorageConfig :: !(Maybe GooglePrivacyDlpV2StorageConfig)
, _gpdvijcInspectConfig :: !(Maybe GooglePrivacyDlpV2InspectConfig)
, _gpdvijcInspectTemplateName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectJobConfig
:: GooglePrivacyDlpV2InspectJobConfig
googlePrivacyDlpV2InspectJobConfig =
GooglePrivacyDlpV2InspectJobConfig'
{ _gpdvijcActions = Nothing
, _gpdvijcStorageConfig = Nothing
, _gpdvijcInspectConfig = Nothing
, _gpdvijcInspectTemplateName = Nothing
}
gpdvijcActions :: Lens' GooglePrivacyDlpV2InspectJobConfig [GooglePrivacyDlpV2Action]
gpdvijcActions
= lens _gpdvijcActions
(\ s a -> s{_gpdvijcActions = a})
. _Default
. _Coerce
gpdvijcStorageConfig :: Lens' GooglePrivacyDlpV2InspectJobConfig (Maybe GooglePrivacyDlpV2StorageConfig)
gpdvijcStorageConfig
= lens _gpdvijcStorageConfig
(\ s a -> s{_gpdvijcStorageConfig = a})
gpdvijcInspectConfig :: Lens' GooglePrivacyDlpV2InspectJobConfig (Maybe GooglePrivacyDlpV2InspectConfig)
gpdvijcInspectConfig
= lens _gpdvijcInspectConfig
(\ s a -> s{_gpdvijcInspectConfig = a})
gpdvijcInspectTemplateName :: Lens' GooglePrivacyDlpV2InspectJobConfig (Maybe Text)
gpdvijcInspectTemplateName
= lens _gpdvijcInspectTemplateName
(\ s a -> s{_gpdvijcInspectTemplateName = a})
instance FromJSON GooglePrivacyDlpV2InspectJobConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2InspectJobConfig"
(\ o ->
GooglePrivacyDlpV2InspectJobConfig' <$>
(o .:? "actions" .!= mempty) <*>
(o .:? "storageConfig")
<*> (o .:? "inspectConfig")
<*> (o .:? "inspectTemplateName"))
instance ToJSON GooglePrivacyDlpV2InspectJobConfig
where
toJSON GooglePrivacyDlpV2InspectJobConfig'{..}
= object
(catMaybes
[("actions" .=) <$> _gpdvijcActions,
("storageConfig" .=) <$> _gpdvijcStorageConfig,
("inspectConfig" .=) <$> _gpdvijcInspectConfig,
("inspectTemplateName" .=) <$>
_gpdvijcInspectTemplateName])
data GooglePrivacyDlpV2StoredType =
GooglePrivacyDlpV2StoredType'
{ _gpdvstName :: !(Maybe Text)
, _gpdvstCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2StoredType
:: GooglePrivacyDlpV2StoredType
googlePrivacyDlpV2StoredType =
GooglePrivacyDlpV2StoredType'
{_gpdvstName = Nothing, _gpdvstCreateTime = Nothing}
gpdvstName :: Lens' GooglePrivacyDlpV2StoredType (Maybe Text)
gpdvstName
= lens _gpdvstName (\ s a -> s{_gpdvstName = a})
gpdvstCreateTime :: Lens' GooglePrivacyDlpV2StoredType (Maybe UTCTime)
gpdvstCreateTime
= lens _gpdvstCreateTime
(\ s a -> s{_gpdvstCreateTime = a})
. mapping _DateTime
instance FromJSON GooglePrivacyDlpV2StoredType where
parseJSON
= withObject "GooglePrivacyDlpV2StoredType"
(\ o ->
GooglePrivacyDlpV2StoredType' <$>
(o .:? "name") <*> (o .:? "createTime"))
instance ToJSON GooglePrivacyDlpV2StoredType where
toJSON GooglePrivacyDlpV2StoredType'{..}
= object
(catMaybes
[("name" .=) <$> _gpdvstName,
("createTime" .=) <$> _gpdvstCreateTime])
data GooglePrivacyDlpV2FieldTransformation =
GooglePrivacyDlpV2FieldTransformation'
{ _gpdvftInfoTypeTransformations :: !(Maybe GooglePrivacyDlpV2InfoTypeTransformations)
, _gpdvftPrimitiveTransformation :: !(Maybe GooglePrivacyDlpV2PrimitiveTransformation)
, _gpdvftCondition :: !(Maybe GooglePrivacyDlpV2RecordCondition)
, _gpdvftFields :: !(Maybe [GooglePrivacyDlpV2FieldId])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2FieldTransformation
:: GooglePrivacyDlpV2FieldTransformation
googlePrivacyDlpV2FieldTransformation =
GooglePrivacyDlpV2FieldTransformation'
{ _gpdvftInfoTypeTransformations = Nothing
, _gpdvftPrimitiveTransformation = Nothing
, _gpdvftCondition = Nothing
, _gpdvftFields = Nothing
}
gpdvftInfoTypeTransformations :: Lens' GooglePrivacyDlpV2FieldTransformation (Maybe GooglePrivacyDlpV2InfoTypeTransformations)
gpdvftInfoTypeTransformations
= lens _gpdvftInfoTypeTransformations
(\ s a -> s{_gpdvftInfoTypeTransformations = a})
gpdvftPrimitiveTransformation :: Lens' GooglePrivacyDlpV2FieldTransformation (Maybe GooglePrivacyDlpV2PrimitiveTransformation)
gpdvftPrimitiveTransformation
= lens _gpdvftPrimitiveTransformation
(\ s a -> s{_gpdvftPrimitiveTransformation = a})
gpdvftCondition :: Lens' GooglePrivacyDlpV2FieldTransformation (Maybe GooglePrivacyDlpV2RecordCondition)
gpdvftCondition
= lens _gpdvftCondition
(\ s a -> s{_gpdvftCondition = a})
gpdvftFields :: Lens' GooglePrivacyDlpV2FieldTransformation [GooglePrivacyDlpV2FieldId]
gpdvftFields
= lens _gpdvftFields (\ s a -> s{_gpdvftFields = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2FieldTransformation
where
parseJSON
= withObject "GooglePrivacyDlpV2FieldTransformation"
(\ o ->
GooglePrivacyDlpV2FieldTransformation' <$>
(o .:? "infoTypeTransformations") <*>
(o .:? "primitiveTransformation")
<*> (o .:? "condition")
<*> (o .:? "fields" .!= mempty))
instance ToJSON GooglePrivacyDlpV2FieldTransformation
where
toJSON GooglePrivacyDlpV2FieldTransformation'{..}
= object
(catMaybes
[("infoTypeTransformations" .=) <$>
_gpdvftInfoTypeTransformations,
("primitiveTransformation" .=) <$>
_gpdvftPrimitiveTransformation,
("condition" .=) <$> _gpdvftCondition,
("fields" .=) <$> _gpdvftFields])
data GooglePrivacyDlpV2HotwordRule =
GooglePrivacyDlpV2HotwordRule'
{ _gpdvhrProximity :: !(Maybe GooglePrivacyDlpV2Proximity)
, _gpdvhrLikelihoodAdjustment :: !(Maybe GooglePrivacyDlpV2LikelihoodAdjustment)
, _gpdvhrHotwordRegex :: !(Maybe GooglePrivacyDlpV2Regex)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2HotwordRule
:: GooglePrivacyDlpV2HotwordRule
googlePrivacyDlpV2HotwordRule =
GooglePrivacyDlpV2HotwordRule'
{ _gpdvhrProximity = Nothing
, _gpdvhrLikelihoodAdjustment = Nothing
, _gpdvhrHotwordRegex = Nothing
}
gpdvhrProximity :: Lens' GooglePrivacyDlpV2HotwordRule (Maybe GooglePrivacyDlpV2Proximity)
gpdvhrProximity
= lens _gpdvhrProximity
(\ s a -> s{_gpdvhrProximity = a})
gpdvhrLikelihoodAdjustment :: Lens' GooglePrivacyDlpV2HotwordRule (Maybe GooglePrivacyDlpV2LikelihoodAdjustment)
gpdvhrLikelihoodAdjustment
= lens _gpdvhrLikelihoodAdjustment
(\ s a -> s{_gpdvhrLikelihoodAdjustment = a})
gpdvhrHotwordRegex :: Lens' GooglePrivacyDlpV2HotwordRule (Maybe GooglePrivacyDlpV2Regex)
gpdvhrHotwordRegex
= lens _gpdvhrHotwordRegex
(\ s a -> s{_gpdvhrHotwordRegex = a})
instance FromJSON GooglePrivacyDlpV2HotwordRule where
parseJSON
= withObject "GooglePrivacyDlpV2HotwordRule"
(\ o ->
GooglePrivacyDlpV2HotwordRule' <$>
(o .:? "proximity") <*>
(o .:? "likelihoodAdjustment")
<*> (o .:? "hotwordRegex"))
instance ToJSON GooglePrivacyDlpV2HotwordRule where
toJSON GooglePrivacyDlpV2HotwordRule'{..}
= object
(catMaybes
[("proximity" .=) <$> _gpdvhrProximity,
("likelihoodAdjustment" .=) <$>
_gpdvhrLikelihoodAdjustment,
("hotwordRegex" .=) <$> _gpdvhrHotwordRegex])
data GooglePrivacyDlpV2RedactImageRequest =
GooglePrivacyDlpV2RedactImageRequest'
{ _gpdvrirIncludeFindings :: !(Maybe Bool)
, _gpdvrirInspectConfig :: !(Maybe GooglePrivacyDlpV2InspectConfig)
, _gpdvrirByteItem :: !(Maybe GooglePrivacyDlpV2ByteContentItem)
, _gpdvrirImageRedactionConfigs :: !(Maybe [GooglePrivacyDlpV2ImageRedactionConfig])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RedactImageRequest
:: GooglePrivacyDlpV2RedactImageRequest
googlePrivacyDlpV2RedactImageRequest =
GooglePrivacyDlpV2RedactImageRequest'
{ _gpdvrirIncludeFindings = Nothing
, _gpdvrirInspectConfig = Nothing
, _gpdvrirByteItem = Nothing
, _gpdvrirImageRedactionConfigs = Nothing
}
gpdvrirIncludeFindings :: Lens' GooglePrivacyDlpV2RedactImageRequest (Maybe Bool)
gpdvrirIncludeFindings
= lens _gpdvrirIncludeFindings
(\ s a -> s{_gpdvrirIncludeFindings = a})
gpdvrirInspectConfig :: Lens' GooglePrivacyDlpV2RedactImageRequest (Maybe GooglePrivacyDlpV2InspectConfig)
gpdvrirInspectConfig
= lens _gpdvrirInspectConfig
(\ s a -> s{_gpdvrirInspectConfig = a})
gpdvrirByteItem :: Lens' GooglePrivacyDlpV2RedactImageRequest (Maybe GooglePrivacyDlpV2ByteContentItem)
gpdvrirByteItem
= lens _gpdvrirByteItem
(\ s a -> s{_gpdvrirByteItem = a})
gpdvrirImageRedactionConfigs :: Lens' GooglePrivacyDlpV2RedactImageRequest [GooglePrivacyDlpV2ImageRedactionConfig]
gpdvrirImageRedactionConfigs
= lens _gpdvrirImageRedactionConfigs
(\ s a -> s{_gpdvrirImageRedactionConfigs = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2RedactImageRequest
where
parseJSON
= withObject "GooglePrivacyDlpV2RedactImageRequest"
(\ o ->
GooglePrivacyDlpV2RedactImageRequest' <$>
(o .:? "includeFindings") <*> (o .:? "inspectConfig")
<*> (o .:? "byteItem")
<*> (o .:? "imageRedactionConfigs" .!= mempty))
instance ToJSON GooglePrivacyDlpV2RedactImageRequest
where
toJSON GooglePrivacyDlpV2RedactImageRequest'{..}
= object
(catMaybes
[("includeFindings" .=) <$> _gpdvrirIncludeFindings,
("inspectConfig" .=) <$> _gpdvrirInspectConfig,
("byteItem" .=) <$> _gpdvrirByteItem,
("imageRedactionConfigs" .=) <$>
_gpdvrirImageRedactionConfigs])
data GooglePrivacyDlpV2FindingLimits =
GooglePrivacyDlpV2FindingLimits'
{ _gpdvflMaxFindingsPerItem :: !(Maybe (Textual Int32))
, _gpdvflMaxFindingsPerInfoType :: !(Maybe [GooglePrivacyDlpV2InfoTypeLimit])
, _gpdvflMaxFindingsPerRequest :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2FindingLimits
:: GooglePrivacyDlpV2FindingLimits
googlePrivacyDlpV2FindingLimits =
GooglePrivacyDlpV2FindingLimits'
{ _gpdvflMaxFindingsPerItem = Nothing
, _gpdvflMaxFindingsPerInfoType = Nothing
, _gpdvflMaxFindingsPerRequest = Nothing
}
gpdvflMaxFindingsPerItem :: Lens' GooglePrivacyDlpV2FindingLimits (Maybe Int32)
gpdvflMaxFindingsPerItem
= lens _gpdvflMaxFindingsPerItem
(\ s a -> s{_gpdvflMaxFindingsPerItem = a})
. mapping _Coerce
gpdvflMaxFindingsPerInfoType :: Lens' GooglePrivacyDlpV2FindingLimits [GooglePrivacyDlpV2InfoTypeLimit]
gpdvflMaxFindingsPerInfoType
= lens _gpdvflMaxFindingsPerInfoType
(\ s a -> s{_gpdvflMaxFindingsPerInfoType = a})
. _Default
. _Coerce
gpdvflMaxFindingsPerRequest :: Lens' GooglePrivacyDlpV2FindingLimits (Maybe Int32)
gpdvflMaxFindingsPerRequest
= lens _gpdvflMaxFindingsPerRequest
(\ s a -> s{_gpdvflMaxFindingsPerRequest = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2FindingLimits
where
parseJSON
= withObject "GooglePrivacyDlpV2FindingLimits"
(\ o ->
GooglePrivacyDlpV2FindingLimits' <$>
(o .:? "maxFindingsPerItem") <*>
(o .:? "maxFindingsPerInfoType" .!= mempty)
<*> (o .:? "maxFindingsPerRequest"))
instance ToJSON GooglePrivacyDlpV2FindingLimits where
toJSON GooglePrivacyDlpV2FindingLimits'{..}
= object
(catMaybes
[("maxFindingsPerItem" .=) <$>
_gpdvflMaxFindingsPerItem,
("maxFindingsPerInfoType" .=) <$>
_gpdvflMaxFindingsPerInfoType,
("maxFindingsPerRequest" .=) <$>
_gpdvflMaxFindingsPerRequest])
data GooglePrivacyDlpV2Condition =
GooglePrivacyDlpV2Condition'
{ _gpdvcField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvcOperator :: !(Maybe GooglePrivacyDlpV2ConditionOperator)
, _gpdvcValue :: !(Maybe GooglePrivacyDlpV2Value)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Condition
:: GooglePrivacyDlpV2Condition
googlePrivacyDlpV2Condition =
GooglePrivacyDlpV2Condition'
{_gpdvcField = Nothing, _gpdvcOperator = Nothing, _gpdvcValue = Nothing}
gpdvcField :: Lens' GooglePrivacyDlpV2Condition (Maybe GooglePrivacyDlpV2FieldId)
gpdvcField
= lens _gpdvcField (\ s a -> s{_gpdvcField = a})
gpdvcOperator :: Lens' GooglePrivacyDlpV2Condition (Maybe GooglePrivacyDlpV2ConditionOperator)
gpdvcOperator
= lens _gpdvcOperator
(\ s a -> s{_gpdvcOperator = a})
gpdvcValue :: Lens' GooglePrivacyDlpV2Condition (Maybe GooglePrivacyDlpV2Value)
gpdvcValue
= lens _gpdvcValue (\ s a -> s{_gpdvcValue = a})
instance FromJSON GooglePrivacyDlpV2Condition where
parseJSON
= withObject "GooglePrivacyDlpV2Condition"
(\ o ->
GooglePrivacyDlpV2Condition' <$>
(o .:? "field") <*> (o .:? "operator") <*>
(o .:? "value"))
instance ToJSON GooglePrivacyDlpV2Condition where
toJSON GooglePrivacyDlpV2Condition'{..}
= object
(catMaybes
[("field" .=) <$> _gpdvcField,
("operator" .=) <$> _gpdvcOperator,
("value" .=) <$> _gpdvcValue])
data GooglePrivacyDlpV2TimespanConfig =
GooglePrivacyDlpV2TimespanConfig'
{ _gpdvtcTimestampField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvtcStartTime :: !(Maybe DateTime')
, _gpdvtcEnableAutoPopulationOfTimespanConfig :: !(Maybe Bool)
, _gpdvtcEndTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TimespanConfig
:: GooglePrivacyDlpV2TimespanConfig
googlePrivacyDlpV2TimespanConfig =
GooglePrivacyDlpV2TimespanConfig'
{ _gpdvtcTimestampField = Nothing
, _gpdvtcStartTime = Nothing
, _gpdvtcEnableAutoPopulationOfTimespanConfig = Nothing
, _gpdvtcEndTime = Nothing
}
gpdvtcTimestampField :: Lens' GooglePrivacyDlpV2TimespanConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvtcTimestampField
= lens _gpdvtcTimestampField
(\ s a -> s{_gpdvtcTimestampField = a})
gpdvtcStartTime :: Lens' GooglePrivacyDlpV2TimespanConfig (Maybe UTCTime)
gpdvtcStartTime
= lens _gpdvtcStartTime
(\ s a -> s{_gpdvtcStartTime = a})
. mapping _DateTime
gpdvtcEnableAutoPopulationOfTimespanConfig :: Lens' GooglePrivacyDlpV2TimespanConfig (Maybe Bool)
gpdvtcEnableAutoPopulationOfTimespanConfig
= lens _gpdvtcEnableAutoPopulationOfTimespanConfig
(\ s a ->
s{_gpdvtcEnableAutoPopulationOfTimespanConfig = a})
gpdvtcEndTime :: Lens' GooglePrivacyDlpV2TimespanConfig (Maybe UTCTime)
gpdvtcEndTime
= lens _gpdvtcEndTime
(\ s a -> s{_gpdvtcEndTime = a})
. mapping _DateTime
instance FromJSON GooglePrivacyDlpV2TimespanConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2TimespanConfig"
(\ o ->
GooglePrivacyDlpV2TimespanConfig' <$>
(o .:? "timestampField") <*> (o .:? "startTime") <*>
(o .:? "enableAutoPopulationOfTimespanConfig")
<*> (o .:? "endTime"))
instance ToJSON GooglePrivacyDlpV2TimespanConfig
where
toJSON GooglePrivacyDlpV2TimespanConfig'{..}
= object
(catMaybes
[("timestampField" .=) <$> _gpdvtcTimestampField,
("startTime" .=) <$> _gpdvtcStartTime,
("enableAutoPopulationOfTimespanConfig" .=) <$>
_gpdvtcEnableAutoPopulationOfTimespanConfig,
("endTime" .=) <$> _gpdvtcEndTime])
data GooglePrivacyDlpV2CreateDeidentifyTemplateRequest =
GooglePrivacyDlpV2CreateDeidentifyTemplateRequest'
{ _gpdvcdtrTemplateId :: !(Maybe Text)
, _gpdvcdtrDeidentifyTemplate :: !(Maybe GooglePrivacyDlpV2DeidentifyTemplate)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CreateDeidentifyTemplateRequest
:: GooglePrivacyDlpV2CreateDeidentifyTemplateRequest
googlePrivacyDlpV2CreateDeidentifyTemplateRequest =
GooglePrivacyDlpV2CreateDeidentifyTemplateRequest'
{_gpdvcdtrTemplateId = Nothing, _gpdvcdtrDeidentifyTemplate = Nothing}
gpdvcdtrTemplateId :: Lens' GooglePrivacyDlpV2CreateDeidentifyTemplateRequest (Maybe Text)
gpdvcdtrTemplateId
= lens _gpdvcdtrTemplateId
(\ s a -> s{_gpdvcdtrTemplateId = a})
gpdvcdtrDeidentifyTemplate :: Lens' GooglePrivacyDlpV2CreateDeidentifyTemplateRequest (Maybe GooglePrivacyDlpV2DeidentifyTemplate)
gpdvcdtrDeidentifyTemplate
= lens _gpdvcdtrDeidentifyTemplate
(\ s a -> s{_gpdvcdtrDeidentifyTemplate = a})
instance FromJSON
GooglePrivacyDlpV2CreateDeidentifyTemplateRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2CreateDeidentifyTemplateRequest"
(\ o ->
GooglePrivacyDlpV2CreateDeidentifyTemplateRequest'
<$>
(o .:? "templateId") <*>
(o .:? "deidentifyTemplate"))
instance ToJSON
GooglePrivacyDlpV2CreateDeidentifyTemplateRequest
where
toJSON
GooglePrivacyDlpV2CreateDeidentifyTemplateRequest'{..}
= object
(catMaybes
[("templateId" .=) <$> _gpdvcdtrTemplateId,
("deidentifyTemplate" .=) <$>
_gpdvcdtrDeidentifyTemplate])
newtype GooglePrivacyDlpV2TransientCryptoKey =
GooglePrivacyDlpV2TransientCryptoKey'
{ _gpdvtckName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TransientCryptoKey
:: GooglePrivacyDlpV2TransientCryptoKey
googlePrivacyDlpV2TransientCryptoKey =
GooglePrivacyDlpV2TransientCryptoKey' {_gpdvtckName = Nothing}
gpdvtckName :: Lens' GooglePrivacyDlpV2TransientCryptoKey (Maybe Text)
gpdvtckName
= lens _gpdvtckName (\ s a -> s{_gpdvtckName = a})
instance FromJSON
GooglePrivacyDlpV2TransientCryptoKey
where
parseJSON
= withObject "GooglePrivacyDlpV2TransientCryptoKey"
(\ o ->
GooglePrivacyDlpV2TransientCryptoKey' <$>
(o .:? "name"))
instance ToJSON GooglePrivacyDlpV2TransientCryptoKey
where
toJSON GooglePrivacyDlpV2TransientCryptoKey'{..}
= object (catMaybes [("name" .=) <$> _gpdvtckName])
data GooglePrivacyDlpV2InfoTypeDescription =
GooglePrivacyDlpV2InfoTypeDescription'
{ _gpdvitdName :: !(Maybe Text)
, _gpdvitdDisplayName :: !(Maybe Text)
, _gpdvitdSupportedBy :: !(Maybe [Text])
, _gpdvitdDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InfoTypeDescription
:: GooglePrivacyDlpV2InfoTypeDescription
googlePrivacyDlpV2InfoTypeDescription =
GooglePrivacyDlpV2InfoTypeDescription'
{ _gpdvitdName = Nothing
, _gpdvitdDisplayName = Nothing
, _gpdvitdSupportedBy = Nothing
, _gpdvitdDescription = Nothing
}
gpdvitdName :: Lens' GooglePrivacyDlpV2InfoTypeDescription (Maybe Text)
gpdvitdName
= lens _gpdvitdName (\ s a -> s{_gpdvitdName = a})
gpdvitdDisplayName :: Lens' GooglePrivacyDlpV2InfoTypeDescription (Maybe Text)
gpdvitdDisplayName
= lens _gpdvitdDisplayName
(\ s a -> s{_gpdvitdDisplayName = a})
gpdvitdSupportedBy :: Lens' GooglePrivacyDlpV2InfoTypeDescription [Text]
gpdvitdSupportedBy
= lens _gpdvitdSupportedBy
(\ s a -> s{_gpdvitdSupportedBy = a})
. _Default
. _Coerce
gpdvitdDescription :: Lens' GooglePrivacyDlpV2InfoTypeDescription (Maybe Text)
gpdvitdDescription
= lens _gpdvitdDescription
(\ s a -> s{_gpdvitdDescription = a})
instance FromJSON
GooglePrivacyDlpV2InfoTypeDescription
where
parseJSON
= withObject "GooglePrivacyDlpV2InfoTypeDescription"
(\ o ->
GooglePrivacyDlpV2InfoTypeDescription' <$>
(o .:? "name") <*> (o .:? "displayName") <*>
(o .:? "supportedBy" .!= mempty)
<*> (o .:? "description"))
instance ToJSON GooglePrivacyDlpV2InfoTypeDescription
where
toJSON GooglePrivacyDlpV2InfoTypeDescription'{..}
= object
(catMaybes
[("name" .=) <$> _gpdvitdName,
("displayName" .=) <$> _gpdvitdDisplayName,
("supportedBy" .=) <$> _gpdvitdSupportedBy,
("description" .=) <$> _gpdvitdDescription])
data GoogleProtobufEmpty =
GoogleProtobufEmpty'
deriving (Eq, Show, Data, Typeable, Generic)
googleProtobufEmpty
:: GoogleProtobufEmpty
googleProtobufEmpty = GoogleProtobufEmpty'
instance FromJSON GoogleProtobufEmpty where
parseJSON
= withObject "GoogleProtobufEmpty"
(\ o -> pure GoogleProtobufEmpty')
instance ToJSON GoogleProtobufEmpty where
toJSON = const emptyObject
newtype GoogleRpcStatusDetailsItem =
GoogleRpcStatusDetailsItem'
{ _grsdiAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleRpcStatusDetailsItem
:: HashMap Text JSONValue
-> GoogleRpcStatusDetailsItem
googleRpcStatusDetailsItem pGrsdiAddtional_ =
GoogleRpcStatusDetailsItem' {_grsdiAddtional = _Coerce # pGrsdiAddtional_}
grsdiAddtional :: Lens' GoogleRpcStatusDetailsItem (HashMap Text JSONValue)
grsdiAddtional
= lens _grsdiAddtional
(\ s a -> s{_grsdiAddtional = a})
. _Coerce
instance FromJSON GoogleRpcStatusDetailsItem where
parseJSON
= withObject "GoogleRpcStatusDetailsItem"
(\ o ->
GoogleRpcStatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON GoogleRpcStatusDetailsItem where
toJSON = toJSON . _grsdiAddtional
data GooglePrivacyDlpV2ImageRedactionConfig =
GooglePrivacyDlpV2ImageRedactionConfig'
{ _gpdvircRedactionColor :: !(Maybe GooglePrivacyDlpV2Color)
, _gpdvircInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvircRedactAllText :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ImageRedactionConfig
:: GooglePrivacyDlpV2ImageRedactionConfig
googlePrivacyDlpV2ImageRedactionConfig =
GooglePrivacyDlpV2ImageRedactionConfig'
{ _gpdvircRedactionColor = Nothing
, _gpdvircInfoType = Nothing
, _gpdvircRedactAllText = Nothing
}
gpdvircRedactionColor :: Lens' GooglePrivacyDlpV2ImageRedactionConfig (Maybe GooglePrivacyDlpV2Color)
gpdvircRedactionColor
= lens _gpdvircRedactionColor
(\ s a -> s{_gpdvircRedactionColor = a})
gpdvircInfoType :: Lens' GooglePrivacyDlpV2ImageRedactionConfig (Maybe GooglePrivacyDlpV2InfoType)
gpdvircInfoType
= lens _gpdvircInfoType
(\ s a -> s{_gpdvircInfoType = a})
gpdvircRedactAllText :: Lens' GooglePrivacyDlpV2ImageRedactionConfig (Maybe Bool)
gpdvircRedactAllText
= lens _gpdvircRedactAllText
(\ s a -> s{_gpdvircRedactAllText = a})
instance FromJSON
GooglePrivacyDlpV2ImageRedactionConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2ImageRedactionConfig"
(\ o ->
GooglePrivacyDlpV2ImageRedactionConfig' <$>
(o .:? "redactionColor") <*> (o .:? "infoType") <*>
(o .:? "redactAllText"))
instance ToJSON
GooglePrivacyDlpV2ImageRedactionConfig
where
toJSON GooglePrivacyDlpV2ImageRedactionConfig'{..}
= object
(catMaybes
[("redactionColor" .=) <$> _gpdvircRedactionColor,
("infoType" .=) <$> _gpdvircInfoType,
("redactAllText" .=) <$> _gpdvircRedactAllText])
newtype GooglePrivacyDlpV2Trigger =
GooglePrivacyDlpV2Trigger'
{ _gpdvtSchedule :: Maybe GooglePrivacyDlpV2Schedule
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Trigger
:: GooglePrivacyDlpV2Trigger
googlePrivacyDlpV2Trigger =
GooglePrivacyDlpV2Trigger' {_gpdvtSchedule = Nothing}
gpdvtSchedule :: Lens' GooglePrivacyDlpV2Trigger (Maybe GooglePrivacyDlpV2Schedule)
gpdvtSchedule
= lens _gpdvtSchedule
(\ s a -> s{_gpdvtSchedule = a})
instance FromJSON GooglePrivacyDlpV2Trigger where
parseJSON
= withObject "GooglePrivacyDlpV2Trigger"
(\ o ->
GooglePrivacyDlpV2Trigger' <$> (o .:? "schedule"))
instance ToJSON GooglePrivacyDlpV2Trigger where
toJSON GooglePrivacyDlpV2Trigger'{..}
= object
(catMaybes [("schedule" .=) <$> _gpdvtSchedule])
data GooglePrivacyDlpV2CloudStorageOptions =
GooglePrivacyDlpV2CloudStorageOptions'
{ _gpdvcsoFileSet :: !(Maybe GooglePrivacyDlpV2FileSet)
, _gpdvcsoBytesLimitPerFile :: !(Maybe (Textual Int64))
, _gpdvcsoFileTypes :: !(Maybe [Text])
, _gpdvcsoBytesLimitPerFilePercent :: !(Maybe (Textual Int32))
, _gpdvcsoFilesLimitPercent :: !(Maybe (Textual Int32))
, _gpdvcsoSampleMethod :: !(Maybe GooglePrivacyDlpV2CloudStorageOptionsSampleMethod)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CloudStorageOptions
:: GooglePrivacyDlpV2CloudStorageOptions
googlePrivacyDlpV2CloudStorageOptions =
GooglePrivacyDlpV2CloudStorageOptions'
{ _gpdvcsoFileSet = Nothing
, _gpdvcsoBytesLimitPerFile = Nothing
, _gpdvcsoFileTypes = Nothing
, _gpdvcsoBytesLimitPerFilePercent = Nothing
, _gpdvcsoFilesLimitPercent = Nothing
, _gpdvcsoSampleMethod = Nothing
}
gpdvcsoFileSet :: Lens' GooglePrivacyDlpV2CloudStorageOptions (Maybe GooglePrivacyDlpV2FileSet)
gpdvcsoFileSet
= lens _gpdvcsoFileSet
(\ s a -> s{_gpdvcsoFileSet = a})
gpdvcsoBytesLimitPerFile :: Lens' GooglePrivacyDlpV2CloudStorageOptions (Maybe Int64)
gpdvcsoBytesLimitPerFile
= lens _gpdvcsoBytesLimitPerFile
(\ s a -> s{_gpdvcsoBytesLimitPerFile = a})
. mapping _Coerce
gpdvcsoFileTypes :: Lens' GooglePrivacyDlpV2CloudStorageOptions [Text]
gpdvcsoFileTypes
= lens _gpdvcsoFileTypes
(\ s a -> s{_gpdvcsoFileTypes = a})
. _Default
. _Coerce
gpdvcsoBytesLimitPerFilePercent :: Lens' GooglePrivacyDlpV2CloudStorageOptions (Maybe Int32)
gpdvcsoBytesLimitPerFilePercent
= lens _gpdvcsoBytesLimitPerFilePercent
(\ s a -> s{_gpdvcsoBytesLimitPerFilePercent = a})
. mapping _Coerce
gpdvcsoFilesLimitPercent :: Lens' GooglePrivacyDlpV2CloudStorageOptions (Maybe Int32)
gpdvcsoFilesLimitPercent
= lens _gpdvcsoFilesLimitPercent
(\ s a -> s{_gpdvcsoFilesLimitPercent = a})
. mapping _Coerce
gpdvcsoSampleMethod :: Lens' GooglePrivacyDlpV2CloudStorageOptions (Maybe GooglePrivacyDlpV2CloudStorageOptionsSampleMethod)
gpdvcsoSampleMethod
= lens _gpdvcsoSampleMethod
(\ s a -> s{_gpdvcsoSampleMethod = a})
instance FromJSON
GooglePrivacyDlpV2CloudStorageOptions
where
parseJSON
= withObject "GooglePrivacyDlpV2CloudStorageOptions"
(\ o ->
GooglePrivacyDlpV2CloudStorageOptions' <$>
(o .:? "fileSet") <*> (o .:? "bytesLimitPerFile") <*>
(o .:? "fileTypes" .!= mempty)
<*> (o .:? "bytesLimitPerFilePercent")
<*> (o .:? "filesLimitPercent")
<*> (o .:? "sampleMethod"))
instance ToJSON GooglePrivacyDlpV2CloudStorageOptions
where
toJSON GooglePrivacyDlpV2CloudStorageOptions'{..}
= object
(catMaybes
[("fileSet" .=) <$> _gpdvcsoFileSet,
("bytesLimitPerFile" .=) <$>
_gpdvcsoBytesLimitPerFile,
("fileTypes" .=) <$> _gpdvcsoFileTypes,
("bytesLimitPerFilePercent" .=) <$>
_gpdvcsoBytesLimitPerFilePercent,
("filesLimitPercent" .=) <$>
_gpdvcsoFilesLimitPercent,
("sampleMethod" .=) <$> _gpdvcsoSampleMethod])
data GooglePrivacyDlpV2DeltaPresenceEstimationConfig =
GooglePrivacyDlpV2DeltaPresenceEstimationConfig'
{ _gpdvdpecAuxiliaryTables :: !(Maybe [GooglePrivacyDlpV2StatisticalTable])
, _gpdvdpecRegionCode :: !(Maybe Text)
, _gpdvdpecQuasiIds :: !(Maybe [GooglePrivacyDlpV2QuasiId])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeltaPresenceEstimationConfig
:: GooglePrivacyDlpV2DeltaPresenceEstimationConfig
googlePrivacyDlpV2DeltaPresenceEstimationConfig =
GooglePrivacyDlpV2DeltaPresenceEstimationConfig'
{ _gpdvdpecAuxiliaryTables = Nothing
, _gpdvdpecRegionCode = Nothing
, _gpdvdpecQuasiIds = Nothing
}
gpdvdpecAuxiliaryTables :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationConfig [GooglePrivacyDlpV2StatisticalTable]
gpdvdpecAuxiliaryTables
= lens _gpdvdpecAuxiliaryTables
(\ s a -> s{_gpdvdpecAuxiliaryTables = a})
. _Default
. _Coerce
gpdvdpecRegionCode :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationConfig (Maybe Text)
gpdvdpecRegionCode
= lens _gpdvdpecRegionCode
(\ s a -> s{_gpdvdpecRegionCode = a})
gpdvdpecQuasiIds :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationConfig [GooglePrivacyDlpV2QuasiId]
gpdvdpecQuasiIds
= lens _gpdvdpecQuasiIds
(\ s a -> s{_gpdvdpecQuasiIds = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2DeltaPresenceEstimationConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2DeltaPresenceEstimationConfig"
(\ o ->
GooglePrivacyDlpV2DeltaPresenceEstimationConfig' <$>
(o .:? "auxiliaryTables" .!= mempty) <*>
(o .:? "regionCode")
<*> (o .:? "quasiIds" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2DeltaPresenceEstimationConfig
where
toJSON
GooglePrivacyDlpV2DeltaPresenceEstimationConfig'{..}
= object
(catMaybes
[("auxiliaryTables" .=) <$> _gpdvdpecAuxiliaryTables,
("regionCode" .=) <$> _gpdvdpecRegionCode,
("quasiIds" .=) <$> _gpdvdpecQuasiIds])
data GooglePrivacyDlpV2CreateStoredInfoTypeRequest =
GooglePrivacyDlpV2CreateStoredInfoTypeRequest'
{ _gpdvcsitrConfig :: !(Maybe GooglePrivacyDlpV2StoredInfoTypeConfig)
, _gpdvcsitrStoredInfoTypeId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CreateStoredInfoTypeRequest
:: GooglePrivacyDlpV2CreateStoredInfoTypeRequest
googlePrivacyDlpV2CreateStoredInfoTypeRequest =
GooglePrivacyDlpV2CreateStoredInfoTypeRequest'
{_gpdvcsitrConfig = Nothing, _gpdvcsitrStoredInfoTypeId = Nothing}
gpdvcsitrConfig :: Lens' GooglePrivacyDlpV2CreateStoredInfoTypeRequest (Maybe GooglePrivacyDlpV2StoredInfoTypeConfig)
gpdvcsitrConfig
= lens _gpdvcsitrConfig
(\ s a -> s{_gpdvcsitrConfig = a})
gpdvcsitrStoredInfoTypeId :: Lens' GooglePrivacyDlpV2CreateStoredInfoTypeRequest (Maybe Text)
gpdvcsitrStoredInfoTypeId
= lens _gpdvcsitrStoredInfoTypeId
(\ s a -> s{_gpdvcsitrStoredInfoTypeId = a})
instance FromJSON
GooglePrivacyDlpV2CreateStoredInfoTypeRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2CreateStoredInfoTypeRequest"
(\ o ->
GooglePrivacyDlpV2CreateStoredInfoTypeRequest' <$>
(o .:? "config") <*> (o .:? "storedInfoTypeId"))
instance ToJSON
GooglePrivacyDlpV2CreateStoredInfoTypeRequest
where
toJSON
GooglePrivacyDlpV2CreateStoredInfoTypeRequest'{..}
= object
(catMaybes
[("config" .=) <$> _gpdvcsitrConfig,
("storedInfoTypeId" .=) <$>
_gpdvcsitrStoredInfoTypeId])
data GooglePrivacyDlpV2QuasiIdField =
GooglePrivacyDlpV2QuasiIdField'
{ _gpdvqifField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvqifCustomTag :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2QuasiIdField
:: GooglePrivacyDlpV2QuasiIdField
googlePrivacyDlpV2QuasiIdField =
GooglePrivacyDlpV2QuasiIdField'
{_gpdvqifField = Nothing, _gpdvqifCustomTag = Nothing}
gpdvqifField :: Lens' GooglePrivacyDlpV2QuasiIdField (Maybe GooglePrivacyDlpV2FieldId)
gpdvqifField
= lens _gpdvqifField (\ s a -> s{_gpdvqifField = a})
gpdvqifCustomTag :: Lens' GooglePrivacyDlpV2QuasiIdField (Maybe Text)
gpdvqifCustomTag
= lens _gpdvqifCustomTag
(\ s a -> s{_gpdvqifCustomTag = a})
instance FromJSON GooglePrivacyDlpV2QuasiIdField
where
parseJSON
= withObject "GooglePrivacyDlpV2QuasiIdField"
(\ o ->
GooglePrivacyDlpV2QuasiIdField' <$>
(o .:? "field") <*> (o .:? "customTag"))
instance ToJSON GooglePrivacyDlpV2QuasiIdField where
toJSON GooglePrivacyDlpV2QuasiIdField'{..}
= object
(catMaybes
[("field" .=) <$> _gpdvqifField,
("customTag" .=) <$> _gpdvqifCustomTag])
newtype GooglePrivacyDlpV2TimePartConfig =
GooglePrivacyDlpV2TimePartConfig'
{ _gpdvtpcPartToExtract :: Maybe GooglePrivacyDlpV2TimePartConfigPartToExtract
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TimePartConfig
:: GooglePrivacyDlpV2TimePartConfig
googlePrivacyDlpV2TimePartConfig =
GooglePrivacyDlpV2TimePartConfig' {_gpdvtpcPartToExtract = Nothing}
gpdvtpcPartToExtract :: Lens' GooglePrivacyDlpV2TimePartConfig (Maybe GooglePrivacyDlpV2TimePartConfigPartToExtract)
gpdvtpcPartToExtract
= lens _gpdvtpcPartToExtract
(\ s a -> s{_gpdvtpcPartToExtract = a})
instance FromJSON GooglePrivacyDlpV2TimePartConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2TimePartConfig"
(\ o ->
GooglePrivacyDlpV2TimePartConfig' <$>
(o .:? "partToExtract"))
instance ToJSON GooglePrivacyDlpV2TimePartConfig
where
toJSON GooglePrivacyDlpV2TimePartConfig'{..}
= object
(catMaybes
[("partToExtract" .=) <$> _gpdvtpcPartToExtract])
data GooglePrivacyDlpV2InspectionRule =
GooglePrivacyDlpV2InspectionRule'
{ _gpdvirExclusionRule :: !(Maybe GooglePrivacyDlpV2ExclusionRule)
, _gpdvirHotwordRule :: !(Maybe GooglePrivacyDlpV2HotwordRule)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectionRule
:: GooglePrivacyDlpV2InspectionRule
googlePrivacyDlpV2InspectionRule =
GooglePrivacyDlpV2InspectionRule'
{_gpdvirExclusionRule = Nothing, _gpdvirHotwordRule = Nothing}
gpdvirExclusionRule :: Lens' GooglePrivacyDlpV2InspectionRule (Maybe GooglePrivacyDlpV2ExclusionRule)
gpdvirExclusionRule
= lens _gpdvirExclusionRule
(\ s a -> s{_gpdvirExclusionRule = a})
gpdvirHotwordRule :: Lens' GooglePrivacyDlpV2InspectionRule (Maybe GooglePrivacyDlpV2HotwordRule)
gpdvirHotwordRule
= lens _gpdvirHotwordRule
(\ s a -> s{_gpdvirHotwordRule = a})
instance FromJSON GooglePrivacyDlpV2InspectionRule
where
parseJSON
= withObject "GooglePrivacyDlpV2InspectionRule"
(\ o ->
GooglePrivacyDlpV2InspectionRule' <$>
(o .:? "exclusionRule") <*> (o .:? "hotwordRule"))
instance ToJSON GooglePrivacyDlpV2InspectionRule
where
toJSON GooglePrivacyDlpV2InspectionRule'{..}
= object
(catMaybes
[("exclusionRule" .=) <$> _gpdvirExclusionRule,
("hotwordRule" .=) <$> _gpdvirHotwordRule])
data GooglePrivacyDlpV2CustomInfoType =
GooglePrivacyDlpV2CustomInfoType'
{ _gpdvcitRegex :: !(Maybe GooglePrivacyDlpV2Regex)
, _gpdvcitStoredType :: !(Maybe GooglePrivacyDlpV2StoredType)
, _gpdvcitInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvcitExclusionType :: !(Maybe GooglePrivacyDlpV2CustomInfoTypeExclusionType)
, _gpdvcitLikelihood :: !(Maybe GooglePrivacyDlpV2CustomInfoTypeLikelihood)
, _gpdvcitDetectionRules :: !(Maybe [GooglePrivacyDlpV2DetectionRule])
, _gpdvcitDictionary :: !(Maybe GooglePrivacyDlpV2Dictionary)
, _gpdvcitSurrogateType :: !(Maybe GooglePrivacyDlpV2SurrogateType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CustomInfoType
:: GooglePrivacyDlpV2CustomInfoType
googlePrivacyDlpV2CustomInfoType =
GooglePrivacyDlpV2CustomInfoType'
{ _gpdvcitRegex = Nothing
, _gpdvcitStoredType = Nothing
, _gpdvcitInfoType = Nothing
, _gpdvcitExclusionType = Nothing
, _gpdvcitLikelihood = Nothing
, _gpdvcitDetectionRules = Nothing
, _gpdvcitDictionary = Nothing
, _gpdvcitSurrogateType = Nothing
}
gpdvcitRegex :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2Regex)
gpdvcitRegex
= lens _gpdvcitRegex (\ s a -> s{_gpdvcitRegex = a})
gpdvcitStoredType :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2StoredType)
gpdvcitStoredType
= lens _gpdvcitStoredType
(\ s a -> s{_gpdvcitStoredType = a})
gpdvcitInfoType :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2InfoType)
gpdvcitInfoType
= lens _gpdvcitInfoType
(\ s a -> s{_gpdvcitInfoType = a})
gpdvcitExclusionType :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2CustomInfoTypeExclusionType)
gpdvcitExclusionType
= lens _gpdvcitExclusionType
(\ s a -> s{_gpdvcitExclusionType = a})
gpdvcitLikelihood :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2CustomInfoTypeLikelihood)
gpdvcitLikelihood
= lens _gpdvcitLikelihood
(\ s a -> s{_gpdvcitLikelihood = a})
gpdvcitDetectionRules :: Lens' GooglePrivacyDlpV2CustomInfoType [GooglePrivacyDlpV2DetectionRule]
gpdvcitDetectionRules
= lens _gpdvcitDetectionRules
(\ s a -> s{_gpdvcitDetectionRules = a})
. _Default
. _Coerce
gpdvcitDictionary :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2Dictionary)
gpdvcitDictionary
= lens _gpdvcitDictionary
(\ s a -> s{_gpdvcitDictionary = a})
gpdvcitSurrogateType :: Lens' GooglePrivacyDlpV2CustomInfoType (Maybe GooglePrivacyDlpV2SurrogateType)
gpdvcitSurrogateType
= lens _gpdvcitSurrogateType
(\ s a -> s{_gpdvcitSurrogateType = a})
instance FromJSON GooglePrivacyDlpV2CustomInfoType
where
parseJSON
= withObject "GooglePrivacyDlpV2CustomInfoType"
(\ o ->
GooglePrivacyDlpV2CustomInfoType' <$>
(o .:? "regex") <*> (o .:? "storedType") <*>
(o .:? "infoType")
<*> (o .:? "exclusionType")
<*> (o .:? "likelihood")
<*> (o .:? "detectionRules" .!= mempty)
<*> (o .:? "dictionary")
<*> (o .:? "surrogateType"))
instance ToJSON GooglePrivacyDlpV2CustomInfoType
where
toJSON GooglePrivacyDlpV2CustomInfoType'{..}
= object
(catMaybes
[("regex" .=) <$> _gpdvcitRegex,
("storedType" .=) <$> _gpdvcitStoredType,
("infoType" .=) <$> _gpdvcitInfoType,
("exclusionType" .=) <$> _gpdvcitExclusionType,
("likelihood" .=) <$> _gpdvcitLikelihood,
("detectionRules" .=) <$> _gpdvcitDetectionRules,
("dictionary" .=) <$> _gpdvcitDictionary,
("surrogateType" .=) <$> _gpdvcitSurrogateType])
newtype GooglePrivacyDlpV2KMapEstimationResult =
GooglePrivacyDlpV2KMapEstimationResult'
{ _gpdvkmerKMapEstimationHistogram :: Maybe [GooglePrivacyDlpV2KMapEstimationHistogramBucket]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KMapEstimationResult
:: GooglePrivacyDlpV2KMapEstimationResult
googlePrivacyDlpV2KMapEstimationResult =
GooglePrivacyDlpV2KMapEstimationResult'
{_gpdvkmerKMapEstimationHistogram = Nothing}
gpdvkmerKMapEstimationHistogram :: Lens' GooglePrivacyDlpV2KMapEstimationResult [GooglePrivacyDlpV2KMapEstimationHistogramBucket]
gpdvkmerKMapEstimationHistogram
= lens _gpdvkmerKMapEstimationHistogram
(\ s a -> s{_gpdvkmerKMapEstimationHistogram = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2KMapEstimationResult
where
parseJSON
= withObject "GooglePrivacyDlpV2KMapEstimationResult"
(\ o ->
GooglePrivacyDlpV2KMapEstimationResult' <$>
(o .:? "kMapEstimationHistogram" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2KMapEstimationResult
where
toJSON GooglePrivacyDlpV2KMapEstimationResult'{..}
= object
(catMaybes
[("kMapEstimationHistogram" .=) <$>
_gpdvkmerKMapEstimationHistogram])
data GooglePrivacyDlpV2TransformationSummary =
GooglePrivacyDlpV2TransformationSummary'
{ _gpdvtsResults :: !(Maybe [GooglePrivacyDlpV2SummaryResult])
, _gpdvtsField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvtsInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvtsRecordSuppress :: !(Maybe GooglePrivacyDlpV2RecordSuppression)
, _gpdvtsTransformedBytes :: !(Maybe (Textual Int64))
, _gpdvtsFieldTransformations :: !(Maybe [GooglePrivacyDlpV2FieldTransformation])
, _gpdvtsTransformation :: !(Maybe GooglePrivacyDlpV2PrimitiveTransformation)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TransformationSummary
:: GooglePrivacyDlpV2TransformationSummary
googlePrivacyDlpV2TransformationSummary =
GooglePrivacyDlpV2TransformationSummary'
{ _gpdvtsResults = Nothing
, _gpdvtsField = Nothing
, _gpdvtsInfoType = Nothing
, _gpdvtsRecordSuppress = Nothing
, _gpdvtsTransformedBytes = Nothing
, _gpdvtsFieldTransformations = Nothing
, _gpdvtsTransformation = Nothing
}
gpdvtsResults :: Lens' GooglePrivacyDlpV2TransformationSummary [GooglePrivacyDlpV2SummaryResult]
gpdvtsResults
= lens _gpdvtsResults
(\ s a -> s{_gpdvtsResults = a})
. _Default
. _Coerce
gpdvtsField :: Lens' GooglePrivacyDlpV2TransformationSummary (Maybe GooglePrivacyDlpV2FieldId)
gpdvtsField
= lens _gpdvtsField (\ s a -> s{_gpdvtsField = a})
gpdvtsInfoType :: Lens' GooglePrivacyDlpV2TransformationSummary (Maybe GooglePrivacyDlpV2InfoType)
gpdvtsInfoType
= lens _gpdvtsInfoType
(\ s a -> s{_gpdvtsInfoType = a})
gpdvtsRecordSuppress :: Lens' GooglePrivacyDlpV2TransformationSummary (Maybe GooglePrivacyDlpV2RecordSuppression)
gpdvtsRecordSuppress
= lens _gpdvtsRecordSuppress
(\ s a -> s{_gpdvtsRecordSuppress = a})
gpdvtsTransformedBytes :: Lens' GooglePrivacyDlpV2TransformationSummary (Maybe Int64)
gpdvtsTransformedBytes
= lens _gpdvtsTransformedBytes
(\ s a -> s{_gpdvtsTransformedBytes = a})
. mapping _Coerce
gpdvtsFieldTransformations :: Lens' GooglePrivacyDlpV2TransformationSummary [GooglePrivacyDlpV2FieldTransformation]
gpdvtsFieldTransformations
= lens _gpdvtsFieldTransformations
(\ s a -> s{_gpdvtsFieldTransformations = a})
. _Default
. _Coerce
gpdvtsTransformation :: Lens' GooglePrivacyDlpV2TransformationSummary (Maybe GooglePrivacyDlpV2PrimitiveTransformation)
gpdvtsTransformation
= lens _gpdvtsTransformation
(\ s a -> s{_gpdvtsTransformation = a})
instance FromJSON
GooglePrivacyDlpV2TransformationSummary
where
parseJSON
= withObject
"GooglePrivacyDlpV2TransformationSummary"
(\ o ->
GooglePrivacyDlpV2TransformationSummary' <$>
(o .:? "results" .!= mempty) <*> (o .:? "field") <*>
(o .:? "infoType")
<*> (o .:? "recordSuppress")
<*> (o .:? "transformedBytes")
<*> (o .:? "fieldTransformations" .!= mempty)
<*> (o .:? "transformation"))
instance ToJSON
GooglePrivacyDlpV2TransformationSummary
where
toJSON GooglePrivacyDlpV2TransformationSummary'{..}
= object
(catMaybes
[("results" .=) <$> _gpdvtsResults,
("field" .=) <$> _gpdvtsField,
("infoType" .=) <$> _gpdvtsInfoType,
("recordSuppress" .=) <$> _gpdvtsRecordSuppress,
("transformedBytes" .=) <$> _gpdvtsTransformedBytes,
("fieldTransformations" .=) <$>
_gpdvtsFieldTransformations,
("transformation" .=) <$> _gpdvtsTransformation])
data GooglePrivacyDlpV2LikelihoodAdjustment =
GooglePrivacyDlpV2LikelihoodAdjustment'
{ _gpdvlaFixedLikelihood :: !(Maybe GooglePrivacyDlpV2LikelihoodAdjustmentFixedLikelihood)
, _gpdvlaRelativeLikelihood :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2LikelihoodAdjustment
:: GooglePrivacyDlpV2LikelihoodAdjustment
googlePrivacyDlpV2LikelihoodAdjustment =
GooglePrivacyDlpV2LikelihoodAdjustment'
{_gpdvlaFixedLikelihood = Nothing, _gpdvlaRelativeLikelihood = Nothing}
gpdvlaFixedLikelihood :: Lens' GooglePrivacyDlpV2LikelihoodAdjustment (Maybe GooglePrivacyDlpV2LikelihoodAdjustmentFixedLikelihood)
gpdvlaFixedLikelihood
= lens _gpdvlaFixedLikelihood
(\ s a -> s{_gpdvlaFixedLikelihood = a})
gpdvlaRelativeLikelihood :: Lens' GooglePrivacyDlpV2LikelihoodAdjustment (Maybe Int32)
gpdvlaRelativeLikelihood
= lens _gpdvlaRelativeLikelihood
(\ s a -> s{_gpdvlaRelativeLikelihood = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2LikelihoodAdjustment
where
parseJSON
= withObject "GooglePrivacyDlpV2LikelihoodAdjustment"
(\ o ->
GooglePrivacyDlpV2LikelihoodAdjustment' <$>
(o .:? "fixedLikelihood") <*>
(o .:? "relativeLikelihood"))
instance ToJSON
GooglePrivacyDlpV2LikelihoodAdjustment
where
toJSON GooglePrivacyDlpV2LikelihoodAdjustment'{..}
= object
(catMaybes
[("fixedLikelihood" .=) <$> _gpdvlaFixedLikelihood,
("relativeLikelihood" .=) <$>
_gpdvlaRelativeLikelihood])
data GooglePrivacyDlpV2Regex =
GooglePrivacyDlpV2Regex'
{ _gpdvrGroupIndexes :: !(Maybe [Textual Int32])
, _gpdvrPattern :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Regex
:: GooglePrivacyDlpV2Regex
googlePrivacyDlpV2Regex =
GooglePrivacyDlpV2Regex'
{_gpdvrGroupIndexes = Nothing, _gpdvrPattern = Nothing}
gpdvrGroupIndexes :: Lens' GooglePrivacyDlpV2Regex [Int32]
gpdvrGroupIndexes
= lens _gpdvrGroupIndexes
(\ s a -> s{_gpdvrGroupIndexes = a})
. _Default
. _Coerce
gpdvrPattern :: Lens' GooglePrivacyDlpV2Regex (Maybe Text)
gpdvrPattern
= lens _gpdvrPattern (\ s a -> s{_gpdvrPattern = a})
instance FromJSON GooglePrivacyDlpV2Regex where
parseJSON
= withObject "GooglePrivacyDlpV2Regex"
(\ o ->
GooglePrivacyDlpV2Regex' <$>
(o .:? "groupIndexes" .!= mempty) <*>
(o .:? "pattern"))
instance ToJSON GooglePrivacyDlpV2Regex where
toJSON GooglePrivacyDlpV2Regex'{..}
= object
(catMaybes
[("groupIndexes" .=) <$> _gpdvrGroupIndexes,
("pattern" .=) <$> _gpdvrPattern])
data GooglePrivacyDlpV2UpdateStoredInfoTypeRequest =
GooglePrivacyDlpV2UpdateStoredInfoTypeRequest'
{ _gpdvusitrConfig :: !(Maybe GooglePrivacyDlpV2StoredInfoTypeConfig)
, _gpdvusitrUpdateMask :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2UpdateStoredInfoTypeRequest
:: GooglePrivacyDlpV2UpdateStoredInfoTypeRequest
googlePrivacyDlpV2UpdateStoredInfoTypeRequest =
GooglePrivacyDlpV2UpdateStoredInfoTypeRequest'
{_gpdvusitrConfig = Nothing, _gpdvusitrUpdateMask = Nothing}
gpdvusitrConfig :: Lens' GooglePrivacyDlpV2UpdateStoredInfoTypeRequest (Maybe GooglePrivacyDlpV2StoredInfoTypeConfig)
gpdvusitrConfig
= lens _gpdvusitrConfig
(\ s a -> s{_gpdvusitrConfig = a})
gpdvusitrUpdateMask :: Lens' GooglePrivacyDlpV2UpdateStoredInfoTypeRequest (Maybe GFieldMask)
gpdvusitrUpdateMask
= lens _gpdvusitrUpdateMask
(\ s a -> s{_gpdvusitrUpdateMask = a})
instance FromJSON
GooglePrivacyDlpV2UpdateStoredInfoTypeRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2UpdateStoredInfoTypeRequest"
(\ o ->
GooglePrivacyDlpV2UpdateStoredInfoTypeRequest' <$>
(o .:? "config") <*> (o .:? "updateMask"))
instance ToJSON
GooglePrivacyDlpV2UpdateStoredInfoTypeRequest
where
toJSON
GooglePrivacyDlpV2UpdateStoredInfoTypeRequest'{..}
= object
(catMaybes
[("config" .=) <$> _gpdvusitrConfig,
("updateMask" .=) <$> _gpdvusitrUpdateMask])
data GooglePrivacyDlpV2KAnonymityEquivalenceClass =
GooglePrivacyDlpV2KAnonymityEquivalenceClass'
{ _gpdvkaecEquivalenceClassSize :: !(Maybe (Textual Int64))
, _gpdvkaecQuasiIdsValues :: !(Maybe [GooglePrivacyDlpV2Value])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KAnonymityEquivalenceClass
:: GooglePrivacyDlpV2KAnonymityEquivalenceClass
googlePrivacyDlpV2KAnonymityEquivalenceClass =
GooglePrivacyDlpV2KAnonymityEquivalenceClass'
{_gpdvkaecEquivalenceClassSize = Nothing, _gpdvkaecQuasiIdsValues = Nothing}
gpdvkaecEquivalenceClassSize :: Lens' GooglePrivacyDlpV2KAnonymityEquivalenceClass (Maybe Int64)
gpdvkaecEquivalenceClassSize
= lens _gpdvkaecEquivalenceClassSize
(\ s a -> s{_gpdvkaecEquivalenceClassSize = a})
. mapping _Coerce
gpdvkaecQuasiIdsValues :: Lens' GooglePrivacyDlpV2KAnonymityEquivalenceClass [GooglePrivacyDlpV2Value]
gpdvkaecQuasiIdsValues
= lens _gpdvkaecQuasiIdsValues
(\ s a -> s{_gpdvkaecQuasiIdsValues = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2KAnonymityEquivalenceClass
where
parseJSON
= withObject
"GooglePrivacyDlpV2KAnonymityEquivalenceClass"
(\ o ->
GooglePrivacyDlpV2KAnonymityEquivalenceClass' <$>
(o .:? "equivalenceClassSize") <*>
(o .:? "quasiIdsValues" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2KAnonymityEquivalenceClass
where
toJSON
GooglePrivacyDlpV2KAnonymityEquivalenceClass'{..}
= object
(catMaybes
[("equivalenceClassSize" .=) <$>
_gpdvkaecEquivalenceClassSize,
("quasiIdsValues" .=) <$> _gpdvkaecQuasiIdsValues])
data GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest =
GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest'
{ _gpdvudtrUpdateMask :: !(Maybe GFieldMask)
, _gpdvudtrDeidentifyTemplate :: !(Maybe GooglePrivacyDlpV2DeidentifyTemplate)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2UpdateDeidentifyTemplateRequest
:: GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest
googlePrivacyDlpV2UpdateDeidentifyTemplateRequest =
GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest'
{_gpdvudtrUpdateMask = Nothing, _gpdvudtrDeidentifyTemplate = Nothing}
gpdvudtrUpdateMask :: Lens' GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest (Maybe GFieldMask)
gpdvudtrUpdateMask
= lens _gpdvudtrUpdateMask
(\ s a -> s{_gpdvudtrUpdateMask = a})
gpdvudtrDeidentifyTemplate :: Lens' GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest (Maybe GooglePrivacyDlpV2DeidentifyTemplate)
gpdvudtrDeidentifyTemplate
= lens _gpdvudtrDeidentifyTemplate
(\ s a -> s{_gpdvudtrDeidentifyTemplate = a})
instance FromJSON
GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest"
(\ o ->
GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest'
<$>
(o .:? "updateMask") <*>
(o .:? "deidentifyTemplate"))
instance ToJSON
GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest
where
toJSON
GooglePrivacyDlpV2UpdateDeidentifyTemplateRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _gpdvudtrUpdateMask,
("deidentifyTemplate" .=) <$>
_gpdvudtrDeidentifyTemplate])
data GooglePrivacyDlpV2LDiversityConfig =
GooglePrivacyDlpV2LDiversityConfig'
{ _gpdvldcSensitiveAttribute :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvldcQuasiIds :: !(Maybe [GooglePrivacyDlpV2FieldId])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2LDiversityConfig
:: GooglePrivacyDlpV2LDiversityConfig
googlePrivacyDlpV2LDiversityConfig =
GooglePrivacyDlpV2LDiversityConfig'
{_gpdvldcSensitiveAttribute = Nothing, _gpdvldcQuasiIds = Nothing}
gpdvldcSensitiveAttribute :: Lens' GooglePrivacyDlpV2LDiversityConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvldcSensitiveAttribute
= lens _gpdvldcSensitiveAttribute
(\ s a -> s{_gpdvldcSensitiveAttribute = a})
gpdvldcQuasiIds :: Lens' GooglePrivacyDlpV2LDiversityConfig [GooglePrivacyDlpV2FieldId]
gpdvldcQuasiIds
= lens _gpdvldcQuasiIds
(\ s a -> s{_gpdvldcQuasiIds = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2LDiversityConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2LDiversityConfig"
(\ o ->
GooglePrivacyDlpV2LDiversityConfig' <$>
(o .:? "sensitiveAttribute") <*>
(o .:? "quasiIds" .!= mempty))
instance ToJSON GooglePrivacyDlpV2LDiversityConfig
where
toJSON GooglePrivacyDlpV2LDiversityConfig'{..}
= object
(catMaybes
[("sensitiveAttribute" .=) <$>
_gpdvldcSensitiveAttribute,
("quasiIds" .=) <$> _gpdvldcQuasiIds])
data GooglePrivacyDlpV2JobNotificationEmails =
GooglePrivacyDlpV2JobNotificationEmails'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2JobNotificationEmails
:: GooglePrivacyDlpV2JobNotificationEmails
googlePrivacyDlpV2JobNotificationEmails =
GooglePrivacyDlpV2JobNotificationEmails'
instance FromJSON
GooglePrivacyDlpV2JobNotificationEmails
where
parseJSON
= withObject
"GooglePrivacyDlpV2JobNotificationEmails"
(\ o ->
pure GooglePrivacyDlpV2JobNotificationEmails')
instance ToJSON
GooglePrivacyDlpV2JobNotificationEmails
where
toJSON = const emptyObject
data GooglePrivacyDlpV2DeidentifyContentRequest =
GooglePrivacyDlpV2DeidentifyContentRequest'
{ _gpdvdcrInspectConfig :: !(Maybe GooglePrivacyDlpV2InspectConfig)
, _gpdvdcrDeidentifyConfig :: !(Maybe GooglePrivacyDlpV2DeidentifyConfig)
, _gpdvdcrDeidentifyTemplateName :: !(Maybe Text)
, _gpdvdcrItem :: !(Maybe GooglePrivacyDlpV2ContentItem)
, _gpdvdcrInspectTemplateName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeidentifyContentRequest
:: GooglePrivacyDlpV2DeidentifyContentRequest
googlePrivacyDlpV2DeidentifyContentRequest =
GooglePrivacyDlpV2DeidentifyContentRequest'
{ _gpdvdcrInspectConfig = Nothing
, _gpdvdcrDeidentifyConfig = Nothing
, _gpdvdcrDeidentifyTemplateName = Nothing
, _gpdvdcrItem = Nothing
, _gpdvdcrInspectTemplateName = Nothing
}
gpdvdcrInspectConfig :: Lens' GooglePrivacyDlpV2DeidentifyContentRequest (Maybe GooglePrivacyDlpV2InspectConfig)
gpdvdcrInspectConfig
= lens _gpdvdcrInspectConfig
(\ s a -> s{_gpdvdcrInspectConfig = a})
gpdvdcrDeidentifyConfig :: Lens' GooglePrivacyDlpV2DeidentifyContentRequest (Maybe GooglePrivacyDlpV2DeidentifyConfig)
gpdvdcrDeidentifyConfig
= lens _gpdvdcrDeidentifyConfig
(\ s a -> s{_gpdvdcrDeidentifyConfig = a})
gpdvdcrDeidentifyTemplateName :: Lens' GooglePrivacyDlpV2DeidentifyContentRequest (Maybe Text)
gpdvdcrDeidentifyTemplateName
= lens _gpdvdcrDeidentifyTemplateName
(\ s a -> s{_gpdvdcrDeidentifyTemplateName = a})
gpdvdcrItem :: Lens' GooglePrivacyDlpV2DeidentifyContentRequest (Maybe GooglePrivacyDlpV2ContentItem)
gpdvdcrItem
= lens _gpdvdcrItem (\ s a -> s{_gpdvdcrItem = a})
gpdvdcrInspectTemplateName :: Lens' GooglePrivacyDlpV2DeidentifyContentRequest (Maybe Text)
gpdvdcrInspectTemplateName
= lens _gpdvdcrInspectTemplateName
(\ s a -> s{_gpdvdcrInspectTemplateName = a})
instance FromJSON
GooglePrivacyDlpV2DeidentifyContentRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2DeidentifyContentRequest"
(\ o ->
GooglePrivacyDlpV2DeidentifyContentRequest' <$>
(o .:? "inspectConfig") <*>
(o .:? "deidentifyConfig")
<*> (o .:? "deidentifyTemplateName")
<*> (o .:? "item")
<*> (o .:? "inspectTemplateName"))
instance ToJSON
GooglePrivacyDlpV2DeidentifyContentRequest
where
toJSON
GooglePrivacyDlpV2DeidentifyContentRequest'{..}
= object
(catMaybes
[("inspectConfig" .=) <$> _gpdvdcrInspectConfig,
("deidentifyConfig" .=) <$> _gpdvdcrDeidentifyConfig,
("deidentifyTemplateName" .=) <$>
_gpdvdcrDeidentifyTemplateName,
("item" .=) <$> _gpdvdcrItem,
("inspectTemplateName" .=) <$>
_gpdvdcrInspectTemplateName])
data GooglePrivacyDlpV2Color =
GooglePrivacyDlpV2Color'
{ _gpdvcRed :: !(Maybe (Textual Double))
, _gpdvcGreen :: !(Maybe (Textual Double))
, _gpdvcBlue :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Color
:: GooglePrivacyDlpV2Color
googlePrivacyDlpV2Color =
GooglePrivacyDlpV2Color'
{_gpdvcRed = Nothing, _gpdvcGreen = Nothing, _gpdvcBlue = Nothing}
gpdvcRed :: Lens' GooglePrivacyDlpV2Color (Maybe Double)
gpdvcRed
= lens _gpdvcRed (\ s a -> s{_gpdvcRed = a}) .
mapping _Coerce
gpdvcGreen :: Lens' GooglePrivacyDlpV2Color (Maybe Double)
gpdvcGreen
= lens _gpdvcGreen (\ s a -> s{_gpdvcGreen = a}) .
mapping _Coerce
gpdvcBlue :: Lens' GooglePrivacyDlpV2Color (Maybe Double)
gpdvcBlue
= lens _gpdvcBlue (\ s a -> s{_gpdvcBlue = a}) .
mapping _Coerce
instance FromJSON GooglePrivacyDlpV2Color where
parseJSON
= withObject "GooglePrivacyDlpV2Color"
(\ o ->
GooglePrivacyDlpV2Color' <$>
(o .:? "red") <*> (o .:? "green") <*> (o .:? "blue"))
instance ToJSON GooglePrivacyDlpV2Color where
toJSON GooglePrivacyDlpV2Color'{..}
= object
(catMaybes
[("red" .=) <$> _gpdvcRed,
("green" .=) <$> _gpdvcGreen,
("blue" .=) <$> _gpdvcBlue])
data GooglePrivacyDlpV2ListDlpJobsResponse =
GooglePrivacyDlpV2ListDlpJobsResponse'
{ _gpdvldjrNextPageToken :: !(Maybe Text)
, _gpdvldjrJobs :: !(Maybe [GooglePrivacyDlpV2DlpJob])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ListDlpJobsResponse
:: GooglePrivacyDlpV2ListDlpJobsResponse
googlePrivacyDlpV2ListDlpJobsResponse =
GooglePrivacyDlpV2ListDlpJobsResponse'
{_gpdvldjrNextPageToken = Nothing, _gpdvldjrJobs = Nothing}
gpdvldjrNextPageToken :: Lens' GooglePrivacyDlpV2ListDlpJobsResponse (Maybe Text)
gpdvldjrNextPageToken
= lens _gpdvldjrNextPageToken
(\ s a -> s{_gpdvldjrNextPageToken = a})
gpdvldjrJobs :: Lens' GooglePrivacyDlpV2ListDlpJobsResponse [GooglePrivacyDlpV2DlpJob]
gpdvldjrJobs
= lens _gpdvldjrJobs (\ s a -> s{_gpdvldjrJobs = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2ListDlpJobsResponse
where
parseJSON
= withObject "GooglePrivacyDlpV2ListDlpJobsResponse"
(\ o ->
GooglePrivacyDlpV2ListDlpJobsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "jobs" .!= mempty))
instance ToJSON GooglePrivacyDlpV2ListDlpJobsResponse
where
toJSON GooglePrivacyDlpV2ListDlpJobsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gpdvldjrNextPageToken,
("jobs" .=) <$> _gpdvldjrJobs])
data GooglePrivacyDlpV2Proximity =
GooglePrivacyDlpV2Proximity'
{ _gpdvpWindowAfter :: !(Maybe (Textual Int32))
, _gpdvpWindowBefore :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Proximity
:: GooglePrivacyDlpV2Proximity
googlePrivacyDlpV2Proximity =
GooglePrivacyDlpV2Proximity'
{_gpdvpWindowAfter = Nothing, _gpdvpWindowBefore = Nothing}
gpdvpWindowAfter :: Lens' GooglePrivacyDlpV2Proximity (Maybe Int32)
gpdvpWindowAfter
= lens _gpdvpWindowAfter
(\ s a -> s{_gpdvpWindowAfter = a})
. mapping _Coerce
gpdvpWindowBefore :: Lens' GooglePrivacyDlpV2Proximity (Maybe Int32)
gpdvpWindowBefore
= lens _gpdvpWindowBefore
(\ s a -> s{_gpdvpWindowBefore = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2Proximity where
parseJSON
= withObject "GooglePrivacyDlpV2Proximity"
(\ o ->
GooglePrivacyDlpV2Proximity' <$>
(o .:? "windowAfter") <*> (o .:? "windowBefore"))
instance ToJSON GooglePrivacyDlpV2Proximity where
toJSON GooglePrivacyDlpV2Proximity'{..}
= object
(catMaybes
[("windowAfter" .=) <$> _gpdvpWindowAfter,
("windowBefore" .=) <$> _gpdvpWindowBefore])
data GooglePrivacyDlpV2Finding =
GooglePrivacyDlpV2Finding'
{ _gpdvfLocation :: !(Maybe GooglePrivacyDlpV2Location)
, _gpdvfInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvfQuoteInfo :: !(Maybe GooglePrivacyDlpV2QuoteInfo)
, _gpdvfLikelihood :: !(Maybe GooglePrivacyDlpV2FindingLikelihood)
, _gpdvfQuote :: !(Maybe Text)
, _gpdvfCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Finding
:: GooglePrivacyDlpV2Finding
googlePrivacyDlpV2Finding =
GooglePrivacyDlpV2Finding'
{ _gpdvfLocation = Nothing
, _gpdvfInfoType = Nothing
, _gpdvfQuoteInfo = Nothing
, _gpdvfLikelihood = Nothing
, _gpdvfQuote = Nothing
, _gpdvfCreateTime = Nothing
}
gpdvfLocation :: Lens' GooglePrivacyDlpV2Finding (Maybe GooglePrivacyDlpV2Location)
gpdvfLocation
= lens _gpdvfLocation
(\ s a -> s{_gpdvfLocation = a})
gpdvfInfoType :: Lens' GooglePrivacyDlpV2Finding (Maybe GooglePrivacyDlpV2InfoType)
gpdvfInfoType
= lens _gpdvfInfoType
(\ s a -> s{_gpdvfInfoType = a})
gpdvfQuoteInfo :: Lens' GooglePrivacyDlpV2Finding (Maybe GooglePrivacyDlpV2QuoteInfo)
gpdvfQuoteInfo
= lens _gpdvfQuoteInfo
(\ s a -> s{_gpdvfQuoteInfo = a})
gpdvfLikelihood :: Lens' GooglePrivacyDlpV2Finding (Maybe GooglePrivacyDlpV2FindingLikelihood)
gpdvfLikelihood
= lens _gpdvfLikelihood
(\ s a -> s{_gpdvfLikelihood = a})
gpdvfQuote :: Lens' GooglePrivacyDlpV2Finding (Maybe Text)
gpdvfQuote
= lens _gpdvfQuote (\ s a -> s{_gpdvfQuote = a})
gpdvfCreateTime :: Lens' GooglePrivacyDlpV2Finding (Maybe UTCTime)
gpdvfCreateTime
= lens _gpdvfCreateTime
(\ s a -> s{_gpdvfCreateTime = a})
. mapping _DateTime
instance FromJSON GooglePrivacyDlpV2Finding where
parseJSON
= withObject "GooglePrivacyDlpV2Finding"
(\ o ->
GooglePrivacyDlpV2Finding' <$>
(o .:? "location") <*> (o .:? "infoType") <*>
(o .:? "quoteInfo")
<*> (o .:? "likelihood")
<*> (o .:? "quote")
<*> (o .:? "createTime"))
instance ToJSON GooglePrivacyDlpV2Finding where
toJSON GooglePrivacyDlpV2Finding'{..}
= object
(catMaybes
[("location" .=) <$> _gpdvfLocation,
("infoType" .=) <$> _gpdvfInfoType,
("quoteInfo" .=) <$> _gpdvfQuoteInfo,
("likelihood" .=) <$> _gpdvfLikelihood,
("quote" .=) <$> _gpdvfQuote,
("createTime" .=) <$> _gpdvfCreateTime])
data GooglePrivacyDlpV2SummaryResult =
GooglePrivacyDlpV2SummaryResult'
{ _gpdvsrCount :: !(Maybe (Textual Int64))
, _gpdvsrDetails :: !(Maybe Text)
, _gpdvsrCode :: !(Maybe GooglePrivacyDlpV2SummaryResultCode)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2SummaryResult
:: GooglePrivacyDlpV2SummaryResult
googlePrivacyDlpV2SummaryResult =
GooglePrivacyDlpV2SummaryResult'
{_gpdvsrCount = Nothing, _gpdvsrDetails = Nothing, _gpdvsrCode = Nothing}
gpdvsrCount :: Lens' GooglePrivacyDlpV2SummaryResult (Maybe Int64)
gpdvsrCount
= lens _gpdvsrCount (\ s a -> s{_gpdvsrCount = a}) .
mapping _Coerce
gpdvsrDetails :: Lens' GooglePrivacyDlpV2SummaryResult (Maybe Text)
gpdvsrDetails
= lens _gpdvsrDetails
(\ s a -> s{_gpdvsrDetails = a})
gpdvsrCode :: Lens' GooglePrivacyDlpV2SummaryResult (Maybe GooglePrivacyDlpV2SummaryResultCode)
gpdvsrCode
= lens _gpdvsrCode (\ s a -> s{_gpdvsrCode = a})
instance FromJSON GooglePrivacyDlpV2SummaryResult
where
parseJSON
= withObject "GooglePrivacyDlpV2SummaryResult"
(\ o ->
GooglePrivacyDlpV2SummaryResult' <$>
(o .:? "count") <*> (o .:? "details") <*>
(o .:? "code"))
instance ToJSON GooglePrivacyDlpV2SummaryResult where
toJSON GooglePrivacyDlpV2SummaryResult'{..}
= object
(catMaybes
[("count" .=) <$> _gpdvsrCount,
("details" .=) <$> _gpdvsrDetails,
("code" .=) <$> _gpdvsrCode])
newtype GooglePrivacyDlpV2Row =
GooglePrivacyDlpV2Row'
{ _gpdvrValues :: Maybe [GooglePrivacyDlpV2Value]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Row
:: GooglePrivacyDlpV2Row
googlePrivacyDlpV2Row = GooglePrivacyDlpV2Row' {_gpdvrValues = Nothing}
gpdvrValues :: Lens' GooglePrivacyDlpV2Row [GooglePrivacyDlpV2Value]
gpdvrValues
= lens _gpdvrValues (\ s a -> s{_gpdvrValues = a}) .
_Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2Row where
parseJSON
= withObject "GooglePrivacyDlpV2Row"
(\ o ->
GooglePrivacyDlpV2Row' <$>
(o .:? "values" .!= mempty))
instance ToJSON GooglePrivacyDlpV2Row where
toJSON GooglePrivacyDlpV2Row'{..}
= object (catMaybes [("values" .=) <$> _gpdvrValues])
data GooglePrivacyDlpV2ReplaceWithInfoTypeConfig =
GooglePrivacyDlpV2ReplaceWithInfoTypeConfig'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ReplaceWithInfoTypeConfig
:: GooglePrivacyDlpV2ReplaceWithInfoTypeConfig
googlePrivacyDlpV2ReplaceWithInfoTypeConfig =
GooglePrivacyDlpV2ReplaceWithInfoTypeConfig'
instance FromJSON
GooglePrivacyDlpV2ReplaceWithInfoTypeConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2ReplaceWithInfoTypeConfig"
(\ o ->
pure GooglePrivacyDlpV2ReplaceWithInfoTypeConfig')
instance ToJSON
GooglePrivacyDlpV2ReplaceWithInfoTypeConfig
where
toJSON = const emptyObject
data GoogleTypeTimeOfDay =
GoogleTypeTimeOfDay'
{ _gttodNanos :: !(Maybe (Textual Int32))
, _gttodHours :: !(Maybe (Textual Int32))
, _gttodMinutes :: !(Maybe (Textual Int32))
, _gttodSeconds :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleTypeTimeOfDay
:: GoogleTypeTimeOfDay
googleTypeTimeOfDay =
GoogleTypeTimeOfDay'
{ _gttodNanos = Nothing
, _gttodHours = Nothing
, _gttodMinutes = Nothing
, _gttodSeconds = Nothing
}
gttodNanos :: Lens' GoogleTypeTimeOfDay (Maybe Int32)
gttodNanos
= lens _gttodNanos (\ s a -> s{_gttodNanos = a}) .
mapping _Coerce
gttodHours :: Lens' GoogleTypeTimeOfDay (Maybe Int32)
gttodHours
= lens _gttodHours (\ s a -> s{_gttodHours = a}) .
mapping _Coerce
gttodMinutes :: Lens' GoogleTypeTimeOfDay (Maybe Int32)
gttodMinutes
= lens _gttodMinutes (\ s a -> s{_gttodMinutes = a})
. mapping _Coerce
gttodSeconds :: Lens' GoogleTypeTimeOfDay (Maybe Int32)
gttodSeconds
= lens _gttodSeconds (\ s a -> s{_gttodSeconds = a})
. mapping _Coerce
instance FromJSON GoogleTypeTimeOfDay where
parseJSON
= withObject "GoogleTypeTimeOfDay"
(\ o ->
GoogleTypeTimeOfDay' <$>
(o .:? "nanos") <*> (o .:? "hours") <*>
(o .:? "minutes")
<*> (o .:? "seconds"))
instance ToJSON GoogleTypeTimeOfDay where
toJSON GoogleTypeTimeOfDay'{..}
= object
(catMaybes
[("nanos" .=) <$> _gttodNanos,
("hours" .=) <$> _gttodHours,
("minutes" .=) <$> _gttodMinutes,
("seconds" .=) <$> _gttodSeconds])
data GooglePrivacyDlpV2ExclusionRule =
GooglePrivacyDlpV2ExclusionRule'
{ _gpdverRegex :: !(Maybe GooglePrivacyDlpV2Regex)
, _gpdverExcludeInfoTypes :: !(Maybe GooglePrivacyDlpV2ExcludeInfoTypes)
, _gpdverDictionary :: !(Maybe GooglePrivacyDlpV2Dictionary)
, _gpdverMatchingType :: !(Maybe GooglePrivacyDlpV2ExclusionRuleMatchingType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ExclusionRule
:: GooglePrivacyDlpV2ExclusionRule
googlePrivacyDlpV2ExclusionRule =
GooglePrivacyDlpV2ExclusionRule'
{ _gpdverRegex = Nothing
, _gpdverExcludeInfoTypes = Nothing
, _gpdverDictionary = Nothing
, _gpdverMatchingType = Nothing
}
gpdverRegex :: Lens' GooglePrivacyDlpV2ExclusionRule (Maybe GooglePrivacyDlpV2Regex)
gpdverRegex
= lens _gpdverRegex (\ s a -> s{_gpdverRegex = a})
gpdverExcludeInfoTypes :: Lens' GooglePrivacyDlpV2ExclusionRule (Maybe GooglePrivacyDlpV2ExcludeInfoTypes)
gpdverExcludeInfoTypes
= lens _gpdverExcludeInfoTypes
(\ s a -> s{_gpdverExcludeInfoTypes = a})
gpdverDictionary :: Lens' GooglePrivacyDlpV2ExclusionRule (Maybe GooglePrivacyDlpV2Dictionary)
gpdverDictionary
= lens _gpdverDictionary
(\ s a -> s{_gpdverDictionary = a})
gpdverMatchingType :: Lens' GooglePrivacyDlpV2ExclusionRule (Maybe GooglePrivacyDlpV2ExclusionRuleMatchingType)
gpdverMatchingType
= lens _gpdverMatchingType
(\ s a -> s{_gpdverMatchingType = a})
instance FromJSON GooglePrivacyDlpV2ExclusionRule
where
parseJSON
= withObject "GooglePrivacyDlpV2ExclusionRule"
(\ o ->
GooglePrivacyDlpV2ExclusionRule' <$>
(o .:? "regex") <*> (o .:? "excludeInfoTypes") <*>
(o .:? "dictionary")
<*> (o .:? "matchingType"))
instance ToJSON GooglePrivacyDlpV2ExclusionRule where
toJSON GooglePrivacyDlpV2ExclusionRule'{..}
= object
(catMaybes
[("regex" .=) <$> _gpdverRegex,
("excludeInfoTypes" .=) <$> _gpdverExcludeInfoTypes,
("dictionary" .=) <$> _gpdverDictionary,
("matchingType" .=) <$> _gpdverMatchingType])
data GooglePrivacyDlpV2CreateDlpJobRequest =
GooglePrivacyDlpV2CreateDlpJobRequest'
{ _gpdvcdjrRiskJob :: !(Maybe GooglePrivacyDlpV2RiskAnalysisJobConfig)
, _gpdvcdjrJobId :: !(Maybe Text)
, _gpdvcdjrInspectJob :: !(Maybe GooglePrivacyDlpV2InspectJobConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CreateDlpJobRequest
:: GooglePrivacyDlpV2CreateDlpJobRequest
googlePrivacyDlpV2CreateDlpJobRequest =
GooglePrivacyDlpV2CreateDlpJobRequest'
{ _gpdvcdjrRiskJob = Nothing
, _gpdvcdjrJobId = Nothing
, _gpdvcdjrInspectJob = Nothing
}
gpdvcdjrRiskJob :: Lens' GooglePrivacyDlpV2CreateDlpJobRequest (Maybe GooglePrivacyDlpV2RiskAnalysisJobConfig)
gpdvcdjrRiskJob
= lens _gpdvcdjrRiskJob
(\ s a -> s{_gpdvcdjrRiskJob = a})
gpdvcdjrJobId :: Lens' GooglePrivacyDlpV2CreateDlpJobRequest (Maybe Text)
gpdvcdjrJobId
= lens _gpdvcdjrJobId
(\ s a -> s{_gpdvcdjrJobId = a})
gpdvcdjrInspectJob :: Lens' GooglePrivacyDlpV2CreateDlpJobRequest (Maybe GooglePrivacyDlpV2InspectJobConfig)
gpdvcdjrInspectJob
= lens _gpdvcdjrInspectJob
(\ s a -> s{_gpdvcdjrInspectJob = a})
instance FromJSON
GooglePrivacyDlpV2CreateDlpJobRequest
where
parseJSON
= withObject "GooglePrivacyDlpV2CreateDlpJobRequest"
(\ o ->
GooglePrivacyDlpV2CreateDlpJobRequest' <$>
(o .:? "riskJob") <*> (o .:? "jobId") <*>
(o .:? "inspectJob"))
instance ToJSON GooglePrivacyDlpV2CreateDlpJobRequest
where
toJSON GooglePrivacyDlpV2CreateDlpJobRequest'{..}
= object
(catMaybes
[("riskJob" .=) <$> _gpdvcdjrRiskJob,
("jobId" .=) <$> _gpdvcdjrJobId,
("inspectJob" .=) <$> _gpdvcdjrInspectJob])
data GooglePrivacyDlpV2RecordKey =
GooglePrivacyDlpV2RecordKey'
{ _gpdvrkIdValues :: !(Maybe [Text])
, _gpdvrkDatastoreKey :: !(Maybe GooglePrivacyDlpV2DatastoreKey)
, _gpdvrkBigQueryKey :: !(Maybe GooglePrivacyDlpV2BigQueryKey)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RecordKey
:: GooglePrivacyDlpV2RecordKey
googlePrivacyDlpV2RecordKey =
GooglePrivacyDlpV2RecordKey'
{ _gpdvrkIdValues = Nothing
, _gpdvrkDatastoreKey = Nothing
, _gpdvrkBigQueryKey = Nothing
}
gpdvrkIdValues :: Lens' GooglePrivacyDlpV2RecordKey [Text]
gpdvrkIdValues
= lens _gpdvrkIdValues
(\ s a -> s{_gpdvrkIdValues = a})
. _Default
. _Coerce
gpdvrkDatastoreKey :: Lens' GooglePrivacyDlpV2RecordKey (Maybe GooglePrivacyDlpV2DatastoreKey)
gpdvrkDatastoreKey
= lens _gpdvrkDatastoreKey
(\ s a -> s{_gpdvrkDatastoreKey = a})
gpdvrkBigQueryKey :: Lens' GooglePrivacyDlpV2RecordKey (Maybe GooglePrivacyDlpV2BigQueryKey)
gpdvrkBigQueryKey
= lens _gpdvrkBigQueryKey
(\ s a -> s{_gpdvrkBigQueryKey = a})
instance FromJSON GooglePrivacyDlpV2RecordKey where
parseJSON
= withObject "GooglePrivacyDlpV2RecordKey"
(\ o ->
GooglePrivacyDlpV2RecordKey' <$>
(o .:? "idValues" .!= mempty) <*>
(o .:? "datastoreKey")
<*> (o .:? "bigQueryKey"))
instance ToJSON GooglePrivacyDlpV2RecordKey where
toJSON GooglePrivacyDlpV2RecordKey'{..}
= object
(catMaybes
[("idValues" .=) <$> _gpdvrkIdValues,
("datastoreKey" .=) <$> _gpdvrkDatastoreKey,
("bigQueryKey" .=) <$> _gpdvrkBigQueryKey])
data GooglePrivacyDlpV2KMapEstimationHistogramBucket =
GooglePrivacyDlpV2KMapEstimationHistogramBucket'
{ _gpdvkmehbMaxAnonymity :: !(Maybe (Textual Int64))
, _gpdvkmehbBucketValues :: !(Maybe [GooglePrivacyDlpV2KMapEstimationQuasiIdValues])
, _gpdvkmehbMinAnonymity :: !(Maybe (Textual Int64))
, _gpdvkmehbBucketSize :: !(Maybe (Textual Int64))
, _gpdvkmehbBucketValueCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KMapEstimationHistogramBucket
:: GooglePrivacyDlpV2KMapEstimationHistogramBucket
googlePrivacyDlpV2KMapEstimationHistogramBucket =
GooglePrivacyDlpV2KMapEstimationHistogramBucket'
{ _gpdvkmehbMaxAnonymity = Nothing
, _gpdvkmehbBucketValues = Nothing
, _gpdvkmehbMinAnonymity = Nothing
, _gpdvkmehbBucketSize = Nothing
, _gpdvkmehbBucketValueCount = Nothing
}
gpdvkmehbMaxAnonymity :: Lens' GooglePrivacyDlpV2KMapEstimationHistogramBucket (Maybe Int64)
gpdvkmehbMaxAnonymity
= lens _gpdvkmehbMaxAnonymity
(\ s a -> s{_gpdvkmehbMaxAnonymity = a})
. mapping _Coerce
gpdvkmehbBucketValues :: Lens' GooglePrivacyDlpV2KMapEstimationHistogramBucket [GooglePrivacyDlpV2KMapEstimationQuasiIdValues]
gpdvkmehbBucketValues
= lens _gpdvkmehbBucketValues
(\ s a -> s{_gpdvkmehbBucketValues = a})
. _Default
. _Coerce
gpdvkmehbMinAnonymity :: Lens' GooglePrivacyDlpV2KMapEstimationHistogramBucket (Maybe Int64)
gpdvkmehbMinAnonymity
= lens _gpdvkmehbMinAnonymity
(\ s a -> s{_gpdvkmehbMinAnonymity = a})
. mapping _Coerce
gpdvkmehbBucketSize :: Lens' GooglePrivacyDlpV2KMapEstimationHistogramBucket (Maybe Int64)
gpdvkmehbBucketSize
= lens _gpdvkmehbBucketSize
(\ s a -> s{_gpdvkmehbBucketSize = a})
. mapping _Coerce
gpdvkmehbBucketValueCount :: Lens' GooglePrivacyDlpV2KMapEstimationHistogramBucket (Maybe Int64)
gpdvkmehbBucketValueCount
= lens _gpdvkmehbBucketValueCount
(\ s a -> s{_gpdvkmehbBucketValueCount = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2KMapEstimationHistogramBucket
where
parseJSON
= withObject
"GooglePrivacyDlpV2KMapEstimationHistogramBucket"
(\ o ->
GooglePrivacyDlpV2KMapEstimationHistogramBucket' <$>
(o .:? "maxAnonymity") <*>
(o .:? "bucketValues" .!= mempty)
<*> (o .:? "minAnonymity")
<*> (o .:? "bucketSize")
<*> (o .:? "bucketValueCount"))
instance ToJSON
GooglePrivacyDlpV2KMapEstimationHistogramBucket
where
toJSON
GooglePrivacyDlpV2KMapEstimationHistogramBucket'{..}
= object
(catMaybes
[("maxAnonymity" .=) <$> _gpdvkmehbMaxAnonymity,
("bucketValues" .=) <$> _gpdvkmehbBucketValues,
("minAnonymity" .=) <$> _gpdvkmehbMinAnonymity,
("bucketSize" .=) <$> _gpdvkmehbBucketSize,
("bucketValueCount" .=) <$>
_gpdvkmehbBucketValueCount])
data GooglePrivacyDlpV2ListDeidentifyTemplatesResponse =
GooglePrivacyDlpV2ListDeidentifyTemplatesResponse'
{ _gpdvldtrNextPageToken :: !(Maybe Text)
, _gpdvldtrDeidentifyTemplates :: !(Maybe [GooglePrivacyDlpV2DeidentifyTemplate])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ListDeidentifyTemplatesResponse
:: GooglePrivacyDlpV2ListDeidentifyTemplatesResponse
googlePrivacyDlpV2ListDeidentifyTemplatesResponse =
GooglePrivacyDlpV2ListDeidentifyTemplatesResponse'
{_gpdvldtrNextPageToken = Nothing, _gpdvldtrDeidentifyTemplates = Nothing}
gpdvldtrNextPageToken :: Lens' GooglePrivacyDlpV2ListDeidentifyTemplatesResponse (Maybe Text)
gpdvldtrNextPageToken
= lens _gpdvldtrNextPageToken
(\ s a -> s{_gpdvldtrNextPageToken = a})
gpdvldtrDeidentifyTemplates :: Lens' GooglePrivacyDlpV2ListDeidentifyTemplatesResponse [GooglePrivacyDlpV2DeidentifyTemplate]
gpdvldtrDeidentifyTemplates
= lens _gpdvldtrDeidentifyTemplates
(\ s a -> s{_gpdvldtrDeidentifyTemplates = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2ListDeidentifyTemplatesResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2ListDeidentifyTemplatesResponse"
(\ o ->
GooglePrivacyDlpV2ListDeidentifyTemplatesResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "deidentifyTemplates" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2ListDeidentifyTemplatesResponse
where
toJSON
GooglePrivacyDlpV2ListDeidentifyTemplatesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gpdvldtrNextPageToken,
("deidentifyTemplates" .=) <$>
_gpdvldtrDeidentifyTemplates])
data GooglePrivacyDlpV2KAnonymityConfig =
GooglePrivacyDlpV2KAnonymityConfig'
{ _gpdvkacEntityId :: !(Maybe GooglePrivacyDlpV2EntityId)
, _gpdvkacQuasiIds :: !(Maybe [GooglePrivacyDlpV2FieldId])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KAnonymityConfig
:: GooglePrivacyDlpV2KAnonymityConfig
googlePrivacyDlpV2KAnonymityConfig =
GooglePrivacyDlpV2KAnonymityConfig'
{_gpdvkacEntityId = Nothing, _gpdvkacQuasiIds = Nothing}
gpdvkacEntityId :: Lens' GooglePrivacyDlpV2KAnonymityConfig (Maybe GooglePrivacyDlpV2EntityId)
gpdvkacEntityId
= lens _gpdvkacEntityId
(\ s a -> s{_gpdvkacEntityId = a})
gpdvkacQuasiIds :: Lens' GooglePrivacyDlpV2KAnonymityConfig [GooglePrivacyDlpV2FieldId]
gpdvkacQuasiIds
= lens _gpdvkacQuasiIds
(\ s a -> s{_gpdvkacQuasiIds = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2KAnonymityConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2KAnonymityConfig"
(\ o ->
GooglePrivacyDlpV2KAnonymityConfig' <$>
(o .:? "entityId") <*> (o .:? "quasiIds" .!= mempty))
instance ToJSON GooglePrivacyDlpV2KAnonymityConfig
where
toJSON GooglePrivacyDlpV2KAnonymityConfig'{..}
= object
(catMaybes
[("entityId" .=) <$> _gpdvkacEntityId,
("quasiIds" .=) <$> _gpdvkacQuasiIds])
data GooglePrivacyDlpV2DeidentifyContentResponse =
GooglePrivacyDlpV2DeidentifyContentResponse'
{ _gOverview :: !(Maybe GooglePrivacyDlpV2TransformationOverview)
, _gItem :: !(Maybe GooglePrivacyDlpV2ContentItem)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeidentifyContentResponse
:: GooglePrivacyDlpV2DeidentifyContentResponse
googlePrivacyDlpV2DeidentifyContentResponse =
GooglePrivacyDlpV2DeidentifyContentResponse'
{_gOverview = Nothing, _gItem = Nothing}
gOverview :: Lens' GooglePrivacyDlpV2DeidentifyContentResponse (Maybe GooglePrivacyDlpV2TransformationOverview)
gOverview
= lens _gOverview (\ s a -> s{_gOverview = a})
gItem :: Lens' GooglePrivacyDlpV2DeidentifyContentResponse (Maybe GooglePrivacyDlpV2ContentItem)
gItem = lens _gItem (\ s a -> s{_gItem = a})
instance FromJSON
GooglePrivacyDlpV2DeidentifyContentResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2DeidentifyContentResponse"
(\ o ->
GooglePrivacyDlpV2DeidentifyContentResponse' <$>
(o .:? "overview") <*> (o .:? "item"))
instance ToJSON
GooglePrivacyDlpV2DeidentifyContentResponse
where
toJSON
GooglePrivacyDlpV2DeidentifyContentResponse'{..}
= object
(catMaybes
[("overview" .=) <$> _gOverview,
("item" .=) <$> _gItem])
data GooglePrivacyDlpV2JobTrigger =
GooglePrivacyDlpV2JobTrigger'
{ _gpdvjtStatus :: !(Maybe GooglePrivacyDlpV2JobTriggerStatus)
, _gpdvjtTriggers :: !(Maybe [GooglePrivacyDlpV2Trigger])
, _gpdvjtLastRunTime :: !(Maybe DateTime')
, _gpdvjtInspectJob :: !(Maybe GooglePrivacyDlpV2InspectJobConfig)
, _gpdvjtUpdateTime :: !(Maybe DateTime')
, _gpdvjtName :: !(Maybe Text)
, _gpdvjtDisplayName :: !(Maybe Text)
, _gpdvjtErrors :: !(Maybe [GooglePrivacyDlpV2Error])
, _gpdvjtDescription :: !(Maybe Text)
, _gpdvjtCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2JobTrigger
:: GooglePrivacyDlpV2JobTrigger
googlePrivacyDlpV2JobTrigger =
GooglePrivacyDlpV2JobTrigger'
{ _gpdvjtStatus = Nothing
, _gpdvjtTriggers = Nothing
, _gpdvjtLastRunTime = Nothing
, _gpdvjtInspectJob = Nothing
, _gpdvjtUpdateTime = Nothing
, _gpdvjtName = Nothing
, _gpdvjtDisplayName = Nothing
, _gpdvjtErrors = Nothing
, _gpdvjtDescription = Nothing
, _gpdvjtCreateTime = Nothing
}
gpdvjtStatus :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe GooglePrivacyDlpV2JobTriggerStatus)
gpdvjtStatus
= lens _gpdvjtStatus (\ s a -> s{_gpdvjtStatus = a})
gpdvjtTriggers :: Lens' GooglePrivacyDlpV2JobTrigger [GooglePrivacyDlpV2Trigger]
gpdvjtTriggers
= lens _gpdvjtTriggers
(\ s a -> s{_gpdvjtTriggers = a})
. _Default
. _Coerce
gpdvjtLastRunTime :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe UTCTime)
gpdvjtLastRunTime
= lens _gpdvjtLastRunTime
(\ s a -> s{_gpdvjtLastRunTime = a})
. mapping _DateTime
gpdvjtInspectJob :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe GooglePrivacyDlpV2InspectJobConfig)
gpdvjtInspectJob
= lens _gpdvjtInspectJob
(\ s a -> s{_gpdvjtInspectJob = a})
gpdvjtUpdateTime :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe UTCTime)
gpdvjtUpdateTime
= lens _gpdvjtUpdateTime
(\ s a -> s{_gpdvjtUpdateTime = a})
. mapping _DateTime
gpdvjtName :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe Text)
gpdvjtName
= lens _gpdvjtName (\ s a -> s{_gpdvjtName = a})
gpdvjtDisplayName :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe Text)
gpdvjtDisplayName
= lens _gpdvjtDisplayName
(\ s a -> s{_gpdvjtDisplayName = a})
gpdvjtErrors :: Lens' GooglePrivacyDlpV2JobTrigger [GooglePrivacyDlpV2Error]
gpdvjtErrors
= lens _gpdvjtErrors (\ s a -> s{_gpdvjtErrors = a})
. _Default
. _Coerce
gpdvjtDescription :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe Text)
gpdvjtDescription
= lens _gpdvjtDescription
(\ s a -> s{_gpdvjtDescription = a})
gpdvjtCreateTime :: Lens' GooglePrivacyDlpV2JobTrigger (Maybe UTCTime)
gpdvjtCreateTime
= lens _gpdvjtCreateTime
(\ s a -> s{_gpdvjtCreateTime = a})
. mapping _DateTime
instance FromJSON GooglePrivacyDlpV2JobTrigger where
parseJSON
= withObject "GooglePrivacyDlpV2JobTrigger"
(\ o ->
GooglePrivacyDlpV2JobTrigger' <$>
(o .:? "status") <*> (o .:? "triggers" .!= mempty)
<*> (o .:? "lastRunTime")
<*> (o .:? "inspectJob")
<*> (o .:? "updateTime")
<*> (o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "errors" .!= mempty)
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON GooglePrivacyDlpV2JobTrigger where
toJSON GooglePrivacyDlpV2JobTrigger'{..}
= object
(catMaybes
[("status" .=) <$> _gpdvjtStatus,
("triggers" .=) <$> _gpdvjtTriggers,
("lastRunTime" .=) <$> _gpdvjtLastRunTime,
("inspectJob" .=) <$> _gpdvjtInspectJob,
("updateTime" .=) <$> _gpdvjtUpdateTime,
("name" .=) <$> _gpdvjtName,
("displayName" .=) <$> _gpdvjtDisplayName,
("errors" .=) <$> _gpdvjtErrors,
("description" .=) <$> _gpdvjtDescription,
("createTime" .=) <$> _gpdvjtCreateTime])
data GooglePrivacyDlpV2ListStoredInfoTypesResponse =
GooglePrivacyDlpV2ListStoredInfoTypesResponse'
{ _gpdvlsitrNextPageToken :: !(Maybe Text)
, _gpdvlsitrStoredInfoTypes :: !(Maybe [GooglePrivacyDlpV2StoredInfoType])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ListStoredInfoTypesResponse
:: GooglePrivacyDlpV2ListStoredInfoTypesResponse
googlePrivacyDlpV2ListStoredInfoTypesResponse =
GooglePrivacyDlpV2ListStoredInfoTypesResponse'
{_gpdvlsitrNextPageToken = Nothing, _gpdvlsitrStoredInfoTypes = Nothing}
gpdvlsitrNextPageToken :: Lens' GooglePrivacyDlpV2ListStoredInfoTypesResponse (Maybe Text)
gpdvlsitrNextPageToken
= lens _gpdvlsitrNextPageToken
(\ s a -> s{_gpdvlsitrNextPageToken = a})
gpdvlsitrStoredInfoTypes :: Lens' GooglePrivacyDlpV2ListStoredInfoTypesResponse [GooglePrivacyDlpV2StoredInfoType]
gpdvlsitrStoredInfoTypes
= lens _gpdvlsitrStoredInfoTypes
(\ s a -> s{_gpdvlsitrStoredInfoTypes = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2ListStoredInfoTypesResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2ListStoredInfoTypesResponse"
(\ o ->
GooglePrivacyDlpV2ListStoredInfoTypesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "storedInfoTypes" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2ListStoredInfoTypesResponse
where
toJSON
GooglePrivacyDlpV2ListStoredInfoTypesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gpdvlsitrNextPageToken,
("storedInfoTypes" .=) <$>
_gpdvlsitrStoredInfoTypes])
data GooglePrivacyDlpV2LDiversityEquivalenceClass =
GooglePrivacyDlpV2LDiversityEquivalenceClass'
{ _gpdvldecTopSensitiveValues :: !(Maybe [GooglePrivacyDlpV2ValueFrequency])
, _gpdvldecEquivalenceClassSize :: !(Maybe (Textual Int64))
, _gpdvldecNumDistinctSensitiveValues :: !(Maybe (Textual Int64))
, _gpdvldecQuasiIdsValues :: !(Maybe [GooglePrivacyDlpV2Value])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2LDiversityEquivalenceClass
:: GooglePrivacyDlpV2LDiversityEquivalenceClass
googlePrivacyDlpV2LDiversityEquivalenceClass =
GooglePrivacyDlpV2LDiversityEquivalenceClass'
{ _gpdvldecTopSensitiveValues = Nothing
, _gpdvldecEquivalenceClassSize = Nothing
, _gpdvldecNumDistinctSensitiveValues = Nothing
, _gpdvldecQuasiIdsValues = Nothing
}
gpdvldecTopSensitiveValues :: Lens' GooglePrivacyDlpV2LDiversityEquivalenceClass [GooglePrivacyDlpV2ValueFrequency]
gpdvldecTopSensitiveValues
= lens _gpdvldecTopSensitiveValues
(\ s a -> s{_gpdvldecTopSensitiveValues = a})
. _Default
. _Coerce
gpdvldecEquivalenceClassSize :: Lens' GooglePrivacyDlpV2LDiversityEquivalenceClass (Maybe Int64)
gpdvldecEquivalenceClassSize
= lens _gpdvldecEquivalenceClassSize
(\ s a -> s{_gpdvldecEquivalenceClassSize = a})
. mapping _Coerce
gpdvldecNumDistinctSensitiveValues :: Lens' GooglePrivacyDlpV2LDiversityEquivalenceClass (Maybe Int64)
gpdvldecNumDistinctSensitiveValues
= lens _gpdvldecNumDistinctSensitiveValues
(\ s a -> s{_gpdvldecNumDistinctSensitiveValues = a})
. mapping _Coerce
gpdvldecQuasiIdsValues :: Lens' GooglePrivacyDlpV2LDiversityEquivalenceClass [GooglePrivacyDlpV2Value]
gpdvldecQuasiIdsValues
= lens _gpdvldecQuasiIdsValues
(\ s a -> s{_gpdvldecQuasiIdsValues = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2LDiversityEquivalenceClass
where
parseJSON
= withObject
"GooglePrivacyDlpV2LDiversityEquivalenceClass"
(\ o ->
GooglePrivacyDlpV2LDiversityEquivalenceClass' <$>
(o .:? "topSensitiveValues" .!= mempty) <*>
(o .:? "equivalenceClassSize")
<*> (o .:? "numDistinctSensitiveValues")
<*> (o .:? "quasiIdsValues" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2LDiversityEquivalenceClass
where
toJSON
GooglePrivacyDlpV2LDiversityEquivalenceClass'{..}
= object
(catMaybes
[("topSensitiveValues" .=) <$>
_gpdvldecTopSensitiveValues,
("equivalenceClassSize" .=) <$>
_gpdvldecEquivalenceClassSize,
("numDistinctSensitiveValues" .=) <$>
_gpdvldecNumDistinctSensitiveValues,
("quasiIdsValues" .=) <$> _gpdvldecQuasiIdsValues])
data GooglePrivacyDlpV2ActivateJobTriggerRequest =
GooglePrivacyDlpV2ActivateJobTriggerRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ActivateJobTriggerRequest
:: GooglePrivacyDlpV2ActivateJobTriggerRequest
googlePrivacyDlpV2ActivateJobTriggerRequest =
GooglePrivacyDlpV2ActivateJobTriggerRequest'
instance FromJSON
GooglePrivacyDlpV2ActivateJobTriggerRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2ActivateJobTriggerRequest"
(\ o ->
pure GooglePrivacyDlpV2ActivateJobTriggerRequest')
instance ToJSON
GooglePrivacyDlpV2ActivateJobTriggerRequest
where
toJSON = const emptyObject
data GooglePrivacyDlpV2DeidentifyConfig =
GooglePrivacyDlpV2DeidentifyConfig'
{ _gpdvdcInfoTypeTransformations :: !(Maybe GooglePrivacyDlpV2InfoTypeTransformations)
, _gpdvdcRecordTransformations :: !(Maybe GooglePrivacyDlpV2RecordTransformations)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeidentifyConfig
:: GooglePrivacyDlpV2DeidentifyConfig
googlePrivacyDlpV2DeidentifyConfig =
GooglePrivacyDlpV2DeidentifyConfig'
{ _gpdvdcInfoTypeTransformations = Nothing
, _gpdvdcRecordTransformations = Nothing
}
gpdvdcInfoTypeTransformations :: Lens' GooglePrivacyDlpV2DeidentifyConfig (Maybe GooglePrivacyDlpV2InfoTypeTransformations)
gpdvdcInfoTypeTransformations
= lens _gpdvdcInfoTypeTransformations
(\ s a -> s{_gpdvdcInfoTypeTransformations = a})
gpdvdcRecordTransformations :: Lens' GooglePrivacyDlpV2DeidentifyConfig (Maybe GooglePrivacyDlpV2RecordTransformations)
gpdvdcRecordTransformations
= lens _gpdvdcRecordTransformations
(\ s a -> s{_gpdvdcRecordTransformations = a})
instance FromJSON GooglePrivacyDlpV2DeidentifyConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2DeidentifyConfig"
(\ o ->
GooglePrivacyDlpV2DeidentifyConfig' <$>
(o .:? "infoTypeTransformations") <*>
(o .:? "recordTransformations"))
instance ToJSON GooglePrivacyDlpV2DeidentifyConfig
where
toJSON GooglePrivacyDlpV2DeidentifyConfig'{..}
= object
(catMaybes
[("infoTypeTransformations" .=) <$>
_gpdvdcInfoTypeTransformations,
("recordTransformations" .=) <$>
_gpdvdcRecordTransformations])
data GooglePrivacyDlpV2CharacterMaskConfig =
GooglePrivacyDlpV2CharacterMaskConfig'
{ _gpdvcmcNumberToMask :: !(Maybe (Textual Int32))
, _gpdvcmcMaskingCharacter :: !(Maybe Text)
, _gpdvcmcReverseOrder :: !(Maybe Bool)
, _gpdvcmcCharactersToIgnore :: !(Maybe [GooglePrivacyDlpV2CharsToIgnore])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CharacterMaskConfig
:: GooglePrivacyDlpV2CharacterMaskConfig
googlePrivacyDlpV2CharacterMaskConfig =
GooglePrivacyDlpV2CharacterMaskConfig'
{ _gpdvcmcNumberToMask = Nothing
, _gpdvcmcMaskingCharacter = Nothing
, _gpdvcmcReverseOrder = Nothing
, _gpdvcmcCharactersToIgnore = Nothing
}
gpdvcmcNumberToMask :: Lens' GooglePrivacyDlpV2CharacterMaskConfig (Maybe Int32)
gpdvcmcNumberToMask
= lens _gpdvcmcNumberToMask
(\ s a -> s{_gpdvcmcNumberToMask = a})
. mapping _Coerce
gpdvcmcMaskingCharacter :: Lens' GooglePrivacyDlpV2CharacterMaskConfig (Maybe Text)
gpdvcmcMaskingCharacter
= lens _gpdvcmcMaskingCharacter
(\ s a -> s{_gpdvcmcMaskingCharacter = a})
gpdvcmcReverseOrder :: Lens' GooglePrivacyDlpV2CharacterMaskConfig (Maybe Bool)
gpdvcmcReverseOrder
= lens _gpdvcmcReverseOrder
(\ s a -> s{_gpdvcmcReverseOrder = a})
gpdvcmcCharactersToIgnore :: Lens' GooglePrivacyDlpV2CharacterMaskConfig [GooglePrivacyDlpV2CharsToIgnore]
gpdvcmcCharactersToIgnore
= lens _gpdvcmcCharactersToIgnore
(\ s a -> s{_gpdvcmcCharactersToIgnore = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2CharacterMaskConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2CharacterMaskConfig"
(\ o ->
GooglePrivacyDlpV2CharacterMaskConfig' <$>
(o .:? "numberToMask") <*> (o .:? "maskingCharacter")
<*> (o .:? "reverseOrder")
<*> (o .:? "charactersToIgnore" .!= mempty))
instance ToJSON GooglePrivacyDlpV2CharacterMaskConfig
where
toJSON GooglePrivacyDlpV2CharacterMaskConfig'{..}
= object
(catMaybes
[("numberToMask" .=) <$> _gpdvcmcNumberToMask,
("maskingCharacter" .=) <$> _gpdvcmcMaskingCharacter,
("reverseOrder" .=) <$> _gpdvcmcReverseOrder,
("charactersToIgnore" .=) <$>
_gpdvcmcCharactersToIgnore])
data GooglePrivacyDlpV2DatastoreOptions =
GooglePrivacyDlpV2DatastoreOptions'
{ _gpdvdoPartitionId :: !(Maybe GooglePrivacyDlpV2PartitionId)
, _gpdvdoKind :: !(Maybe GooglePrivacyDlpV2KindExpression)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DatastoreOptions
:: GooglePrivacyDlpV2DatastoreOptions
googlePrivacyDlpV2DatastoreOptions =
GooglePrivacyDlpV2DatastoreOptions'
{_gpdvdoPartitionId = Nothing, _gpdvdoKind = Nothing}
gpdvdoPartitionId :: Lens' GooglePrivacyDlpV2DatastoreOptions (Maybe GooglePrivacyDlpV2PartitionId)
gpdvdoPartitionId
= lens _gpdvdoPartitionId
(\ s a -> s{_gpdvdoPartitionId = a})
gpdvdoKind :: Lens' GooglePrivacyDlpV2DatastoreOptions (Maybe GooglePrivacyDlpV2KindExpression)
gpdvdoKind
= lens _gpdvdoKind (\ s a -> s{_gpdvdoKind = a})
instance FromJSON GooglePrivacyDlpV2DatastoreOptions
where
parseJSON
= withObject "GooglePrivacyDlpV2DatastoreOptions"
(\ o ->
GooglePrivacyDlpV2DatastoreOptions' <$>
(o .:? "partitionId") <*> (o .:? "kind"))
instance ToJSON GooglePrivacyDlpV2DatastoreOptions
where
toJSON GooglePrivacyDlpV2DatastoreOptions'{..}
= object
(catMaybes
[("partitionId" .=) <$> _gpdvdoPartitionId,
("kind" .=) <$> _gpdvdoKind])
data GooglePrivacyDlpV2ValueFrequency =
GooglePrivacyDlpV2ValueFrequency'
{ _gpdvvfValue :: !(Maybe GooglePrivacyDlpV2Value)
, _gpdvvfCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ValueFrequency
:: GooglePrivacyDlpV2ValueFrequency
googlePrivacyDlpV2ValueFrequency =
GooglePrivacyDlpV2ValueFrequency'
{_gpdvvfValue = Nothing, _gpdvvfCount = Nothing}
gpdvvfValue :: Lens' GooglePrivacyDlpV2ValueFrequency (Maybe GooglePrivacyDlpV2Value)
gpdvvfValue
= lens _gpdvvfValue (\ s a -> s{_gpdvvfValue = a})
gpdvvfCount :: Lens' GooglePrivacyDlpV2ValueFrequency (Maybe Int64)
gpdvvfCount
= lens _gpdvvfCount (\ s a -> s{_gpdvvfCount = a}) .
mapping _Coerce
instance FromJSON GooglePrivacyDlpV2ValueFrequency
where
parseJSON
= withObject "GooglePrivacyDlpV2ValueFrequency"
(\ o ->
GooglePrivacyDlpV2ValueFrequency' <$>
(o .:? "value") <*> (o .:? "count"))
instance ToJSON GooglePrivacyDlpV2ValueFrequency
where
toJSON GooglePrivacyDlpV2ValueFrequency'{..}
= object
(catMaybes
[("value" .=) <$> _gpdvvfValue,
("count" .=) <$> _gpdvvfCount])
data GooglePrivacyDlpV2BoundingBox =
GooglePrivacyDlpV2BoundingBox'
{ _gpdvbbHeight :: !(Maybe (Textual Int32))
, _gpdvbbLeft :: !(Maybe (Textual Int32))
, _gpdvbbWidth :: !(Maybe (Textual Int32))
, _gpdvbbTop :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2BoundingBox
:: GooglePrivacyDlpV2BoundingBox
googlePrivacyDlpV2BoundingBox =
GooglePrivacyDlpV2BoundingBox'
{ _gpdvbbHeight = Nothing
, _gpdvbbLeft = Nothing
, _gpdvbbWidth = Nothing
, _gpdvbbTop = Nothing
}
gpdvbbHeight :: Lens' GooglePrivacyDlpV2BoundingBox (Maybe Int32)
gpdvbbHeight
= lens _gpdvbbHeight (\ s a -> s{_gpdvbbHeight = a})
. mapping _Coerce
gpdvbbLeft :: Lens' GooglePrivacyDlpV2BoundingBox (Maybe Int32)
gpdvbbLeft
= lens _gpdvbbLeft (\ s a -> s{_gpdvbbLeft = a}) .
mapping _Coerce
gpdvbbWidth :: Lens' GooglePrivacyDlpV2BoundingBox (Maybe Int32)
gpdvbbWidth
= lens _gpdvbbWidth (\ s a -> s{_gpdvbbWidth = a}) .
mapping _Coerce
gpdvbbTop :: Lens' GooglePrivacyDlpV2BoundingBox (Maybe Int32)
gpdvbbTop
= lens _gpdvbbTop (\ s a -> s{_gpdvbbTop = a}) .
mapping _Coerce
instance FromJSON GooglePrivacyDlpV2BoundingBox where
parseJSON
= withObject "GooglePrivacyDlpV2BoundingBox"
(\ o ->
GooglePrivacyDlpV2BoundingBox' <$>
(o .:? "height") <*> (o .:? "left") <*>
(o .:? "width")
<*> (o .:? "top"))
instance ToJSON GooglePrivacyDlpV2BoundingBox where
toJSON GooglePrivacyDlpV2BoundingBox'{..}
= object
(catMaybes
[("height" .=) <$> _gpdvbbHeight,
("left" .=) <$> _gpdvbbLeft,
("width" .=) <$> _gpdvbbWidth,
("top" .=) <$> _gpdvbbTop])
data GooglePrivacyDlpV2PartitionId =
GooglePrivacyDlpV2PartitionId'
{ _gpdvpiNamespaceId :: !(Maybe Text)
, _gpdvpiProjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2PartitionId
:: GooglePrivacyDlpV2PartitionId
googlePrivacyDlpV2PartitionId =
GooglePrivacyDlpV2PartitionId'
{_gpdvpiNamespaceId = Nothing, _gpdvpiProjectId = Nothing}
gpdvpiNamespaceId :: Lens' GooglePrivacyDlpV2PartitionId (Maybe Text)
gpdvpiNamespaceId
= lens _gpdvpiNamespaceId
(\ s a -> s{_gpdvpiNamespaceId = a})
gpdvpiProjectId :: Lens' GooglePrivacyDlpV2PartitionId (Maybe Text)
gpdvpiProjectId
= lens _gpdvpiProjectId
(\ s a -> s{_gpdvpiProjectId = a})
instance FromJSON GooglePrivacyDlpV2PartitionId where
parseJSON
= withObject "GooglePrivacyDlpV2PartitionId"
(\ o ->
GooglePrivacyDlpV2PartitionId' <$>
(o .:? "namespaceId") <*> (o .:? "projectId"))
instance ToJSON GooglePrivacyDlpV2PartitionId where
toJSON GooglePrivacyDlpV2PartitionId'{..}
= object
(catMaybes
[("namespaceId" .=) <$> _gpdvpiNamespaceId,
("projectId" .=) <$> _gpdvpiProjectId])
newtype GooglePrivacyDlpV2SaveFindings =
GooglePrivacyDlpV2SaveFindings'
{ _gpdvsfOutputConfig :: Maybe GooglePrivacyDlpV2OutputStorageConfig
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2SaveFindings
:: GooglePrivacyDlpV2SaveFindings
googlePrivacyDlpV2SaveFindings =
GooglePrivacyDlpV2SaveFindings' {_gpdvsfOutputConfig = Nothing}
gpdvsfOutputConfig :: Lens' GooglePrivacyDlpV2SaveFindings (Maybe GooglePrivacyDlpV2OutputStorageConfig)
gpdvsfOutputConfig
= lens _gpdvsfOutputConfig
(\ s a -> s{_gpdvsfOutputConfig = a})
instance FromJSON GooglePrivacyDlpV2SaveFindings
where
parseJSON
= withObject "GooglePrivacyDlpV2SaveFindings"
(\ o ->
GooglePrivacyDlpV2SaveFindings' <$>
(o .:? "outputConfig"))
instance ToJSON GooglePrivacyDlpV2SaveFindings where
toJSON GooglePrivacyDlpV2SaveFindings'{..}
= object
(catMaybes
[("outputConfig" .=) <$> _gpdvsfOutputConfig])
data GooglePrivacyDlpV2StoredInfoTypeVersion =
GooglePrivacyDlpV2StoredInfoTypeVersion'
{ _gpdvsitvState :: !(Maybe GooglePrivacyDlpV2StoredInfoTypeVersionState)
, _gpdvsitvConfig :: !(Maybe GooglePrivacyDlpV2StoredInfoTypeConfig)
, _gpdvsitvErrors :: !(Maybe [GooglePrivacyDlpV2Error])
, _gpdvsitvCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2StoredInfoTypeVersion
:: GooglePrivacyDlpV2StoredInfoTypeVersion
googlePrivacyDlpV2StoredInfoTypeVersion =
GooglePrivacyDlpV2StoredInfoTypeVersion'
{ _gpdvsitvState = Nothing
, _gpdvsitvConfig = Nothing
, _gpdvsitvErrors = Nothing
, _gpdvsitvCreateTime = Nothing
}
gpdvsitvState :: Lens' GooglePrivacyDlpV2StoredInfoTypeVersion (Maybe GooglePrivacyDlpV2StoredInfoTypeVersionState)
gpdvsitvState
= lens _gpdvsitvState
(\ s a -> s{_gpdvsitvState = a})
gpdvsitvConfig :: Lens' GooglePrivacyDlpV2StoredInfoTypeVersion (Maybe GooglePrivacyDlpV2StoredInfoTypeConfig)
gpdvsitvConfig
= lens _gpdvsitvConfig
(\ s a -> s{_gpdvsitvConfig = a})
gpdvsitvErrors :: Lens' GooglePrivacyDlpV2StoredInfoTypeVersion [GooglePrivacyDlpV2Error]
gpdvsitvErrors
= lens _gpdvsitvErrors
(\ s a -> s{_gpdvsitvErrors = a})
. _Default
. _Coerce
gpdvsitvCreateTime :: Lens' GooglePrivacyDlpV2StoredInfoTypeVersion (Maybe UTCTime)
gpdvsitvCreateTime
= lens _gpdvsitvCreateTime
(\ s a -> s{_gpdvsitvCreateTime = a})
. mapping _DateTime
instance FromJSON
GooglePrivacyDlpV2StoredInfoTypeVersion
where
parseJSON
= withObject
"GooglePrivacyDlpV2StoredInfoTypeVersion"
(\ o ->
GooglePrivacyDlpV2StoredInfoTypeVersion' <$>
(o .:? "state") <*> (o .:? "config") <*>
(o .:? "errors" .!= mempty)
<*> (o .:? "createTime"))
instance ToJSON
GooglePrivacyDlpV2StoredInfoTypeVersion
where
toJSON GooglePrivacyDlpV2StoredInfoTypeVersion'{..}
= object
(catMaybes
[("state" .=) <$> _gpdvsitvState,
("config" .=) <$> _gpdvsitvConfig,
("errors" .=) <$> _gpdvsitvErrors,
("createTime" .=) <$> _gpdvsitvCreateTime])
newtype GooglePrivacyDlpV2ListInfoTypesResponse =
GooglePrivacyDlpV2ListInfoTypesResponse'
{ _gpdvlitrInfoTypes :: Maybe [GooglePrivacyDlpV2InfoTypeDescription]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ListInfoTypesResponse
:: GooglePrivacyDlpV2ListInfoTypesResponse
googlePrivacyDlpV2ListInfoTypesResponse =
GooglePrivacyDlpV2ListInfoTypesResponse' {_gpdvlitrInfoTypes = Nothing}
gpdvlitrInfoTypes :: Lens' GooglePrivacyDlpV2ListInfoTypesResponse [GooglePrivacyDlpV2InfoTypeDescription]
gpdvlitrInfoTypes
= lens _gpdvlitrInfoTypes
(\ s a -> s{_gpdvlitrInfoTypes = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2ListInfoTypesResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2ListInfoTypesResponse"
(\ o ->
GooglePrivacyDlpV2ListInfoTypesResponse' <$>
(o .:? "infoTypes" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2ListInfoTypesResponse
where
toJSON GooglePrivacyDlpV2ListInfoTypesResponse'{..}
= object
(catMaybes [("infoTypes" .=) <$> _gpdvlitrInfoTypes])
data GooglePrivacyDlpV2ContentLocation =
GooglePrivacyDlpV2ContentLocation'
{ _gpdvclImageLocation :: !(Maybe GooglePrivacyDlpV2ImageLocation)
, _gpdvclContainerName :: !(Maybe Text)
, _gpdvclContainerTimestamp :: !(Maybe DateTime')
, _gpdvclDocumentLocation :: !(Maybe GooglePrivacyDlpV2DocumentLocation)
, _gpdvclContainerVersion :: !(Maybe Text)
, _gpdvclRecordLocation :: !(Maybe GooglePrivacyDlpV2RecordLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ContentLocation
:: GooglePrivacyDlpV2ContentLocation
googlePrivacyDlpV2ContentLocation =
GooglePrivacyDlpV2ContentLocation'
{ _gpdvclImageLocation = Nothing
, _gpdvclContainerName = Nothing
, _gpdvclContainerTimestamp = Nothing
, _gpdvclDocumentLocation = Nothing
, _gpdvclContainerVersion = Nothing
, _gpdvclRecordLocation = Nothing
}
gpdvclImageLocation :: Lens' GooglePrivacyDlpV2ContentLocation (Maybe GooglePrivacyDlpV2ImageLocation)
gpdvclImageLocation
= lens _gpdvclImageLocation
(\ s a -> s{_gpdvclImageLocation = a})
gpdvclContainerName :: Lens' GooglePrivacyDlpV2ContentLocation (Maybe Text)
gpdvclContainerName
= lens _gpdvclContainerName
(\ s a -> s{_gpdvclContainerName = a})
gpdvclContainerTimestamp :: Lens' GooglePrivacyDlpV2ContentLocation (Maybe UTCTime)
gpdvclContainerTimestamp
= lens _gpdvclContainerTimestamp
(\ s a -> s{_gpdvclContainerTimestamp = a})
. mapping _DateTime
gpdvclDocumentLocation :: Lens' GooglePrivacyDlpV2ContentLocation (Maybe GooglePrivacyDlpV2DocumentLocation)
gpdvclDocumentLocation
= lens _gpdvclDocumentLocation
(\ s a -> s{_gpdvclDocumentLocation = a})
gpdvclContainerVersion :: Lens' GooglePrivacyDlpV2ContentLocation (Maybe Text)
gpdvclContainerVersion
= lens _gpdvclContainerVersion
(\ s a -> s{_gpdvclContainerVersion = a})
gpdvclRecordLocation :: Lens' GooglePrivacyDlpV2ContentLocation (Maybe GooglePrivacyDlpV2RecordLocation)
gpdvclRecordLocation
= lens _gpdvclRecordLocation
(\ s a -> s{_gpdvclRecordLocation = a})
instance FromJSON GooglePrivacyDlpV2ContentLocation
where
parseJSON
= withObject "GooglePrivacyDlpV2ContentLocation"
(\ o ->
GooglePrivacyDlpV2ContentLocation' <$>
(o .:? "imageLocation") <*> (o .:? "containerName")
<*> (o .:? "containerTimestamp")
<*> (o .:? "documentLocation")
<*> (o .:? "containerVersion")
<*> (o .:? "recordLocation"))
instance ToJSON GooglePrivacyDlpV2ContentLocation
where
toJSON GooglePrivacyDlpV2ContentLocation'{..}
= object
(catMaybes
[("imageLocation" .=) <$> _gpdvclImageLocation,
("containerName" .=) <$> _gpdvclContainerName,
("containerTimestamp" .=) <$>
_gpdvclContainerTimestamp,
("documentLocation" .=) <$> _gpdvclDocumentLocation,
("containerVersion" .=) <$> _gpdvclContainerVersion,
("recordLocation" .=) <$> _gpdvclRecordLocation])
data GooglePrivacyDlpV2AuxiliaryTable =
GooglePrivacyDlpV2AuxiliaryTable'
{ _gpdvatRelativeFrequency :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvatTable :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
, _gpdvatQuasiIds :: !(Maybe [GooglePrivacyDlpV2QuasiIdField])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2AuxiliaryTable
:: GooglePrivacyDlpV2AuxiliaryTable
googlePrivacyDlpV2AuxiliaryTable =
GooglePrivacyDlpV2AuxiliaryTable'
{ _gpdvatRelativeFrequency = Nothing
, _gpdvatTable = Nothing
, _gpdvatQuasiIds = Nothing
}
gpdvatRelativeFrequency :: Lens' GooglePrivacyDlpV2AuxiliaryTable (Maybe GooglePrivacyDlpV2FieldId)
gpdvatRelativeFrequency
= lens _gpdvatRelativeFrequency
(\ s a -> s{_gpdvatRelativeFrequency = a})
gpdvatTable :: Lens' GooglePrivacyDlpV2AuxiliaryTable (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvatTable
= lens _gpdvatTable (\ s a -> s{_gpdvatTable = a})
gpdvatQuasiIds :: Lens' GooglePrivacyDlpV2AuxiliaryTable [GooglePrivacyDlpV2QuasiIdField]
gpdvatQuasiIds
= lens _gpdvatQuasiIds
(\ s a -> s{_gpdvatQuasiIds = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2AuxiliaryTable
where
parseJSON
= withObject "GooglePrivacyDlpV2AuxiliaryTable"
(\ o ->
GooglePrivacyDlpV2AuxiliaryTable' <$>
(o .:? "relativeFrequency") <*> (o .:? "table") <*>
(o .:? "quasiIds" .!= mempty))
instance ToJSON GooglePrivacyDlpV2AuxiliaryTable
where
toJSON GooglePrivacyDlpV2AuxiliaryTable'{..}
= object
(catMaybes
[("relativeFrequency" .=) <$>
_gpdvatRelativeFrequency,
("table" .=) <$> _gpdvatTable,
("quasiIds" .=) <$> _gpdvatQuasiIds])
data GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket =
GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket'
{ _gpdvdpehbBucketValues :: !(Maybe [GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues])
, _gpdvdpehbMaxProbability :: !(Maybe (Textual Double))
, _gpdvdpehbMinProbability :: !(Maybe (Textual Double))
, _gpdvdpehbBucketSize :: !(Maybe (Textual Int64))
, _gpdvdpehbBucketValueCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeltaPresenceEstimationHistogramBucket
:: GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket
googlePrivacyDlpV2DeltaPresenceEstimationHistogramBucket =
GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket'
{ _gpdvdpehbBucketValues = Nothing
, _gpdvdpehbMaxProbability = Nothing
, _gpdvdpehbMinProbability = Nothing
, _gpdvdpehbBucketSize = Nothing
, _gpdvdpehbBucketValueCount = Nothing
}
gpdvdpehbBucketValues :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket [GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues]
gpdvdpehbBucketValues
= lens _gpdvdpehbBucketValues
(\ s a -> s{_gpdvdpehbBucketValues = a})
. _Default
. _Coerce
gpdvdpehbMaxProbability :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket (Maybe Double)
gpdvdpehbMaxProbability
= lens _gpdvdpehbMaxProbability
(\ s a -> s{_gpdvdpehbMaxProbability = a})
. mapping _Coerce
gpdvdpehbMinProbability :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket (Maybe Double)
gpdvdpehbMinProbability
= lens _gpdvdpehbMinProbability
(\ s a -> s{_gpdvdpehbMinProbability = a})
. mapping _Coerce
gpdvdpehbBucketSize :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket (Maybe Int64)
gpdvdpehbBucketSize
= lens _gpdvdpehbBucketSize
(\ s a -> s{_gpdvdpehbBucketSize = a})
. mapping _Coerce
gpdvdpehbBucketValueCount :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket (Maybe Int64)
gpdvdpehbBucketValueCount
= lens _gpdvdpehbBucketValueCount
(\ s a -> s{_gpdvdpehbBucketValueCount = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket
where
parseJSON
= withObject
"GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket"
(\ o ->
GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket'
<$>
(o .:? "bucketValues" .!= mempty) <*>
(o .:? "maxProbability")
<*> (o .:? "minProbability")
<*> (o .:? "bucketSize")
<*> (o .:? "bucketValueCount"))
instance ToJSON
GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket
where
toJSON
GooglePrivacyDlpV2DeltaPresenceEstimationHistogramBucket'{..}
= object
(catMaybes
[("bucketValues" .=) <$> _gpdvdpehbBucketValues,
("maxProbability" .=) <$> _gpdvdpehbMaxProbability,
("minProbability" .=) <$> _gpdvdpehbMinProbability,
("bucketSize" .=) <$> _gpdvdpehbBucketSize,
("bucketValueCount" .=) <$>
_gpdvdpehbBucketValueCount])
data GooglePrivacyDlpV2FileSet =
GooglePrivacyDlpV2FileSet'
{ _gpdvfsURL :: !(Maybe Text)
, _gpdvfsRegexFileSet :: !(Maybe GooglePrivacyDlpV2CloudStorageRegexFileSet)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2FileSet
:: GooglePrivacyDlpV2FileSet
googlePrivacyDlpV2FileSet =
GooglePrivacyDlpV2FileSet'
{_gpdvfsURL = Nothing, _gpdvfsRegexFileSet = Nothing}
gpdvfsURL :: Lens' GooglePrivacyDlpV2FileSet (Maybe Text)
gpdvfsURL
= lens _gpdvfsURL (\ s a -> s{_gpdvfsURL = a})
gpdvfsRegexFileSet :: Lens' GooglePrivacyDlpV2FileSet (Maybe GooglePrivacyDlpV2CloudStorageRegexFileSet)
gpdvfsRegexFileSet
= lens _gpdvfsRegexFileSet
(\ s a -> s{_gpdvfsRegexFileSet = a})
instance FromJSON GooglePrivacyDlpV2FileSet where
parseJSON
= withObject "GooglePrivacyDlpV2FileSet"
(\ o ->
GooglePrivacyDlpV2FileSet' <$>
(o .:? "url") <*> (o .:? "regexFileSet"))
instance ToJSON GooglePrivacyDlpV2FileSet where
toJSON GooglePrivacyDlpV2FileSet'{..}
= object
(catMaybes
[("url" .=) <$> _gpdvfsURL,
("regexFileSet" .=) <$> _gpdvfsRegexFileSet])
data GooglePrivacyDlpV2ListInspectTemplatesResponse =
GooglePrivacyDlpV2ListInspectTemplatesResponse'
{ _gpdvlitrNextPageToken :: !(Maybe Text)
, _gpdvlitrInspectTemplates :: !(Maybe [GooglePrivacyDlpV2InspectTemplate])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ListInspectTemplatesResponse
:: GooglePrivacyDlpV2ListInspectTemplatesResponse
googlePrivacyDlpV2ListInspectTemplatesResponse =
GooglePrivacyDlpV2ListInspectTemplatesResponse'
{_gpdvlitrNextPageToken = Nothing, _gpdvlitrInspectTemplates = Nothing}
gpdvlitrNextPageToken :: Lens' GooglePrivacyDlpV2ListInspectTemplatesResponse (Maybe Text)
gpdvlitrNextPageToken
= lens _gpdvlitrNextPageToken
(\ s a -> s{_gpdvlitrNextPageToken = a})
gpdvlitrInspectTemplates :: Lens' GooglePrivacyDlpV2ListInspectTemplatesResponse [GooglePrivacyDlpV2InspectTemplate]
gpdvlitrInspectTemplates
= lens _gpdvlitrInspectTemplates
(\ s a -> s{_gpdvlitrInspectTemplates = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2ListInspectTemplatesResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2ListInspectTemplatesResponse"
(\ o ->
GooglePrivacyDlpV2ListInspectTemplatesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "inspectTemplates" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2ListInspectTemplatesResponse
where
toJSON
GooglePrivacyDlpV2ListInspectTemplatesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gpdvlitrNextPageToken,
("inspectTemplates" .=) <$>
_gpdvlitrInspectTemplates])
newtype GooglePrivacyDlpV2KAnonymityResult =
GooglePrivacyDlpV2KAnonymityResult'
{ _gpdvkarEquivalenceClassHistogramBuckets :: Maybe [GooglePrivacyDlpV2KAnonymityHistogramBucket]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KAnonymityResult
:: GooglePrivacyDlpV2KAnonymityResult
googlePrivacyDlpV2KAnonymityResult =
GooglePrivacyDlpV2KAnonymityResult'
{_gpdvkarEquivalenceClassHistogramBuckets = Nothing}
gpdvkarEquivalenceClassHistogramBuckets :: Lens' GooglePrivacyDlpV2KAnonymityResult [GooglePrivacyDlpV2KAnonymityHistogramBucket]
gpdvkarEquivalenceClassHistogramBuckets
= lens _gpdvkarEquivalenceClassHistogramBuckets
(\ s a ->
s{_gpdvkarEquivalenceClassHistogramBuckets = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2KAnonymityResult
where
parseJSON
= withObject "GooglePrivacyDlpV2KAnonymityResult"
(\ o ->
GooglePrivacyDlpV2KAnonymityResult' <$>
(o .:? "equivalenceClassHistogramBuckets" .!=
mempty))
instance ToJSON GooglePrivacyDlpV2KAnonymityResult
where
toJSON GooglePrivacyDlpV2KAnonymityResult'{..}
= object
(catMaybes
[("equivalenceClassHistogramBuckets" .=) <$>
_gpdvkarEquivalenceClassHistogramBuckets])
data GooglePrivacyDlpV2BigQueryField =
GooglePrivacyDlpV2BigQueryField'
{ _gpdvbqfField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvbqfTable :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2BigQueryField
:: GooglePrivacyDlpV2BigQueryField
googlePrivacyDlpV2BigQueryField =
GooglePrivacyDlpV2BigQueryField'
{_gpdvbqfField = Nothing, _gpdvbqfTable = Nothing}
gpdvbqfField :: Lens' GooglePrivacyDlpV2BigQueryField (Maybe GooglePrivacyDlpV2FieldId)
gpdvbqfField
= lens _gpdvbqfField (\ s a -> s{_gpdvbqfField = a})
gpdvbqfTable :: Lens' GooglePrivacyDlpV2BigQueryField (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvbqfTable
= lens _gpdvbqfTable (\ s a -> s{_gpdvbqfTable = a})
instance FromJSON GooglePrivacyDlpV2BigQueryField
where
parseJSON
= withObject "GooglePrivacyDlpV2BigQueryField"
(\ o ->
GooglePrivacyDlpV2BigQueryField' <$>
(o .:? "field") <*> (o .:? "table"))
instance ToJSON GooglePrivacyDlpV2BigQueryField where
toJSON GooglePrivacyDlpV2BigQueryField'{..}
= object
(catMaybes
[("field" .=) <$> _gpdvbqfField,
("table" .=) <$> _gpdvbqfTable])
data GooglePrivacyDlpV2OutputStorageConfig =
GooglePrivacyDlpV2OutputStorageConfig'
{ _gpdvoscOutputSchema :: !(Maybe GooglePrivacyDlpV2OutputStorageConfigOutputSchema)
, _gpdvoscTable :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2OutputStorageConfig
:: GooglePrivacyDlpV2OutputStorageConfig
googlePrivacyDlpV2OutputStorageConfig =
GooglePrivacyDlpV2OutputStorageConfig'
{_gpdvoscOutputSchema = Nothing, _gpdvoscTable = Nothing}
gpdvoscOutputSchema :: Lens' GooglePrivacyDlpV2OutputStorageConfig (Maybe GooglePrivacyDlpV2OutputStorageConfigOutputSchema)
gpdvoscOutputSchema
= lens _gpdvoscOutputSchema
(\ s a -> s{_gpdvoscOutputSchema = a})
gpdvoscTable :: Lens' GooglePrivacyDlpV2OutputStorageConfig (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvoscTable
= lens _gpdvoscTable (\ s a -> s{_gpdvoscTable = a})
instance FromJSON
GooglePrivacyDlpV2OutputStorageConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2OutputStorageConfig"
(\ o ->
GooglePrivacyDlpV2OutputStorageConfig' <$>
(o .:? "outputSchema") <*> (o .:? "table"))
instance ToJSON GooglePrivacyDlpV2OutputStorageConfig
where
toJSON GooglePrivacyDlpV2OutputStorageConfig'{..}
= object
(catMaybes
[("outputSchema" .=) <$> _gpdvoscOutputSchema,
("table" .=) <$> _gpdvoscTable])
newtype GooglePrivacyDlpV2CloudStorageFileSet =
GooglePrivacyDlpV2CloudStorageFileSet'
{ _gpdvcsfsURL :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CloudStorageFileSet
:: GooglePrivacyDlpV2CloudStorageFileSet
googlePrivacyDlpV2CloudStorageFileSet =
GooglePrivacyDlpV2CloudStorageFileSet' {_gpdvcsfsURL = Nothing}
gpdvcsfsURL :: Lens' GooglePrivacyDlpV2CloudStorageFileSet (Maybe Text)
gpdvcsfsURL
= lens _gpdvcsfsURL (\ s a -> s{_gpdvcsfsURL = a})
instance FromJSON
GooglePrivacyDlpV2CloudStorageFileSet
where
parseJSON
= withObject "GooglePrivacyDlpV2CloudStorageFileSet"
(\ o ->
GooglePrivacyDlpV2CloudStorageFileSet' <$>
(o .:? "url"))
instance ToJSON GooglePrivacyDlpV2CloudStorageFileSet
where
toJSON GooglePrivacyDlpV2CloudStorageFileSet'{..}
= object (catMaybes [("url" .=) <$> _gpdvcsfsURL])
newtype GooglePrivacyDlpV2InfoTypeTransformations =
GooglePrivacyDlpV2InfoTypeTransformations'
{ _gpdvittTransformations :: Maybe [GooglePrivacyDlpV2InfoTypeTransformation]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InfoTypeTransformations
:: GooglePrivacyDlpV2InfoTypeTransformations
googlePrivacyDlpV2InfoTypeTransformations =
GooglePrivacyDlpV2InfoTypeTransformations' {_gpdvittTransformations = Nothing}
gpdvittTransformations :: Lens' GooglePrivacyDlpV2InfoTypeTransformations [GooglePrivacyDlpV2InfoTypeTransformation]
gpdvittTransformations
= lens _gpdvittTransformations
(\ s a -> s{_gpdvittTransformations = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2InfoTypeTransformations
where
parseJSON
= withObject
"GooglePrivacyDlpV2InfoTypeTransformations"
(\ o ->
GooglePrivacyDlpV2InfoTypeTransformations' <$>
(o .:? "transformations" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2InfoTypeTransformations
where
toJSON GooglePrivacyDlpV2InfoTypeTransformations'{..}
= object
(catMaybes
[("transformations" .=) <$> _gpdvittTransformations])
data GooglePrivacyDlpV2KmsWrAppedCryptoKey =
GooglePrivacyDlpV2KmsWrAppedCryptoKey'
{ _gpdvkwackWrAppedKey :: !(Maybe Bytes)
, _gpdvkwackCryptoKeyName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KmsWrAppedCryptoKey
:: GooglePrivacyDlpV2KmsWrAppedCryptoKey
googlePrivacyDlpV2KmsWrAppedCryptoKey =
GooglePrivacyDlpV2KmsWrAppedCryptoKey'
{_gpdvkwackWrAppedKey = Nothing, _gpdvkwackCryptoKeyName = Nothing}
gpdvkwackWrAppedKey :: Lens' GooglePrivacyDlpV2KmsWrAppedCryptoKey (Maybe ByteString)
gpdvkwackWrAppedKey
= lens _gpdvkwackWrAppedKey
(\ s a -> s{_gpdvkwackWrAppedKey = a})
. mapping _Bytes
gpdvkwackCryptoKeyName :: Lens' GooglePrivacyDlpV2KmsWrAppedCryptoKey (Maybe Text)
gpdvkwackCryptoKeyName
= lens _gpdvkwackCryptoKeyName
(\ s a -> s{_gpdvkwackCryptoKeyName = a})
instance FromJSON
GooglePrivacyDlpV2KmsWrAppedCryptoKey
where
parseJSON
= withObject "GooglePrivacyDlpV2KmsWrAppedCryptoKey"
(\ o ->
GooglePrivacyDlpV2KmsWrAppedCryptoKey' <$>
(o .:? "wrappedKey") <*> (o .:? "cryptoKeyName"))
instance ToJSON GooglePrivacyDlpV2KmsWrAppedCryptoKey
where
toJSON GooglePrivacyDlpV2KmsWrAppedCryptoKey'{..}
= object
(catMaybes
[("wrappedKey" .=) <$> _gpdvkwackWrAppedKey,
("cryptoKeyName" .=) <$> _gpdvkwackCryptoKeyName])
newtype GooglePrivacyDlpV2InspectContentResponse =
GooglePrivacyDlpV2InspectContentResponse'
{ _gpdvicrResult :: Maybe GooglePrivacyDlpV2InspectResult
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectContentResponse
:: GooglePrivacyDlpV2InspectContentResponse
googlePrivacyDlpV2InspectContentResponse =
GooglePrivacyDlpV2InspectContentResponse' {_gpdvicrResult = Nothing}
gpdvicrResult :: Lens' GooglePrivacyDlpV2InspectContentResponse (Maybe GooglePrivacyDlpV2InspectResult)
gpdvicrResult
= lens _gpdvicrResult
(\ s a -> s{_gpdvicrResult = a})
instance FromJSON
GooglePrivacyDlpV2InspectContentResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2InspectContentResponse"
(\ o ->
GooglePrivacyDlpV2InspectContentResponse' <$>
(o .:? "result"))
instance ToJSON
GooglePrivacyDlpV2InspectContentResponse
where
toJSON GooglePrivacyDlpV2InspectContentResponse'{..}
= object
(catMaybes [("result" .=) <$> _gpdvicrResult])
data GooglePrivacyDlpV2LDiversityHistogramBucket =
GooglePrivacyDlpV2LDiversityHistogramBucket'
{ _gpdvldhbBucketValues :: !(Maybe [GooglePrivacyDlpV2LDiversityEquivalenceClass])
, _gpdvldhbSensitiveValueFrequencyLowerBound :: !(Maybe (Textual Int64))
, _gpdvldhbSensitiveValueFrequencyUpperBound :: !(Maybe (Textual Int64))
, _gpdvldhbBucketSize :: !(Maybe (Textual Int64))
, _gpdvldhbBucketValueCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2LDiversityHistogramBucket
:: GooglePrivacyDlpV2LDiversityHistogramBucket
googlePrivacyDlpV2LDiversityHistogramBucket =
GooglePrivacyDlpV2LDiversityHistogramBucket'
{ _gpdvldhbBucketValues = Nothing
, _gpdvldhbSensitiveValueFrequencyLowerBound = Nothing
, _gpdvldhbSensitiveValueFrequencyUpperBound = Nothing
, _gpdvldhbBucketSize = Nothing
, _gpdvldhbBucketValueCount = Nothing
}
gpdvldhbBucketValues :: Lens' GooglePrivacyDlpV2LDiversityHistogramBucket [GooglePrivacyDlpV2LDiversityEquivalenceClass]
gpdvldhbBucketValues
= lens _gpdvldhbBucketValues
(\ s a -> s{_gpdvldhbBucketValues = a})
. _Default
. _Coerce
gpdvldhbSensitiveValueFrequencyLowerBound :: Lens' GooglePrivacyDlpV2LDiversityHistogramBucket (Maybe Int64)
gpdvldhbSensitiveValueFrequencyLowerBound
= lens _gpdvldhbSensitiveValueFrequencyLowerBound
(\ s a ->
s{_gpdvldhbSensitiveValueFrequencyLowerBound = a})
. mapping _Coerce
gpdvldhbSensitiveValueFrequencyUpperBound :: Lens' GooglePrivacyDlpV2LDiversityHistogramBucket (Maybe Int64)
gpdvldhbSensitiveValueFrequencyUpperBound
= lens _gpdvldhbSensitiveValueFrequencyUpperBound
(\ s a ->
s{_gpdvldhbSensitiveValueFrequencyUpperBound = a})
. mapping _Coerce
gpdvldhbBucketSize :: Lens' GooglePrivacyDlpV2LDiversityHistogramBucket (Maybe Int64)
gpdvldhbBucketSize
= lens _gpdvldhbBucketSize
(\ s a -> s{_gpdvldhbBucketSize = a})
. mapping _Coerce
gpdvldhbBucketValueCount :: Lens' GooglePrivacyDlpV2LDiversityHistogramBucket (Maybe Int64)
gpdvldhbBucketValueCount
= lens _gpdvldhbBucketValueCount
(\ s a -> s{_gpdvldhbBucketValueCount = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2LDiversityHistogramBucket
where
parseJSON
= withObject
"GooglePrivacyDlpV2LDiversityHistogramBucket"
(\ o ->
GooglePrivacyDlpV2LDiversityHistogramBucket' <$>
(o .:? "bucketValues" .!= mempty) <*>
(o .:? "sensitiveValueFrequencyLowerBound")
<*> (o .:? "sensitiveValueFrequencyUpperBound")
<*> (o .:? "bucketSize")
<*> (o .:? "bucketValueCount"))
instance ToJSON
GooglePrivacyDlpV2LDiversityHistogramBucket
where
toJSON
GooglePrivacyDlpV2LDiversityHistogramBucket'{..}
= object
(catMaybes
[("bucketValues" .=) <$> _gpdvldhbBucketValues,
("sensitiveValueFrequencyLowerBound" .=) <$>
_gpdvldhbSensitiveValueFrequencyLowerBound,
("sensitiveValueFrequencyUpperBound" .=) <$>
_gpdvldhbSensitiveValueFrequencyUpperBound,
("bucketSize" .=) <$> _gpdvldhbBucketSize,
("bucketValueCount" .=) <$>
_gpdvldhbBucketValueCount])
data GooglePrivacyDlpV2ReidentifyContentResponse =
GooglePrivacyDlpV2ReidentifyContentResponse'
{ _gpdvrcrOverview :: !(Maybe GooglePrivacyDlpV2TransformationOverview)
, _gpdvrcrItem :: !(Maybe GooglePrivacyDlpV2ContentItem)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ReidentifyContentResponse
:: GooglePrivacyDlpV2ReidentifyContentResponse
googlePrivacyDlpV2ReidentifyContentResponse =
GooglePrivacyDlpV2ReidentifyContentResponse'
{_gpdvrcrOverview = Nothing, _gpdvrcrItem = Nothing}
gpdvrcrOverview :: Lens' GooglePrivacyDlpV2ReidentifyContentResponse (Maybe GooglePrivacyDlpV2TransformationOverview)
gpdvrcrOverview
= lens _gpdvrcrOverview
(\ s a -> s{_gpdvrcrOverview = a})
gpdvrcrItem :: Lens' GooglePrivacyDlpV2ReidentifyContentResponse (Maybe GooglePrivacyDlpV2ContentItem)
gpdvrcrItem
= lens _gpdvrcrItem (\ s a -> s{_gpdvrcrItem = a})
instance FromJSON
GooglePrivacyDlpV2ReidentifyContentResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2ReidentifyContentResponse"
(\ o ->
GooglePrivacyDlpV2ReidentifyContentResponse' <$>
(o .:? "overview") <*> (o .:? "item"))
instance ToJSON
GooglePrivacyDlpV2ReidentifyContentResponse
where
toJSON
GooglePrivacyDlpV2ReidentifyContentResponse'{..}
= object
(catMaybes
[("overview" .=) <$> _gpdvrcrOverview,
("item" .=) <$> _gpdvrcrItem])
data GooglePrivacyDlpV2Expressions =
GooglePrivacyDlpV2Expressions'
{ _gpdveLogicalOperator :: !(Maybe GooglePrivacyDlpV2ExpressionsLogicalOperator)
, _gpdveConditions :: !(Maybe GooglePrivacyDlpV2Conditions)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Expressions
:: GooglePrivacyDlpV2Expressions
googlePrivacyDlpV2Expressions =
GooglePrivacyDlpV2Expressions'
{_gpdveLogicalOperator = Nothing, _gpdveConditions = Nothing}
gpdveLogicalOperator :: Lens' GooglePrivacyDlpV2Expressions (Maybe GooglePrivacyDlpV2ExpressionsLogicalOperator)
gpdveLogicalOperator
= lens _gpdveLogicalOperator
(\ s a -> s{_gpdveLogicalOperator = a})
gpdveConditions :: Lens' GooglePrivacyDlpV2Expressions (Maybe GooglePrivacyDlpV2Conditions)
gpdveConditions
= lens _gpdveConditions
(\ s a -> s{_gpdveConditions = a})
instance FromJSON GooglePrivacyDlpV2Expressions where
parseJSON
= withObject "GooglePrivacyDlpV2Expressions"
(\ o ->
GooglePrivacyDlpV2Expressions' <$>
(o .:? "logicalOperator") <*> (o .:? "conditions"))
instance ToJSON GooglePrivacyDlpV2Expressions where
toJSON GooglePrivacyDlpV2Expressions'{..}
= object
(catMaybes
[("logicalOperator" .=) <$> _gpdveLogicalOperator,
("conditions" .=) <$> _gpdveConditions])
data GooglePrivacyDlpV2DateTime =
GooglePrivacyDlpV2DateTime'
{ _gpdvdtTime :: !(Maybe GoogleTypeTimeOfDay)
, _gpdvdtDate :: !(Maybe GoogleTypeDate)
, _gpdvdtTimeZone :: !(Maybe GooglePrivacyDlpV2TimeZone)
, _gpdvdtDayOfWeek :: !(Maybe GooglePrivacyDlpV2DateTimeDayOfWeek)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DateTime
:: GooglePrivacyDlpV2DateTime
googlePrivacyDlpV2DateTime =
GooglePrivacyDlpV2DateTime'
{ _gpdvdtTime = Nothing
, _gpdvdtDate = Nothing
, _gpdvdtTimeZone = Nothing
, _gpdvdtDayOfWeek = Nothing
}
gpdvdtTime :: Lens' GooglePrivacyDlpV2DateTime (Maybe GoogleTypeTimeOfDay)
gpdvdtTime
= lens _gpdvdtTime (\ s a -> s{_gpdvdtTime = a})
gpdvdtDate :: Lens' GooglePrivacyDlpV2DateTime (Maybe GoogleTypeDate)
gpdvdtDate
= lens _gpdvdtDate (\ s a -> s{_gpdvdtDate = a})
gpdvdtTimeZone :: Lens' GooglePrivacyDlpV2DateTime (Maybe GooglePrivacyDlpV2TimeZone)
gpdvdtTimeZone
= lens _gpdvdtTimeZone
(\ s a -> s{_gpdvdtTimeZone = a})
gpdvdtDayOfWeek :: Lens' GooglePrivacyDlpV2DateTime (Maybe GooglePrivacyDlpV2DateTimeDayOfWeek)
gpdvdtDayOfWeek
= lens _gpdvdtDayOfWeek
(\ s a -> s{_gpdvdtDayOfWeek = a})
instance FromJSON GooglePrivacyDlpV2DateTime where
parseJSON
= withObject "GooglePrivacyDlpV2DateTime"
(\ o ->
GooglePrivacyDlpV2DateTime' <$>
(o .:? "time") <*> (o .:? "date") <*>
(o .:? "timeZone")
<*> (o .:? "dayOfWeek"))
instance ToJSON GooglePrivacyDlpV2DateTime where
toJSON GooglePrivacyDlpV2DateTime'{..}
= object
(catMaybes
[("time" .=) <$> _gpdvdtTime,
("date" .=) <$> _gpdvdtDate,
("timeZone" .=) <$> _gpdvdtTimeZone,
("dayOfWeek" .=) <$> _gpdvdtDayOfWeek])
data GooglePrivacyDlpV2CloudStorageRegexFileSet =
GooglePrivacyDlpV2CloudStorageRegexFileSet'
{ _gpdvcsrfsExcludeRegex :: !(Maybe [Text])
, _gpdvcsrfsBucketName :: !(Maybe Text)
, _gpdvcsrfsIncludeRegex :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CloudStorageRegexFileSet
:: GooglePrivacyDlpV2CloudStorageRegexFileSet
googlePrivacyDlpV2CloudStorageRegexFileSet =
GooglePrivacyDlpV2CloudStorageRegexFileSet'
{ _gpdvcsrfsExcludeRegex = Nothing
, _gpdvcsrfsBucketName = Nothing
, _gpdvcsrfsIncludeRegex = Nothing
}
gpdvcsrfsExcludeRegex :: Lens' GooglePrivacyDlpV2CloudStorageRegexFileSet [Text]
gpdvcsrfsExcludeRegex
= lens _gpdvcsrfsExcludeRegex
(\ s a -> s{_gpdvcsrfsExcludeRegex = a})
. _Default
. _Coerce
gpdvcsrfsBucketName :: Lens' GooglePrivacyDlpV2CloudStorageRegexFileSet (Maybe Text)
gpdvcsrfsBucketName
= lens _gpdvcsrfsBucketName
(\ s a -> s{_gpdvcsrfsBucketName = a})
gpdvcsrfsIncludeRegex :: Lens' GooglePrivacyDlpV2CloudStorageRegexFileSet [Text]
gpdvcsrfsIncludeRegex
= lens _gpdvcsrfsIncludeRegex
(\ s a -> s{_gpdvcsrfsIncludeRegex = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2CloudStorageRegexFileSet
where
parseJSON
= withObject
"GooglePrivacyDlpV2CloudStorageRegexFileSet"
(\ o ->
GooglePrivacyDlpV2CloudStorageRegexFileSet' <$>
(o .:? "excludeRegex" .!= mempty) <*>
(o .:? "bucketName")
<*> (o .:? "includeRegex" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2CloudStorageRegexFileSet
where
toJSON
GooglePrivacyDlpV2CloudStorageRegexFileSet'{..}
= object
(catMaybes
[("excludeRegex" .=) <$> _gpdvcsrfsExcludeRegex,
("bucketName" .=) <$> _gpdvcsrfsBucketName,
("includeRegex" .=) <$> _gpdvcsrfsIncludeRegex])
data GooglePrivacyDlpV2Bucket =
GooglePrivacyDlpV2Bucket'
{ _gpdvbMax :: !(Maybe GooglePrivacyDlpV2Value)
, _gpdvbReplacementValue :: !(Maybe GooglePrivacyDlpV2Value)
, _gpdvbMin :: !(Maybe GooglePrivacyDlpV2Value)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Bucket
:: GooglePrivacyDlpV2Bucket
googlePrivacyDlpV2Bucket =
GooglePrivacyDlpV2Bucket'
{_gpdvbMax = Nothing, _gpdvbReplacementValue = Nothing, _gpdvbMin = Nothing}
gpdvbMax :: Lens' GooglePrivacyDlpV2Bucket (Maybe GooglePrivacyDlpV2Value)
gpdvbMax = lens _gpdvbMax (\ s a -> s{_gpdvbMax = a})
gpdvbReplacementValue :: Lens' GooglePrivacyDlpV2Bucket (Maybe GooglePrivacyDlpV2Value)
gpdvbReplacementValue
= lens _gpdvbReplacementValue
(\ s a -> s{_gpdvbReplacementValue = a})
gpdvbMin :: Lens' GooglePrivacyDlpV2Bucket (Maybe GooglePrivacyDlpV2Value)
gpdvbMin = lens _gpdvbMin (\ s a -> s{_gpdvbMin = a})
instance FromJSON GooglePrivacyDlpV2Bucket where
parseJSON
= withObject "GooglePrivacyDlpV2Bucket"
(\ o ->
GooglePrivacyDlpV2Bucket' <$>
(o .:? "max") <*> (o .:? "replacementValue") <*>
(o .:? "min"))
instance ToJSON GooglePrivacyDlpV2Bucket where
toJSON GooglePrivacyDlpV2Bucket'{..}
= object
(catMaybes
[("max" .=) <$> _gpdvbMax,
("replacementValue" .=) <$> _gpdvbReplacementValue,
("min" .=) <$> _gpdvbMin])
data GooglePrivacyDlpV2Action =
GooglePrivacyDlpV2Action'
{ _gpdvaJobNotificationEmails :: !(Maybe GooglePrivacyDlpV2JobNotificationEmails)
, _gpdvaPubSub :: !(Maybe GooglePrivacyDlpV2PublishToPubSub)
, _gpdvaSaveFindings :: !(Maybe GooglePrivacyDlpV2SaveFindings)
, _gpdvaPublishSummaryToCscc :: !(Maybe GooglePrivacyDlpV2PublishSummaryToCscc)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Action
:: GooglePrivacyDlpV2Action
googlePrivacyDlpV2Action =
GooglePrivacyDlpV2Action'
{ _gpdvaJobNotificationEmails = Nothing
, _gpdvaPubSub = Nothing
, _gpdvaSaveFindings = Nothing
, _gpdvaPublishSummaryToCscc = Nothing
}
gpdvaJobNotificationEmails :: Lens' GooglePrivacyDlpV2Action (Maybe GooglePrivacyDlpV2JobNotificationEmails)
gpdvaJobNotificationEmails
= lens _gpdvaJobNotificationEmails
(\ s a -> s{_gpdvaJobNotificationEmails = a})
gpdvaPubSub :: Lens' GooglePrivacyDlpV2Action (Maybe GooglePrivacyDlpV2PublishToPubSub)
gpdvaPubSub
= lens _gpdvaPubSub (\ s a -> s{_gpdvaPubSub = a})
gpdvaSaveFindings :: Lens' GooglePrivacyDlpV2Action (Maybe GooglePrivacyDlpV2SaveFindings)
gpdvaSaveFindings
= lens _gpdvaSaveFindings
(\ s a -> s{_gpdvaSaveFindings = a})
gpdvaPublishSummaryToCscc :: Lens' GooglePrivacyDlpV2Action (Maybe GooglePrivacyDlpV2PublishSummaryToCscc)
gpdvaPublishSummaryToCscc
= lens _gpdvaPublishSummaryToCscc
(\ s a -> s{_gpdvaPublishSummaryToCscc = a})
instance FromJSON GooglePrivacyDlpV2Action where
parseJSON
= withObject "GooglePrivacyDlpV2Action"
(\ o ->
GooglePrivacyDlpV2Action' <$>
(o .:? "jobNotificationEmails") <*> (o .:? "pubSub")
<*> (o .:? "saveFindings")
<*> (o .:? "publishSummaryToCscc"))
instance ToJSON GooglePrivacyDlpV2Action where
toJSON GooglePrivacyDlpV2Action'{..}
= object
(catMaybes
[("jobNotificationEmails" .=) <$>
_gpdvaJobNotificationEmails,
("pubSub" .=) <$> _gpdvaPubSub,
("saveFindings" .=) <$> _gpdvaSaveFindings,
("publishSummaryToCscc" .=) <$>
_gpdvaPublishSummaryToCscc])
data GoogleTypeDate =
GoogleTypeDate'
{ _gtdDay :: !(Maybe (Textual Int32))
, _gtdYear :: !(Maybe (Textual Int32))
, _gtdMonth :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleTypeDate
:: GoogleTypeDate
googleTypeDate =
GoogleTypeDate' {_gtdDay = Nothing, _gtdYear = Nothing, _gtdMonth = Nothing}
gtdDay :: Lens' GoogleTypeDate (Maybe Int32)
gtdDay
= lens _gtdDay (\ s a -> s{_gtdDay = a}) .
mapping _Coerce
gtdYear :: Lens' GoogleTypeDate (Maybe Int32)
gtdYear
= lens _gtdYear (\ s a -> s{_gtdYear = a}) .
mapping _Coerce
gtdMonth :: Lens' GoogleTypeDate (Maybe Int32)
gtdMonth
= lens _gtdMonth (\ s a -> s{_gtdMonth = a}) .
mapping _Coerce
instance FromJSON GoogleTypeDate where
parseJSON
= withObject "GoogleTypeDate"
(\ o ->
GoogleTypeDate' <$>
(o .:? "day") <*> (o .:? "year") <*> (o .:? "month"))
instance ToJSON GoogleTypeDate where
toJSON GoogleTypeDate'{..}
= object
(catMaybes
[("day" .=) <$> _gtdDay, ("year" .=) <$> _gtdYear,
("month" .=) <$> _gtdMonth])
data GooglePrivacyDlpV2SurrogateType =
GooglePrivacyDlpV2SurrogateType'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2SurrogateType
:: GooglePrivacyDlpV2SurrogateType
googlePrivacyDlpV2SurrogateType = GooglePrivacyDlpV2SurrogateType'
instance FromJSON GooglePrivacyDlpV2SurrogateType
where
parseJSON
= withObject "GooglePrivacyDlpV2SurrogateType"
(\ o -> pure GooglePrivacyDlpV2SurrogateType')
instance ToJSON GooglePrivacyDlpV2SurrogateType where
toJSON = const emptyObject
data GooglePrivacyDlpV2Table =
GooglePrivacyDlpV2Table'
{ _gpdvtRows :: !(Maybe [GooglePrivacyDlpV2Row])
, _gpdvtHeaders :: !(Maybe [GooglePrivacyDlpV2FieldId])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Table
:: GooglePrivacyDlpV2Table
googlePrivacyDlpV2Table =
GooglePrivacyDlpV2Table' {_gpdvtRows = Nothing, _gpdvtHeaders = Nothing}
gpdvtRows :: Lens' GooglePrivacyDlpV2Table [GooglePrivacyDlpV2Row]
gpdvtRows
= lens _gpdvtRows (\ s a -> s{_gpdvtRows = a}) .
_Default
. _Coerce
gpdvtHeaders :: Lens' GooglePrivacyDlpV2Table [GooglePrivacyDlpV2FieldId]
gpdvtHeaders
= lens _gpdvtHeaders (\ s a -> s{_gpdvtHeaders = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2Table where
parseJSON
= withObject "GooglePrivacyDlpV2Table"
(\ o ->
GooglePrivacyDlpV2Table' <$>
(o .:? "rows" .!= mempty) <*>
(o .:? "headers" .!= mempty))
instance ToJSON GooglePrivacyDlpV2Table where
toJSON GooglePrivacyDlpV2Table'{..}
= object
(catMaybes
[("rows" .=) <$> _gpdvtRows,
("headers" .=) <$> _gpdvtHeaders])
newtype GooglePrivacyDlpV2LDiversityResult =
GooglePrivacyDlpV2LDiversityResult'
{ _gpdvldrSensitiveValueFrequencyHistogramBuckets :: Maybe [GooglePrivacyDlpV2LDiversityHistogramBucket]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2LDiversityResult
:: GooglePrivacyDlpV2LDiversityResult
googlePrivacyDlpV2LDiversityResult =
GooglePrivacyDlpV2LDiversityResult'
{_gpdvldrSensitiveValueFrequencyHistogramBuckets = Nothing}
gpdvldrSensitiveValueFrequencyHistogramBuckets :: Lens' GooglePrivacyDlpV2LDiversityResult [GooglePrivacyDlpV2LDiversityHistogramBucket]
gpdvldrSensitiveValueFrequencyHistogramBuckets
= lens
_gpdvldrSensitiveValueFrequencyHistogramBuckets
(\ s a ->
s{_gpdvldrSensitiveValueFrequencyHistogramBuckets =
a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2LDiversityResult
where
parseJSON
= withObject "GooglePrivacyDlpV2LDiversityResult"
(\ o ->
GooglePrivacyDlpV2LDiversityResult' <$>
(o .:? "sensitiveValueFrequencyHistogramBuckets" .!=
mempty))
instance ToJSON GooglePrivacyDlpV2LDiversityResult
where
toJSON GooglePrivacyDlpV2LDiversityResult'{..}
= object
(catMaybes
[("sensitiveValueFrequencyHistogramBuckets" .=) <$>
_gpdvldrSensitiveValueFrequencyHistogramBuckets])
data GooglePrivacyDlpV2KMapEstimationConfig =
GooglePrivacyDlpV2KMapEstimationConfig'
{ _gpdvkmecAuxiliaryTables :: !(Maybe [GooglePrivacyDlpV2AuxiliaryTable])
, _gpdvkmecRegionCode :: !(Maybe Text)
, _gpdvkmecQuasiIds :: !(Maybe [GooglePrivacyDlpV2TaggedField])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KMapEstimationConfig
:: GooglePrivacyDlpV2KMapEstimationConfig
googlePrivacyDlpV2KMapEstimationConfig =
GooglePrivacyDlpV2KMapEstimationConfig'
{ _gpdvkmecAuxiliaryTables = Nothing
, _gpdvkmecRegionCode = Nothing
, _gpdvkmecQuasiIds = Nothing
}
gpdvkmecAuxiliaryTables :: Lens' GooglePrivacyDlpV2KMapEstimationConfig [GooglePrivacyDlpV2AuxiliaryTable]
gpdvkmecAuxiliaryTables
= lens _gpdvkmecAuxiliaryTables
(\ s a -> s{_gpdvkmecAuxiliaryTables = a})
. _Default
. _Coerce
gpdvkmecRegionCode :: Lens' GooglePrivacyDlpV2KMapEstimationConfig (Maybe Text)
gpdvkmecRegionCode
= lens _gpdvkmecRegionCode
(\ s a -> s{_gpdvkmecRegionCode = a})
gpdvkmecQuasiIds :: Lens' GooglePrivacyDlpV2KMapEstimationConfig [GooglePrivacyDlpV2TaggedField]
gpdvkmecQuasiIds
= lens _gpdvkmecQuasiIds
(\ s a -> s{_gpdvkmecQuasiIds = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2KMapEstimationConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2KMapEstimationConfig"
(\ o ->
GooglePrivacyDlpV2KMapEstimationConfig' <$>
(o .:? "auxiliaryTables" .!= mempty) <*>
(o .:? "regionCode")
<*> (o .:? "quasiIds" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2KMapEstimationConfig
where
toJSON GooglePrivacyDlpV2KMapEstimationConfig'{..}
= object
(catMaybes
[("auxiliaryTables" .=) <$> _gpdvkmecAuxiliaryTables,
("regionCode" .=) <$> _gpdvkmecRegionCode,
("quasiIds" .=) <$> _gpdvkmecQuasiIds])
data GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig =
GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig'
{ _gpdvcrffcContext :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvcrffcCommonAlphabet :: !(Maybe GooglePrivacyDlpV2CryptoReplaceFfxFpeConfigCommonAlphabet)
, _gpdvcrffcSurrogateInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvcrffcCustomAlphabet :: !(Maybe Text)
, _gpdvcrffcCryptoKey :: !(Maybe GooglePrivacyDlpV2CryptoKey)
, _gpdvcrffcRadix :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CryptoReplaceFfxFpeConfig
:: GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig
googlePrivacyDlpV2CryptoReplaceFfxFpeConfig =
GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig'
{ _gpdvcrffcContext = Nothing
, _gpdvcrffcCommonAlphabet = Nothing
, _gpdvcrffcSurrogateInfoType = Nothing
, _gpdvcrffcCustomAlphabet = Nothing
, _gpdvcrffcCryptoKey = Nothing
, _gpdvcrffcRadix = Nothing
}
gpdvcrffcContext :: Lens' GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvcrffcContext
= lens _gpdvcrffcContext
(\ s a -> s{_gpdvcrffcContext = a})
gpdvcrffcCommonAlphabet :: Lens' GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig (Maybe GooglePrivacyDlpV2CryptoReplaceFfxFpeConfigCommonAlphabet)
gpdvcrffcCommonAlphabet
= lens _gpdvcrffcCommonAlphabet
(\ s a -> s{_gpdvcrffcCommonAlphabet = a})
gpdvcrffcSurrogateInfoType :: Lens' GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig (Maybe GooglePrivacyDlpV2InfoType)
gpdvcrffcSurrogateInfoType
= lens _gpdvcrffcSurrogateInfoType
(\ s a -> s{_gpdvcrffcSurrogateInfoType = a})
gpdvcrffcCustomAlphabet :: Lens' GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig (Maybe Text)
gpdvcrffcCustomAlphabet
= lens _gpdvcrffcCustomAlphabet
(\ s a -> s{_gpdvcrffcCustomAlphabet = a})
gpdvcrffcCryptoKey :: Lens' GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig (Maybe GooglePrivacyDlpV2CryptoKey)
gpdvcrffcCryptoKey
= lens _gpdvcrffcCryptoKey
(\ s a -> s{_gpdvcrffcCryptoKey = a})
gpdvcrffcRadix :: Lens' GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig (Maybe Int32)
gpdvcrffcRadix
= lens _gpdvcrffcRadix
(\ s a -> s{_gpdvcrffcRadix = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig"
(\ o ->
GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig' <$>
(o .:? "context") <*> (o .:? "commonAlphabet") <*>
(o .:? "surrogateInfoType")
<*> (o .:? "customAlphabet")
<*> (o .:? "cryptoKey")
<*> (o .:? "radix"))
instance ToJSON
GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig
where
toJSON
GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig'{..}
= object
(catMaybes
[("context" .=) <$> _gpdvcrffcContext,
("commonAlphabet" .=) <$> _gpdvcrffcCommonAlphabet,
("surrogateInfoType" .=) <$>
_gpdvcrffcSurrogateInfoType,
("customAlphabet" .=) <$> _gpdvcrffcCustomAlphabet,
("cryptoKey" .=) <$> _gpdvcrffcCryptoKey,
("radix" .=) <$> _gpdvcrffcRadix])
data GooglePrivacyDlpV2QuasiIdentifierField =
GooglePrivacyDlpV2QuasiIdentifierField'
{ _gField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gCustomTag :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2QuasiIdentifierField
:: GooglePrivacyDlpV2QuasiIdentifierField
googlePrivacyDlpV2QuasiIdentifierField =
GooglePrivacyDlpV2QuasiIdentifierField'
{_gField = Nothing, _gCustomTag = Nothing}
gField :: Lens' GooglePrivacyDlpV2QuasiIdentifierField (Maybe GooglePrivacyDlpV2FieldId)
gField = lens _gField (\ s a -> s{_gField = a})
gCustomTag :: Lens' GooglePrivacyDlpV2QuasiIdentifierField (Maybe Text)
gCustomTag
= lens _gCustomTag (\ s a -> s{_gCustomTag = a})
instance FromJSON
GooglePrivacyDlpV2QuasiIdentifierField
where
parseJSON
= withObject "GooglePrivacyDlpV2QuasiIdentifierField"
(\ o ->
GooglePrivacyDlpV2QuasiIdentifierField' <$>
(o .:? "field") <*> (o .:? "customTag"))
instance ToJSON
GooglePrivacyDlpV2QuasiIdentifierField
where
toJSON GooglePrivacyDlpV2QuasiIdentifierField'{..}
= object
(catMaybes
[("field" .=) <$> _gField,
("customTag" .=) <$> _gCustomTag])
newtype GooglePrivacyDlpV2InfoType =
GooglePrivacyDlpV2InfoType'
{ _gpdvitName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InfoType
:: GooglePrivacyDlpV2InfoType
googlePrivacyDlpV2InfoType = GooglePrivacyDlpV2InfoType' {_gpdvitName = Nothing}
gpdvitName :: Lens' GooglePrivacyDlpV2InfoType (Maybe Text)
gpdvitName
= lens _gpdvitName (\ s a -> s{_gpdvitName = a})
instance FromJSON GooglePrivacyDlpV2InfoType where
parseJSON
= withObject "GooglePrivacyDlpV2InfoType"
(\ o ->
GooglePrivacyDlpV2InfoType' <$> (o .:? "name"))
instance ToJSON GooglePrivacyDlpV2InfoType where
toJSON GooglePrivacyDlpV2InfoType'{..}
= object (catMaybes [("name" .=) <$> _gpdvitName])
data GooglePrivacyDlpV2InspectTemplate =
GooglePrivacyDlpV2InspectTemplate'
{ _gInspectConfig :: !(Maybe GooglePrivacyDlpV2InspectConfig)
, _gUpdateTime :: !(Maybe DateTime')
, _gName :: !(Maybe Text)
, _gDisplayName :: !(Maybe Text)
, _gDescription :: !(Maybe Text)
, _gCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectTemplate
:: GooglePrivacyDlpV2InspectTemplate
googlePrivacyDlpV2InspectTemplate =
GooglePrivacyDlpV2InspectTemplate'
{ _gInspectConfig = Nothing
, _gUpdateTime = Nothing
, _gName = Nothing
, _gDisplayName = Nothing
, _gDescription = Nothing
, _gCreateTime = Nothing
}
gInspectConfig :: Lens' GooglePrivacyDlpV2InspectTemplate (Maybe GooglePrivacyDlpV2InspectConfig)
gInspectConfig
= lens _gInspectConfig
(\ s a -> s{_gInspectConfig = a})
gUpdateTime :: Lens' GooglePrivacyDlpV2InspectTemplate (Maybe UTCTime)
gUpdateTime
= lens _gUpdateTime (\ s a -> s{_gUpdateTime = a}) .
mapping _DateTime
gName :: Lens' GooglePrivacyDlpV2InspectTemplate (Maybe Text)
gName = lens _gName (\ s a -> s{_gName = a})
gDisplayName :: Lens' GooglePrivacyDlpV2InspectTemplate (Maybe Text)
gDisplayName
= lens _gDisplayName (\ s a -> s{_gDisplayName = a})
gDescription :: Lens' GooglePrivacyDlpV2InspectTemplate (Maybe Text)
gDescription
= lens _gDescription (\ s a -> s{_gDescription = a})
gCreateTime :: Lens' GooglePrivacyDlpV2InspectTemplate (Maybe UTCTime)
gCreateTime
= lens _gCreateTime (\ s a -> s{_gCreateTime = a}) .
mapping _DateTime
instance FromJSON GooglePrivacyDlpV2InspectTemplate
where
parseJSON
= withObject "GooglePrivacyDlpV2InspectTemplate"
(\ o ->
GooglePrivacyDlpV2InspectTemplate' <$>
(o .:? "inspectConfig") <*> (o .:? "updateTime") <*>
(o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON GooglePrivacyDlpV2InspectTemplate
where
toJSON GooglePrivacyDlpV2InspectTemplate'{..}
= object
(catMaybes
[("inspectConfig" .=) <$> _gInspectConfig,
("updateTime" .=) <$> _gUpdateTime,
("name" .=) <$> _gName,
("displayName" .=) <$> _gDisplayName,
("description" .=) <$> _gDescription,
("createTime" .=) <$> _gCreateTime])
data GooglePrivacyDlpV2KAnonymityHistogramBucket =
GooglePrivacyDlpV2KAnonymityHistogramBucket'
{ _gpdvkahbEquivalenceClassSizeLowerBound :: !(Maybe (Textual Int64))
, _gpdvkahbEquivalenceClassSizeUpperBound :: !(Maybe (Textual Int64))
, _gpdvkahbBucketValues :: !(Maybe [GooglePrivacyDlpV2KAnonymityEquivalenceClass])
, _gpdvkahbBucketSize :: !(Maybe (Textual Int64))
, _gpdvkahbBucketValueCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KAnonymityHistogramBucket
:: GooglePrivacyDlpV2KAnonymityHistogramBucket
googlePrivacyDlpV2KAnonymityHistogramBucket =
GooglePrivacyDlpV2KAnonymityHistogramBucket'
{ _gpdvkahbEquivalenceClassSizeLowerBound = Nothing
, _gpdvkahbEquivalenceClassSizeUpperBound = Nothing
, _gpdvkahbBucketValues = Nothing
, _gpdvkahbBucketSize = Nothing
, _gpdvkahbBucketValueCount = Nothing
}
gpdvkahbEquivalenceClassSizeLowerBound :: Lens' GooglePrivacyDlpV2KAnonymityHistogramBucket (Maybe Int64)
gpdvkahbEquivalenceClassSizeLowerBound
= lens _gpdvkahbEquivalenceClassSizeLowerBound
(\ s a ->
s{_gpdvkahbEquivalenceClassSizeLowerBound = a})
. mapping _Coerce
gpdvkahbEquivalenceClassSizeUpperBound :: Lens' GooglePrivacyDlpV2KAnonymityHistogramBucket (Maybe Int64)
gpdvkahbEquivalenceClassSizeUpperBound
= lens _gpdvkahbEquivalenceClassSizeUpperBound
(\ s a ->
s{_gpdvkahbEquivalenceClassSizeUpperBound = a})
. mapping _Coerce
gpdvkahbBucketValues :: Lens' GooglePrivacyDlpV2KAnonymityHistogramBucket [GooglePrivacyDlpV2KAnonymityEquivalenceClass]
gpdvkahbBucketValues
= lens _gpdvkahbBucketValues
(\ s a -> s{_gpdvkahbBucketValues = a})
. _Default
. _Coerce
gpdvkahbBucketSize :: Lens' GooglePrivacyDlpV2KAnonymityHistogramBucket (Maybe Int64)
gpdvkahbBucketSize
= lens _gpdvkahbBucketSize
(\ s a -> s{_gpdvkahbBucketSize = a})
. mapping _Coerce
gpdvkahbBucketValueCount :: Lens' GooglePrivacyDlpV2KAnonymityHistogramBucket (Maybe Int64)
gpdvkahbBucketValueCount
= lens _gpdvkahbBucketValueCount
(\ s a -> s{_gpdvkahbBucketValueCount = a})
. mapping _Coerce
instance FromJSON
GooglePrivacyDlpV2KAnonymityHistogramBucket
where
parseJSON
= withObject
"GooglePrivacyDlpV2KAnonymityHistogramBucket"
(\ o ->
GooglePrivacyDlpV2KAnonymityHistogramBucket' <$>
(o .:? "equivalenceClassSizeLowerBound") <*>
(o .:? "equivalenceClassSizeUpperBound")
<*> (o .:? "bucketValues" .!= mempty)
<*> (o .:? "bucketSize")
<*> (o .:? "bucketValueCount"))
instance ToJSON
GooglePrivacyDlpV2KAnonymityHistogramBucket
where
toJSON
GooglePrivacyDlpV2KAnonymityHistogramBucket'{..}
= object
(catMaybes
[("equivalenceClassSizeLowerBound" .=) <$>
_gpdvkahbEquivalenceClassSizeLowerBound,
("equivalenceClassSizeUpperBound" .=) <$>
_gpdvkahbEquivalenceClassSizeUpperBound,
("bucketValues" .=) <$> _gpdvkahbBucketValues,
("bucketSize" .=) <$> _gpdvkahbBucketSize,
("bucketValueCount" .=) <$>
_gpdvkahbBucketValueCount])
data GooglePrivacyDlpV2ReidentifyContentRequest =
GooglePrivacyDlpV2ReidentifyContentRequest'
{ _gooInspectConfig :: !(Maybe GooglePrivacyDlpV2InspectConfig)
, _gooReidentifyTemplateName :: !(Maybe Text)
, _gooItem :: !(Maybe GooglePrivacyDlpV2ContentItem)
, _gooInspectTemplateName :: !(Maybe Text)
, _gooReidentifyConfig :: !(Maybe GooglePrivacyDlpV2DeidentifyConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ReidentifyContentRequest
:: GooglePrivacyDlpV2ReidentifyContentRequest
googlePrivacyDlpV2ReidentifyContentRequest =
GooglePrivacyDlpV2ReidentifyContentRequest'
{ _gooInspectConfig = Nothing
, _gooReidentifyTemplateName = Nothing
, _gooItem = Nothing
, _gooInspectTemplateName = Nothing
, _gooReidentifyConfig = Nothing
}
gooInspectConfig :: Lens' GooglePrivacyDlpV2ReidentifyContentRequest (Maybe GooglePrivacyDlpV2InspectConfig)
gooInspectConfig
= lens _gooInspectConfig
(\ s a -> s{_gooInspectConfig = a})
gooReidentifyTemplateName :: Lens' GooglePrivacyDlpV2ReidentifyContentRequest (Maybe Text)
gooReidentifyTemplateName
= lens _gooReidentifyTemplateName
(\ s a -> s{_gooReidentifyTemplateName = a})
gooItem :: Lens' GooglePrivacyDlpV2ReidentifyContentRequest (Maybe GooglePrivacyDlpV2ContentItem)
gooItem = lens _gooItem (\ s a -> s{_gooItem = a})
gooInspectTemplateName :: Lens' GooglePrivacyDlpV2ReidentifyContentRequest (Maybe Text)
gooInspectTemplateName
= lens _gooInspectTemplateName
(\ s a -> s{_gooInspectTemplateName = a})
gooReidentifyConfig :: Lens' GooglePrivacyDlpV2ReidentifyContentRequest (Maybe GooglePrivacyDlpV2DeidentifyConfig)
gooReidentifyConfig
= lens _gooReidentifyConfig
(\ s a -> s{_gooReidentifyConfig = a})
instance FromJSON
GooglePrivacyDlpV2ReidentifyContentRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2ReidentifyContentRequest"
(\ o ->
GooglePrivacyDlpV2ReidentifyContentRequest' <$>
(o .:? "inspectConfig") <*>
(o .:? "reidentifyTemplateName")
<*> (o .:? "item")
<*> (o .:? "inspectTemplateName")
<*> (o .:? "reidentifyConfig"))
instance ToJSON
GooglePrivacyDlpV2ReidentifyContentRequest
where
toJSON
GooglePrivacyDlpV2ReidentifyContentRequest'{..}
= object
(catMaybes
[("inspectConfig" .=) <$> _gooInspectConfig,
("reidentifyTemplateName" .=) <$>
_gooReidentifyTemplateName,
("item" .=) <$> _gooItem,
("inspectTemplateName" .=) <$>
_gooInspectTemplateName,
("reidentifyConfig" .=) <$> _gooReidentifyConfig])
newtype GooglePrivacyDlpV2CryptoHashConfig =
GooglePrivacyDlpV2CryptoHashConfig'
{ _gpdvchcCryptoKey :: Maybe GooglePrivacyDlpV2CryptoKey
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CryptoHashConfig
:: GooglePrivacyDlpV2CryptoHashConfig
googlePrivacyDlpV2CryptoHashConfig =
GooglePrivacyDlpV2CryptoHashConfig' {_gpdvchcCryptoKey = Nothing}
gpdvchcCryptoKey :: Lens' GooglePrivacyDlpV2CryptoHashConfig (Maybe GooglePrivacyDlpV2CryptoKey)
gpdvchcCryptoKey
= lens _gpdvchcCryptoKey
(\ s a -> s{_gpdvchcCryptoKey = a})
instance FromJSON GooglePrivacyDlpV2CryptoHashConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2CryptoHashConfig"
(\ o ->
GooglePrivacyDlpV2CryptoHashConfig' <$>
(o .:? "cryptoKey"))
instance ToJSON GooglePrivacyDlpV2CryptoHashConfig
where
toJSON GooglePrivacyDlpV2CryptoHashConfig'{..}
= object
(catMaybes [("cryptoKey" .=) <$> _gpdvchcCryptoKey])
data GooglePrivacyDlpV2InfoTypeLimit =
GooglePrivacyDlpV2InfoTypeLimit'
{ _gpdvitlMaxFindings :: !(Maybe (Textual Int32))
, _gpdvitlInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InfoTypeLimit
:: GooglePrivacyDlpV2InfoTypeLimit
googlePrivacyDlpV2InfoTypeLimit =
GooglePrivacyDlpV2InfoTypeLimit'
{_gpdvitlMaxFindings = Nothing, _gpdvitlInfoType = Nothing}
gpdvitlMaxFindings :: Lens' GooglePrivacyDlpV2InfoTypeLimit (Maybe Int32)
gpdvitlMaxFindings
= lens _gpdvitlMaxFindings
(\ s a -> s{_gpdvitlMaxFindings = a})
. mapping _Coerce
gpdvitlInfoType :: Lens' GooglePrivacyDlpV2InfoTypeLimit (Maybe GooglePrivacyDlpV2InfoType)
gpdvitlInfoType
= lens _gpdvitlInfoType
(\ s a -> s{_gpdvitlInfoType = a})
instance FromJSON GooglePrivacyDlpV2InfoTypeLimit
where
parseJSON
= withObject "GooglePrivacyDlpV2InfoTypeLimit"
(\ o ->
GooglePrivacyDlpV2InfoTypeLimit' <$>
(o .:? "maxFindings") <*> (o .:? "infoType"))
instance ToJSON GooglePrivacyDlpV2InfoTypeLimit where
toJSON GooglePrivacyDlpV2InfoTypeLimit'{..}
= object
(catMaybes
[("maxFindings" .=) <$> _gpdvitlMaxFindings,
("infoType" .=) <$> _gpdvitlInfoType])
newtype GooglePrivacyDlpV2TableLocation =
GooglePrivacyDlpV2TableLocation'
{ _gpdvtlRowIndex :: Maybe (Textual Int64)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TableLocation
:: GooglePrivacyDlpV2TableLocation
googlePrivacyDlpV2TableLocation =
GooglePrivacyDlpV2TableLocation' {_gpdvtlRowIndex = Nothing}
gpdvtlRowIndex :: Lens' GooglePrivacyDlpV2TableLocation (Maybe Int64)
gpdvtlRowIndex
= lens _gpdvtlRowIndex
(\ s a -> s{_gpdvtlRowIndex = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2TableLocation
where
parseJSON
= withObject "GooglePrivacyDlpV2TableLocation"
(\ o ->
GooglePrivacyDlpV2TableLocation' <$>
(o .:? "rowIndex"))
instance ToJSON GooglePrivacyDlpV2TableLocation where
toJSON GooglePrivacyDlpV2TableLocation'{..}
= object
(catMaybes [("rowIndex" .=) <$> _gpdvtlRowIndex])
newtype GooglePrivacyDlpV2TimeZone =
GooglePrivacyDlpV2TimeZone'
{ _gpdvtzOffSetMinutes :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TimeZone
:: GooglePrivacyDlpV2TimeZone
googlePrivacyDlpV2TimeZone =
GooglePrivacyDlpV2TimeZone' {_gpdvtzOffSetMinutes = Nothing}
gpdvtzOffSetMinutes :: Lens' GooglePrivacyDlpV2TimeZone (Maybe Int32)
gpdvtzOffSetMinutes
= lens _gpdvtzOffSetMinutes
(\ s a -> s{_gpdvtzOffSetMinutes = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2TimeZone where
parseJSON
= withObject "GooglePrivacyDlpV2TimeZone"
(\ o ->
GooglePrivacyDlpV2TimeZone' <$>
(o .:? "offsetMinutes"))
instance ToJSON GooglePrivacyDlpV2TimeZone where
toJSON GooglePrivacyDlpV2TimeZone'{..}
= object
(catMaybes
[("offsetMinutes" .=) <$> _gpdvtzOffSetMinutes])
data GooglePrivacyDlpV2StorageConfig =
GooglePrivacyDlpV2StorageConfig'
{ _gpdvscTimespanConfig :: !(Maybe GooglePrivacyDlpV2TimespanConfig)
, _gpdvscBigQueryOptions :: !(Maybe GooglePrivacyDlpV2BigQueryOptions)
, _gpdvscDatastoreOptions :: !(Maybe GooglePrivacyDlpV2DatastoreOptions)
, _gpdvscCloudStorageOptions :: !(Maybe GooglePrivacyDlpV2CloudStorageOptions)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2StorageConfig
:: GooglePrivacyDlpV2StorageConfig
googlePrivacyDlpV2StorageConfig =
GooglePrivacyDlpV2StorageConfig'
{ _gpdvscTimespanConfig = Nothing
, _gpdvscBigQueryOptions = Nothing
, _gpdvscDatastoreOptions = Nothing
, _gpdvscCloudStorageOptions = Nothing
}
gpdvscTimespanConfig :: Lens' GooglePrivacyDlpV2StorageConfig (Maybe GooglePrivacyDlpV2TimespanConfig)
gpdvscTimespanConfig
= lens _gpdvscTimespanConfig
(\ s a -> s{_gpdvscTimespanConfig = a})
gpdvscBigQueryOptions :: Lens' GooglePrivacyDlpV2StorageConfig (Maybe GooglePrivacyDlpV2BigQueryOptions)
gpdvscBigQueryOptions
= lens _gpdvscBigQueryOptions
(\ s a -> s{_gpdvscBigQueryOptions = a})
gpdvscDatastoreOptions :: Lens' GooglePrivacyDlpV2StorageConfig (Maybe GooglePrivacyDlpV2DatastoreOptions)
gpdvscDatastoreOptions
= lens _gpdvscDatastoreOptions
(\ s a -> s{_gpdvscDatastoreOptions = a})
gpdvscCloudStorageOptions :: Lens' GooglePrivacyDlpV2StorageConfig (Maybe GooglePrivacyDlpV2CloudStorageOptions)
gpdvscCloudStorageOptions
= lens _gpdvscCloudStorageOptions
(\ s a -> s{_gpdvscCloudStorageOptions = a})
instance FromJSON GooglePrivacyDlpV2StorageConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2StorageConfig"
(\ o ->
GooglePrivacyDlpV2StorageConfig' <$>
(o .:? "timespanConfig") <*>
(o .:? "bigQueryOptions")
<*> (o .:? "datastoreOptions")
<*> (o .:? "cloudStorageOptions"))
instance ToJSON GooglePrivacyDlpV2StorageConfig where
toJSON GooglePrivacyDlpV2StorageConfig'{..}
= object
(catMaybes
[("timespanConfig" .=) <$> _gpdvscTimespanConfig,
("bigQueryOptions" .=) <$> _gpdvscBigQueryOptions,
("datastoreOptions" .=) <$> _gpdvscDatastoreOptions,
("cloudStorageOptions" .=) <$>
_gpdvscCloudStorageOptions])
data GooglePrivacyDlpV2Value =
GooglePrivacyDlpV2Value'
{ _gpdvvDayOfWeekValue :: !(Maybe GooglePrivacyDlpV2ValueDayOfWeekValue)
, _gpdvvIntegerValue :: !(Maybe (Textual Int64))
, _gpdvvTimestampValue :: !(Maybe DateTime')
, _gpdvvTimeValue :: !(Maybe GoogleTypeTimeOfDay)
, _gpdvvStringValue :: !(Maybe Text)
, _gpdvvDateValue :: !(Maybe GoogleTypeDate)
, _gpdvvBooleanValue :: !(Maybe Bool)
, _gpdvvFloatValue :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Value
:: GooglePrivacyDlpV2Value
googlePrivacyDlpV2Value =
GooglePrivacyDlpV2Value'
{ _gpdvvDayOfWeekValue = Nothing
, _gpdvvIntegerValue = Nothing
, _gpdvvTimestampValue = Nothing
, _gpdvvTimeValue = Nothing
, _gpdvvStringValue = Nothing
, _gpdvvDateValue = Nothing
, _gpdvvBooleanValue = Nothing
, _gpdvvFloatValue = Nothing
}
gpdvvDayOfWeekValue :: Lens' GooglePrivacyDlpV2Value (Maybe GooglePrivacyDlpV2ValueDayOfWeekValue)
gpdvvDayOfWeekValue
= lens _gpdvvDayOfWeekValue
(\ s a -> s{_gpdvvDayOfWeekValue = a})
gpdvvIntegerValue :: Lens' GooglePrivacyDlpV2Value (Maybe Int64)
gpdvvIntegerValue
= lens _gpdvvIntegerValue
(\ s a -> s{_gpdvvIntegerValue = a})
. mapping _Coerce
gpdvvTimestampValue :: Lens' GooglePrivacyDlpV2Value (Maybe UTCTime)
gpdvvTimestampValue
= lens _gpdvvTimestampValue
(\ s a -> s{_gpdvvTimestampValue = a})
. mapping _DateTime
gpdvvTimeValue :: Lens' GooglePrivacyDlpV2Value (Maybe GoogleTypeTimeOfDay)
gpdvvTimeValue
= lens _gpdvvTimeValue
(\ s a -> s{_gpdvvTimeValue = a})
gpdvvStringValue :: Lens' GooglePrivacyDlpV2Value (Maybe Text)
gpdvvStringValue
= lens _gpdvvStringValue
(\ s a -> s{_gpdvvStringValue = a})
gpdvvDateValue :: Lens' GooglePrivacyDlpV2Value (Maybe GoogleTypeDate)
gpdvvDateValue
= lens _gpdvvDateValue
(\ s a -> s{_gpdvvDateValue = a})
gpdvvBooleanValue :: Lens' GooglePrivacyDlpV2Value (Maybe Bool)
gpdvvBooleanValue
= lens _gpdvvBooleanValue
(\ s a -> s{_gpdvvBooleanValue = a})
gpdvvFloatValue :: Lens' GooglePrivacyDlpV2Value (Maybe Double)
gpdvvFloatValue
= lens _gpdvvFloatValue
(\ s a -> s{_gpdvvFloatValue = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2Value where
parseJSON
= withObject "GooglePrivacyDlpV2Value"
(\ o ->
GooglePrivacyDlpV2Value' <$>
(o .:? "dayOfWeekValue") <*> (o .:? "integerValue")
<*> (o .:? "timestampValue")
<*> (o .:? "timeValue")
<*> (o .:? "stringValue")
<*> (o .:? "dateValue")
<*> (o .:? "booleanValue")
<*> (o .:? "floatValue"))
instance ToJSON GooglePrivacyDlpV2Value where
toJSON GooglePrivacyDlpV2Value'{..}
= object
(catMaybes
[("dayOfWeekValue" .=) <$> _gpdvvDayOfWeekValue,
("integerValue" .=) <$> _gpdvvIntegerValue,
("timestampValue" .=) <$> _gpdvvTimestampValue,
("timeValue" .=) <$> _gpdvvTimeValue,
("stringValue" .=) <$> _gpdvvStringValue,
("dateValue" .=) <$> _gpdvvDateValue,
("booleanValue" .=) <$> _gpdvvBooleanValue,
("floatValue" .=) <$> _gpdvvFloatValue])
data GooglePrivacyDlpV2Dictionary =
GooglePrivacyDlpV2Dictionary'
{ _gpdvdWordList :: !(Maybe GooglePrivacyDlpV2WordList)
, _gpdvdCloudStoragePath :: !(Maybe GooglePrivacyDlpV2CloudStoragePath)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Dictionary
:: GooglePrivacyDlpV2Dictionary
googlePrivacyDlpV2Dictionary =
GooglePrivacyDlpV2Dictionary'
{_gpdvdWordList = Nothing, _gpdvdCloudStoragePath = Nothing}
gpdvdWordList :: Lens' GooglePrivacyDlpV2Dictionary (Maybe GooglePrivacyDlpV2WordList)
gpdvdWordList
= lens _gpdvdWordList
(\ s a -> s{_gpdvdWordList = a})
gpdvdCloudStoragePath :: Lens' GooglePrivacyDlpV2Dictionary (Maybe GooglePrivacyDlpV2CloudStoragePath)
gpdvdCloudStoragePath
= lens _gpdvdCloudStoragePath
(\ s a -> s{_gpdvdCloudStoragePath = a})
instance FromJSON GooglePrivacyDlpV2Dictionary where
parseJSON
= withObject "GooglePrivacyDlpV2Dictionary"
(\ o ->
GooglePrivacyDlpV2Dictionary' <$>
(o .:? "wordList") <*> (o .:? "cloudStoragePath"))
instance ToJSON GooglePrivacyDlpV2Dictionary where
toJSON GooglePrivacyDlpV2Dictionary'{..}
= object
(catMaybes
[("wordList" .=) <$> _gpdvdWordList,
("cloudStoragePath" .=) <$> _gpdvdCloudStoragePath])
data GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails =
GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails'
{ _gpdvadsrdRequestedPrivacyMetric :: !(Maybe GooglePrivacyDlpV2PrivacyMetric)
, _gpdvadsrdRequestedSourceTable :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
, _gpdvadsrdLDiversityResult :: !(Maybe GooglePrivacyDlpV2LDiversityResult)
, _gpdvadsrdKAnonymityResult :: !(Maybe GooglePrivacyDlpV2KAnonymityResult)
, _gpdvadsrdKMapEstimationResult :: !(Maybe GooglePrivacyDlpV2KMapEstimationResult)
, _gpdvadsrdDeltaPresenceEstimationResult :: !(Maybe GooglePrivacyDlpV2DeltaPresenceEstimationResult)
, _gpdvadsrdNumericalStatsResult :: !(Maybe GooglePrivacyDlpV2NumericalStatsResult)
, _gpdvadsrdCategoricalStatsResult :: !(Maybe GooglePrivacyDlpV2CategoricalStatsResult)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2AnalyzeDataSourceRiskDetails
:: GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails
googlePrivacyDlpV2AnalyzeDataSourceRiskDetails =
GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails'
{ _gpdvadsrdRequestedPrivacyMetric = Nothing
, _gpdvadsrdRequestedSourceTable = Nothing
, _gpdvadsrdLDiversityResult = Nothing
, _gpdvadsrdKAnonymityResult = Nothing
, _gpdvadsrdKMapEstimationResult = Nothing
, _gpdvadsrdDeltaPresenceEstimationResult = Nothing
, _gpdvadsrdNumericalStatsResult = Nothing
, _gpdvadsrdCategoricalStatsResult = Nothing
}
gpdvadsrdRequestedPrivacyMetric :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2PrivacyMetric)
gpdvadsrdRequestedPrivacyMetric
= lens _gpdvadsrdRequestedPrivacyMetric
(\ s a -> s{_gpdvadsrdRequestedPrivacyMetric = a})
gpdvadsrdRequestedSourceTable :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvadsrdRequestedSourceTable
= lens _gpdvadsrdRequestedSourceTable
(\ s a -> s{_gpdvadsrdRequestedSourceTable = a})
gpdvadsrdLDiversityResult :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2LDiversityResult)
gpdvadsrdLDiversityResult
= lens _gpdvadsrdLDiversityResult
(\ s a -> s{_gpdvadsrdLDiversityResult = a})
gpdvadsrdKAnonymityResult :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2KAnonymityResult)
gpdvadsrdKAnonymityResult
= lens _gpdvadsrdKAnonymityResult
(\ s a -> s{_gpdvadsrdKAnonymityResult = a})
gpdvadsrdKMapEstimationResult :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2KMapEstimationResult)
gpdvadsrdKMapEstimationResult
= lens _gpdvadsrdKMapEstimationResult
(\ s a -> s{_gpdvadsrdKMapEstimationResult = a})
gpdvadsrdDeltaPresenceEstimationResult :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2DeltaPresenceEstimationResult)
gpdvadsrdDeltaPresenceEstimationResult
= lens _gpdvadsrdDeltaPresenceEstimationResult
(\ s a ->
s{_gpdvadsrdDeltaPresenceEstimationResult = a})
gpdvadsrdNumericalStatsResult :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2NumericalStatsResult)
gpdvadsrdNumericalStatsResult
= lens _gpdvadsrdNumericalStatsResult
(\ s a -> s{_gpdvadsrdNumericalStatsResult = a})
gpdvadsrdCategoricalStatsResult :: Lens' GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails (Maybe GooglePrivacyDlpV2CategoricalStatsResult)
gpdvadsrdCategoricalStatsResult
= lens _gpdvadsrdCategoricalStatsResult
(\ s a -> s{_gpdvadsrdCategoricalStatsResult = a})
instance FromJSON
GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails
where
parseJSON
= withObject
"GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails"
(\ o ->
GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails' <$>
(o .:? "requestedPrivacyMetric") <*>
(o .:? "requestedSourceTable")
<*> (o .:? "lDiversityResult")
<*> (o .:? "kAnonymityResult")
<*> (o .:? "kMapEstimationResult")
<*> (o .:? "deltaPresenceEstimationResult")
<*> (o .:? "numericalStatsResult")
<*> (o .:? "categoricalStatsResult"))
instance ToJSON
GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails
where
toJSON
GooglePrivacyDlpV2AnalyzeDataSourceRiskDetails'{..}
= object
(catMaybes
[("requestedPrivacyMetric" .=) <$>
_gpdvadsrdRequestedPrivacyMetric,
("requestedSourceTable" .=) <$>
_gpdvadsrdRequestedSourceTable,
("lDiversityResult" .=) <$>
_gpdvadsrdLDiversityResult,
("kAnonymityResult" .=) <$>
_gpdvadsrdKAnonymityResult,
("kMapEstimationResult" .=) <$>
_gpdvadsrdKMapEstimationResult,
("deltaPresenceEstimationResult" .=) <$>
_gpdvadsrdDeltaPresenceEstimationResult,
("numericalStatsResult" .=) <$>
_gpdvadsrdNumericalStatsResult,
("categoricalStatsResult" .=) <$>
_gpdvadsrdCategoricalStatsResult])
newtype GooglePrivacyDlpV2Conditions =
GooglePrivacyDlpV2Conditions'
{ _gpdvcConditions :: Maybe [GooglePrivacyDlpV2Condition]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Conditions
:: GooglePrivacyDlpV2Conditions
googlePrivacyDlpV2Conditions =
GooglePrivacyDlpV2Conditions' {_gpdvcConditions = Nothing}
gpdvcConditions :: Lens' GooglePrivacyDlpV2Conditions [GooglePrivacyDlpV2Condition]
gpdvcConditions
= lens _gpdvcConditions
(\ s a -> s{_gpdvcConditions = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2Conditions where
parseJSON
= withObject "GooglePrivacyDlpV2Conditions"
(\ o ->
GooglePrivacyDlpV2Conditions' <$>
(o .:? "conditions" .!= mempty))
instance ToJSON GooglePrivacyDlpV2Conditions where
toJSON GooglePrivacyDlpV2Conditions'{..}
= object
(catMaybes [("conditions" .=) <$> _gpdvcConditions])
newtype GooglePrivacyDlpV2DatastoreKey =
GooglePrivacyDlpV2DatastoreKey'
{ _gpdvdkEntityKey :: Maybe GooglePrivacyDlpV2Key
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DatastoreKey
:: GooglePrivacyDlpV2DatastoreKey
googlePrivacyDlpV2DatastoreKey =
GooglePrivacyDlpV2DatastoreKey' {_gpdvdkEntityKey = Nothing}
gpdvdkEntityKey :: Lens' GooglePrivacyDlpV2DatastoreKey (Maybe GooglePrivacyDlpV2Key)
gpdvdkEntityKey
= lens _gpdvdkEntityKey
(\ s a -> s{_gpdvdkEntityKey = a})
instance FromJSON GooglePrivacyDlpV2DatastoreKey
where
parseJSON
= withObject "GooglePrivacyDlpV2DatastoreKey"
(\ o ->
GooglePrivacyDlpV2DatastoreKey' <$>
(o .:? "entityKey"))
instance ToJSON GooglePrivacyDlpV2DatastoreKey where
toJSON GooglePrivacyDlpV2DatastoreKey'{..}
= object
(catMaybes [("entityKey" .=) <$> _gpdvdkEntityKey])
data GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues =
GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues'
{ _gpdvdpeqivEstimatedProbability :: !(Maybe (Textual Double))
, _gpdvdpeqivQuasiIdsValues :: !(Maybe [GooglePrivacyDlpV2Value])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues
:: GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues
googlePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues =
GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues'
{ _gpdvdpeqivEstimatedProbability = Nothing
, _gpdvdpeqivQuasiIdsValues = Nothing
}
gpdvdpeqivEstimatedProbability :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues (Maybe Double)
gpdvdpeqivEstimatedProbability
= lens _gpdvdpeqivEstimatedProbability
(\ s a -> s{_gpdvdpeqivEstimatedProbability = a})
. mapping _Coerce
gpdvdpeqivQuasiIdsValues :: Lens' GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues [GooglePrivacyDlpV2Value]
gpdvdpeqivQuasiIdsValues
= lens _gpdvdpeqivQuasiIdsValues
(\ s a -> s{_gpdvdpeqivQuasiIdsValues = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues
where
parseJSON
= withObject
"GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues"
(\ o ->
GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues'
<$>
(o .:? "estimatedProbability") <*>
(o .:? "quasiIdsValues" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues
where
toJSON
GooglePrivacyDlpV2DeltaPresenceEstimationQuasiIdValues'{..}
= object
(catMaybes
[("estimatedProbability" .=) <$>
_gpdvdpeqivEstimatedProbability,
("quasiIdsValues" .=) <$> _gpdvdpeqivQuasiIdsValues])
data GooglePrivacyDlpV2CharsToIgnore =
GooglePrivacyDlpV2CharsToIgnore'
{ _gpdvctiCommonCharactersToIgnore :: !(Maybe GooglePrivacyDlpV2CharsToIgnoreCommonCharactersToIgnore)
, _gpdvctiCharactersToSkip :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CharsToIgnore
:: GooglePrivacyDlpV2CharsToIgnore
googlePrivacyDlpV2CharsToIgnore =
GooglePrivacyDlpV2CharsToIgnore'
{ _gpdvctiCommonCharactersToIgnore = Nothing
, _gpdvctiCharactersToSkip = Nothing
}
gpdvctiCommonCharactersToIgnore :: Lens' GooglePrivacyDlpV2CharsToIgnore (Maybe GooglePrivacyDlpV2CharsToIgnoreCommonCharactersToIgnore)
gpdvctiCommonCharactersToIgnore
= lens _gpdvctiCommonCharactersToIgnore
(\ s a -> s{_gpdvctiCommonCharactersToIgnore = a})
gpdvctiCharactersToSkip :: Lens' GooglePrivacyDlpV2CharsToIgnore (Maybe Text)
gpdvctiCharactersToSkip
= lens _gpdvctiCharactersToSkip
(\ s a -> s{_gpdvctiCharactersToSkip = a})
instance FromJSON GooglePrivacyDlpV2CharsToIgnore
where
parseJSON
= withObject "GooglePrivacyDlpV2CharsToIgnore"
(\ o ->
GooglePrivacyDlpV2CharsToIgnore' <$>
(o .:? "commonCharactersToIgnore") <*>
(o .:? "charactersToSkip"))
instance ToJSON GooglePrivacyDlpV2CharsToIgnore where
toJSON GooglePrivacyDlpV2CharsToIgnore'{..}
= object
(catMaybes
[("commonCharactersToIgnore" .=) <$>
_gpdvctiCommonCharactersToIgnore,
("charactersToSkip" .=) <$>
_gpdvctiCharactersToSkip])
data GooglePrivacyDlpV2BigQueryTable =
GooglePrivacyDlpV2BigQueryTable'
{ _gpdvbqtDataSetId :: !(Maybe Text)
, _gpdvbqtProjectId :: !(Maybe Text)
, _gpdvbqtTableId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2BigQueryTable
:: GooglePrivacyDlpV2BigQueryTable
googlePrivacyDlpV2BigQueryTable =
GooglePrivacyDlpV2BigQueryTable'
{ _gpdvbqtDataSetId = Nothing
, _gpdvbqtProjectId = Nothing
, _gpdvbqtTableId = Nothing
}
gpdvbqtDataSetId :: Lens' GooglePrivacyDlpV2BigQueryTable (Maybe Text)
gpdvbqtDataSetId
= lens _gpdvbqtDataSetId
(\ s a -> s{_gpdvbqtDataSetId = a})
gpdvbqtProjectId :: Lens' GooglePrivacyDlpV2BigQueryTable (Maybe Text)
gpdvbqtProjectId
= lens _gpdvbqtProjectId
(\ s a -> s{_gpdvbqtProjectId = a})
gpdvbqtTableId :: Lens' GooglePrivacyDlpV2BigQueryTable (Maybe Text)
gpdvbqtTableId
= lens _gpdvbqtTableId
(\ s a -> s{_gpdvbqtTableId = a})
instance FromJSON GooglePrivacyDlpV2BigQueryTable
where
parseJSON
= withObject "GooglePrivacyDlpV2BigQueryTable"
(\ o ->
GooglePrivacyDlpV2BigQueryTable' <$>
(o .:? "datasetId") <*> (o .:? "projectId") <*>
(o .:? "tableId"))
instance ToJSON GooglePrivacyDlpV2BigQueryTable where
toJSON GooglePrivacyDlpV2BigQueryTable'{..}
= object
(catMaybes
[("datasetId" .=) <$> _gpdvbqtDataSetId,
("projectId" .=) <$> _gpdvbqtProjectId,
("tableId" .=) <$> _gpdvbqtTableId])
data GooglePrivacyDlpV2RequestedOptions =
GooglePrivacyDlpV2RequestedOptions'
{ _gpdvroSnapshotInspectTemplate :: !(Maybe GooglePrivacyDlpV2InspectTemplate)
, _gpdvroJobConfig :: !(Maybe GooglePrivacyDlpV2InspectJobConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RequestedOptions
:: GooglePrivacyDlpV2RequestedOptions
googlePrivacyDlpV2RequestedOptions =
GooglePrivacyDlpV2RequestedOptions'
{_gpdvroSnapshotInspectTemplate = Nothing, _gpdvroJobConfig = Nothing}
gpdvroSnapshotInspectTemplate :: Lens' GooglePrivacyDlpV2RequestedOptions (Maybe GooglePrivacyDlpV2InspectTemplate)
gpdvroSnapshotInspectTemplate
= lens _gpdvroSnapshotInspectTemplate
(\ s a -> s{_gpdvroSnapshotInspectTemplate = a})
gpdvroJobConfig :: Lens' GooglePrivacyDlpV2RequestedOptions (Maybe GooglePrivacyDlpV2InspectJobConfig)
gpdvroJobConfig
= lens _gpdvroJobConfig
(\ s a -> s{_gpdvroJobConfig = a})
instance FromJSON GooglePrivacyDlpV2RequestedOptions
where
parseJSON
= withObject "GooglePrivacyDlpV2RequestedOptions"
(\ o ->
GooglePrivacyDlpV2RequestedOptions' <$>
(o .:? "snapshotInspectTemplate") <*>
(o .:? "jobConfig"))
instance ToJSON GooglePrivacyDlpV2RequestedOptions
where
toJSON GooglePrivacyDlpV2RequestedOptions'{..}
= object
(catMaybes
[("snapshotInspectTemplate" .=) <$>
_gpdvroSnapshotInspectTemplate,
("jobConfig" .=) <$> _gpdvroJobConfig])
data GooglePrivacyDlpV2PrimitiveTransformation =
GooglePrivacyDlpV2PrimitiveTransformation'
{ _gpdvptFixedSizeBucketingConfig :: !(Maybe GooglePrivacyDlpV2FixedSizeBucketingConfig)
, _gpdvptRedactConfig :: !(Maybe GooglePrivacyDlpV2RedactConfig)
, _gpdvptCharacterMaskConfig :: !(Maybe GooglePrivacyDlpV2CharacterMaskConfig)
, _gpdvptTimePartConfig :: !(Maybe GooglePrivacyDlpV2TimePartConfig)
, _gpdvptDateShiftConfig :: !(Maybe GooglePrivacyDlpV2DateShiftConfig)
, _gpdvptBucketingConfig :: !(Maybe GooglePrivacyDlpV2BucketingConfig)
, _gpdvptReplaceWithInfoTypeConfig :: !(Maybe GooglePrivacyDlpV2ReplaceWithInfoTypeConfig)
, _gpdvptCryptoDeterministicConfig :: !(Maybe GooglePrivacyDlpV2CryptoDeterministicConfig)
, _gpdvptCryptoHashConfig :: !(Maybe GooglePrivacyDlpV2CryptoHashConfig)
, _gpdvptReplaceConfig :: !(Maybe GooglePrivacyDlpV2ReplaceValueConfig)
, _gpdvptCryptoReplaceFfxFpeConfig :: !(Maybe GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2PrimitiveTransformation
:: GooglePrivacyDlpV2PrimitiveTransformation
googlePrivacyDlpV2PrimitiveTransformation =
GooglePrivacyDlpV2PrimitiveTransformation'
{ _gpdvptFixedSizeBucketingConfig = Nothing
, _gpdvptRedactConfig = Nothing
, _gpdvptCharacterMaskConfig = Nothing
, _gpdvptTimePartConfig = Nothing
, _gpdvptDateShiftConfig = Nothing
, _gpdvptBucketingConfig = Nothing
, _gpdvptReplaceWithInfoTypeConfig = Nothing
, _gpdvptCryptoDeterministicConfig = Nothing
, _gpdvptCryptoHashConfig = Nothing
, _gpdvptReplaceConfig = Nothing
, _gpdvptCryptoReplaceFfxFpeConfig = Nothing
}
gpdvptFixedSizeBucketingConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2FixedSizeBucketingConfig)
gpdvptFixedSizeBucketingConfig
= lens _gpdvptFixedSizeBucketingConfig
(\ s a -> s{_gpdvptFixedSizeBucketingConfig = a})
gpdvptRedactConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2RedactConfig)
gpdvptRedactConfig
= lens _gpdvptRedactConfig
(\ s a -> s{_gpdvptRedactConfig = a})
gpdvptCharacterMaskConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2CharacterMaskConfig)
gpdvptCharacterMaskConfig
= lens _gpdvptCharacterMaskConfig
(\ s a -> s{_gpdvptCharacterMaskConfig = a})
gpdvptTimePartConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2TimePartConfig)
gpdvptTimePartConfig
= lens _gpdvptTimePartConfig
(\ s a -> s{_gpdvptTimePartConfig = a})
gpdvptDateShiftConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2DateShiftConfig)
gpdvptDateShiftConfig
= lens _gpdvptDateShiftConfig
(\ s a -> s{_gpdvptDateShiftConfig = a})
gpdvptBucketingConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2BucketingConfig)
gpdvptBucketingConfig
= lens _gpdvptBucketingConfig
(\ s a -> s{_gpdvptBucketingConfig = a})
gpdvptReplaceWithInfoTypeConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2ReplaceWithInfoTypeConfig)
gpdvptReplaceWithInfoTypeConfig
= lens _gpdvptReplaceWithInfoTypeConfig
(\ s a -> s{_gpdvptReplaceWithInfoTypeConfig = a})
gpdvptCryptoDeterministicConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2CryptoDeterministicConfig)
gpdvptCryptoDeterministicConfig
= lens _gpdvptCryptoDeterministicConfig
(\ s a -> s{_gpdvptCryptoDeterministicConfig = a})
gpdvptCryptoHashConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2CryptoHashConfig)
gpdvptCryptoHashConfig
= lens _gpdvptCryptoHashConfig
(\ s a -> s{_gpdvptCryptoHashConfig = a})
gpdvptReplaceConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2ReplaceValueConfig)
gpdvptReplaceConfig
= lens _gpdvptReplaceConfig
(\ s a -> s{_gpdvptReplaceConfig = a})
gpdvptCryptoReplaceFfxFpeConfig :: Lens' GooglePrivacyDlpV2PrimitiveTransformation (Maybe GooglePrivacyDlpV2CryptoReplaceFfxFpeConfig)
gpdvptCryptoReplaceFfxFpeConfig
= lens _gpdvptCryptoReplaceFfxFpeConfig
(\ s a -> s{_gpdvptCryptoReplaceFfxFpeConfig = a})
instance FromJSON
GooglePrivacyDlpV2PrimitiveTransformation
where
parseJSON
= withObject
"GooglePrivacyDlpV2PrimitiveTransformation"
(\ o ->
GooglePrivacyDlpV2PrimitiveTransformation' <$>
(o .:? "fixedSizeBucketingConfig") <*>
(o .:? "redactConfig")
<*> (o .:? "characterMaskConfig")
<*> (o .:? "timePartConfig")
<*> (o .:? "dateShiftConfig")
<*> (o .:? "bucketingConfig")
<*> (o .:? "replaceWithInfoTypeConfig")
<*> (o .:? "cryptoDeterministicConfig")
<*> (o .:? "cryptoHashConfig")
<*> (o .:? "replaceConfig")
<*> (o .:? "cryptoReplaceFfxFpeConfig"))
instance ToJSON
GooglePrivacyDlpV2PrimitiveTransformation
where
toJSON GooglePrivacyDlpV2PrimitiveTransformation'{..}
= object
(catMaybes
[("fixedSizeBucketingConfig" .=) <$>
_gpdvptFixedSizeBucketingConfig,
("redactConfig" .=) <$> _gpdvptRedactConfig,
("characterMaskConfig" .=) <$>
_gpdvptCharacterMaskConfig,
("timePartConfig" .=) <$> _gpdvptTimePartConfig,
("dateShiftConfig" .=) <$> _gpdvptDateShiftConfig,
("bucketingConfig" .=) <$> _gpdvptBucketingConfig,
("replaceWithInfoTypeConfig" .=) <$>
_gpdvptReplaceWithInfoTypeConfig,
("cryptoDeterministicConfig" .=) <$>
_gpdvptCryptoDeterministicConfig,
("cryptoHashConfig" .=) <$> _gpdvptCryptoHashConfig,
("replaceConfig" .=) <$> _gpdvptReplaceConfig,
("cryptoReplaceFfxFpeConfig" .=) <$>
_gpdvptCryptoReplaceFfxFpeConfig])
data GooglePrivacyDlpV2CancelDlpJobRequest =
GooglePrivacyDlpV2CancelDlpJobRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CancelDlpJobRequest
:: GooglePrivacyDlpV2CancelDlpJobRequest
googlePrivacyDlpV2CancelDlpJobRequest = GooglePrivacyDlpV2CancelDlpJobRequest'
instance FromJSON
GooglePrivacyDlpV2CancelDlpJobRequest
where
parseJSON
= withObject "GooglePrivacyDlpV2CancelDlpJobRequest"
(\ o -> pure GooglePrivacyDlpV2CancelDlpJobRequest')
instance ToJSON GooglePrivacyDlpV2CancelDlpJobRequest
where
toJSON = const emptyObject
data GooglePrivacyDlpV2RecordLocation =
GooglePrivacyDlpV2RecordLocation'
{ _gpdvrlTableLocation :: !(Maybe GooglePrivacyDlpV2TableLocation)
, _gpdvrlFieldId :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvrlRecordKey :: !(Maybe GooglePrivacyDlpV2RecordKey)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2RecordLocation
:: GooglePrivacyDlpV2RecordLocation
googlePrivacyDlpV2RecordLocation =
GooglePrivacyDlpV2RecordLocation'
{ _gpdvrlTableLocation = Nothing
, _gpdvrlFieldId = Nothing
, _gpdvrlRecordKey = Nothing
}
gpdvrlTableLocation :: Lens' GooglePrivacyDlpV2RecordLocation (Maybe GooglePrivacyDlpV2TableLocation)
gpdvrlTableLocation
= lens _gpdvrlTableLocation
(\ s a -> s{_gpdvrlTableLocation = a})
gpdvrlFieldId :: Lens' GooglePrivacyDlpV2RecordLocation (Maybe GooglePrivacyDlpV2FieldId)
gpdvrlFieldId
= lens _gpdvrlFieldId
(\ s a -> s{_gpdvrlFieldId = a})
gpdvrlRecordKey :: Lens' GooglePrivacyDlpV2RecordLocation (Maybe GooglePrivacyDlpV2RecordKey)
gpdvrlRecordKey
= lens _gpdvrlRecordKey
(\ s a -> s{_gpdvrlRecordKey = a})
instance FromJSON GooglePrivacyDlpV2RecordLocation
where
parseJSON
= withObject "GooglePrivacyDlpV2RecordLocation"
(\ o ->
GooglePrivacyDlpV2RecordLocation' <$>
(o .:? "tableLocation") <*> (o .:? "fieldId") <*>
(o .:? "recordKey"))
instance ToJSON GooglePrivacyDlpV2RecordLocation
where
toJSON GooglePrivacyDlpV2RecordLocation'{..}
= object
(catMaybes
[("tableLocation" .=) <$> _gpdvrlTableLocation,
("fieldId" .=) <$> _gpdvrlFieldId,
("recordKey" .=) <$> _gpdvrlRecordKey])
data GooglePrivacyDlpV2Error =
GooglePrivacyDlpV2Error'
{ _gpdveDetails :: !(Maybe GoogleRpcStatus)
, _gpdveTimestamps :: !(Maybe [DateTime'])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Error
:: GooglePrivacyDlpV2Error
googlePrivacyDlpV2Error =
GooglePrivacyDlpV2Error' {_gpdveDetails = Nothing, _gpdveTimestamps = Nothing}
gpdveDetails :: Lens' GooglePrivacyDlpV2Error (Maybe GoogleRpcStatus)
gpdveDetails
= lens _gpdveDetails (\ s a -> s{_gpdveDetails = a})
gpdveTimestamps :: Lens' GooglePrivacyDlpV2Error [UTCTime]
gpdveTimestamps
= lens _gpdveTimestamps
(\ s a -> s{_gpdveTimestamps = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2Error where
parseJSON
= withObject "GooglePrivacyDlpV2Error"
(\ o ->
GooglePrivacyDlpV2Error' <$>
(o .:? "details") <*>
(o .:? "timestamps" .!= mempty))
instance ToJSON GooglePrivacyDlpV2Error where
toJSON GooglePrivacyDlpV2Error'{..}
= object
(catMaybes
[("details" .=) <$> _gpdveDetails,
("timestamps" .=) <$> _gpdveTimestamps])
data GooglePrivacyDlpV2StoredInfoType =
GooglePrivacyDlpV2StoredInfoType'
{ _gpdvsitCurrentVersion :: !(Maybe GooglePrivacyDlpV2StoredInfoTypeVersion)
, _gpdvsitName :: !(Maybe Text)
, _gpdvsitPendingVersions :: !(Maybe [GooglePrivacyDlpV2StoredInfoTypeVersion])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2StoredInfoType
:: GooglePrivacyDlpV2StoredInfoType
googlePrivacyDlpV2StoredInfoType =
GooglePrivacyDlpV2StoredInfoType'
{ _gpdvsitCurrentVersion = Nothing
, _gpdvsitName = Nothing
, _gpdvsitPendingVersions = Nothing
}
gpdvsitCurrentVersion :: Lens' GooglePrivacyDlpV2StoredInfoType (Maybe GooglePrivacyDlpV2StoredInfoTypeVersion)
gpdvsitCurrentVersion
= lens _gpdvsitCurrentVersion
(\ s a -> s{_gpdvsitCurrentVersion = a})
gpdvsitName :: Lens' GooglePrivacyDlpV2StoredInfoType (Maybe Text)
gpdvsitName
= lens _gpdvsitName (\ s a -> s{_gpdvsitName = a})
gpdvsitPendingVersions :: Lens' GooglePrivacyDlpV2StoredInfoType [GooglePrivacyDlpV2StoredInfoTypeVersion]
gpdvsitPendingVersions
= lens _gpdvsitPendingVersions
(\ s a -> s{_gpdvsitPendingVersions = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2StoredInfoType
where
parseJSON
= withObject "GooglePrivacyDlpV2StoredInfoType"
(\ o ->
GooglePrivacyDlpV2StoredInfoType' <$>
(o .:? "currentVersion") <*> (o .:? "name") <*>
(o .:? "pendingVersions" .!= mempty))
instance ToJSON GooglePrivacyDlpV2StoredInfoType
where
toJSON GooglePrivacyDlpV2StoredInfoType'{..}
= object
(catMaybes
[("currentVersion" .=) <$> _gpdvsitCurrentVersion,
("name" .=) <$> _gpdvsitName,
("pendingVersions" .=) <$> _gpdvsitPendingVersions])
data GooglePrivacyDlpV2CryptoDeterministicConfig =
GooglePrivacyDlpV2CryptoDeterministicConfig'
{ _gpdvcdcContext :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvcdcSurrogateInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvcdcCryptoKey :: !(Maybe GooglePrivacyDlpV2CryptoKey)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CryptoDeterministicConfig
:: GooglePrivacyDlpV2CryptoDeterministicConfig
googlePrivacyDlpV2CryptoDeterministicConfig =
GooglePrivacyDlpV2CryptoDeterministicConfig'
{ _gpdvcdcContext = Nothing
, _gpdvcdcSurrogateInfoType = Nothing
, _gpdvcdcCryptoKey = Nothing
}
gpdvcdcContext :: Lens' GooglePrivacyDlpV2CryptoDeterministicConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvcdcContext
= lens _gpdvcdcContext
(\ s a -> s{_gpdvcdcContext = a})
gpdvcdcSurrogateInfoType :: Lens' GooglePrivacyDlpV2CryptoDeterministicConfig (Maybe GooglePrivacyDlpV2InfoType)
gpdvcdcSurrogateInfoType
= lens _gpdvcdcSurrogateInfoType
(\ s a -> s{_gpdvcdcSurrogateInfoType = a})
gpdvcdcCryptoKey :: Lens' GooglePrivacyDlpV2CryptoDeterministicConfig (Maybe GooglePrivacyDlpV2CryptoKey)
gpdvcdcCryptoKey
= lens _gpdvcdcCryptoKey
(\ s a -> s{_gpdvcdcCryptoKey = a})
instance FromJSON
GooglePrivacyDlpV2CryptoDeterministicConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2CryptoDeterministicConfig"
(\ o ->
GooglePrivacyDlpV2CryptoDeterministicConfig' <$>
(o .:? "context") <*> (o .:? "surrogateInfoType") <*>
(o .:? "cryptoKey"))
instance ToJSON
GooglePrivacyDlpV2CryptoDeterministicConfig
where
toJSON
GooglePrivacyDlpV2CryptoDeterministicConfig'{..}
= object
(catMaybes
[("context" .=) <$> _gpdvcdcContext,
("surrogateInfoType" .=) <$>
_gpdvcdcSurrogateInfoType,
("cryptoKey" .=) <$> _gpdvcdcCryptoKey])
data GooglePrivacyDlpV2StatisticalTable =
GooglePrivacyDlpV2StatisticalTable'
{ _gpdvstRelativeFrequency :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvstTable :: !(Maybe GooglePrivacyDlpV2BigQueryTable)
, _gpdvstQuasiIds :: !(Maybe [GooglePrivacyDlpV2QuasiIdentifierField])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2StatisticalTable
:: GooglePrivacyDlpV2StatisticalTable
googlePrivacyDlpV2StatisticalTable =
GooglePrivacyDlpV2StatisticalTable'
{ _gpdvstRelativeFrequency = Nothing
, _gpdvstTable = Nothing
, _gpdvstQuasiIds = Nothing
}
gpdvstRelativeFrequency :: Lens' GooglePrivacyDlpV2StatisticalTable (Maybe GooglePrivacyDlpV2FieldId)
gpdvstRelativeFrequency
= lens _gpdvstRelativeFrequency
(\ s a -> s{_gpdvstRelativeFrequency = a})
gpdvstTable :: Lens' GooglePrivacyDlpV2StatisticalTable (Maybe GooglePrivacyDlpV2BigQueryTable)
gpdvstTable
= lens _gpdvstTable (\ s a -> s{_gpdvstTable = a})
gpdvstQuasiIds :: Lens' GooglePrivacyDlpV2StatisticalTable [GooglePrivacyDlpV2QuasiIdentifierField]
gpdvstQuasiIds
= lens _gpdvstQuasiIds
(\ s a -> s{_gpdvstQuasiIds = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2StatisticalTable
where
parseJSON
= withObject "GooglePrivacyDlpV2StatisticalTable"
(\ o ->
GooglePrivacyDlpV2StatisticalTable' <$>
(o .:? "relativeFrequency") <*> (o .:? "table") <*>
(o .:? "quasiIds" .!= mempty))
instance ToJSON GooglePrivacyDlpV2StatisticalTable
where
toJSON GooglePrivacyDlpV2StatisticalTable'{..}
= object
(catMaybes
[("relativeFrequency" .=) <$>
_gpdvstRelativeFrequency,
("table" .=) <$> _gpdvstTable,
("quasiIds" .=) <$> _gpdvstQuasiIds])
data GooglePrivacyDlpV2DeidentifyTemplate =
GooglePrivacyDlpV2DeidentifyTemplate'
{ _gpdvdtUpdateTime :: !(Maybe DateTime')
, _gpdvdtName :: !(Maybe Text)
, _gpdvdtDeidentifyConfig :: !(Maybe GooglePrivacyDlpV2DeidentifyConfig)
, _gpdvdtDisplayName :: !(Maybe Text)
, _gpdvdtDescription :: !(Maybe Text)
, _gpdvdtCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DeidentifyTemplate
:: GooglePrivacyDlpV2DeidentifyTemplate
googlePrivacyDlpV2DeidentifyTemplate =
GooglePrivacyDlpV2DeidentifyTemplate'
{ _gpdvdtUpdateTime = Nothing
, _gpdvdtName = Nothing
, _gpdvdtDeidentifyConfig = Nothing
, _gpdvdtDisplayName = Nothing
, _gpdvdtDescription = Nothing
, _gpdvdtCreateTime = Nothing
}
gpdvdtUpdateTime :: Lens' GooglePrivacyDlpV2DeidentifyTemplate (Maybe UTCTime)
gpdvdtUpdateTime
= lens _gpdvdtUpdateTime
(\ s a -> s{_gpdvdtUpdateTime = a})
. mapping _DateTime
gpdvdtName :: Lens' GooglePrivacyDlpV2DeidentifyTemplate (Maybe Text)
gpdvdtName
= lens _gpdvdtName (\ s a -> s{_gpdvdtName = a})
gpdvdtDeidentifyConfig :: Lens' GooglePrivacyDlpV2DeidentifyTemplate (Maybe GooglePrivacyDlpV2DeidentifyConfig)
gpdvdtDeidentifyConfig
= lens _gpdvdtDeidentifyConfig
(\ s a -> s{_gpdvdtDeidentifyConfig = a})
gpdvdtDisplayName :: Lens' GooglePrivacyDlpV2DeidentifyTemplate (Maybe Text)
gpdvdtDisplayName
= lens _gpdvdtDisplayName
(\ s a -> s{_gpdvdtDisplayName = a})
gpdvdtDescription :: Lens' GooglePrivacyDlpV2DeidentifyTemplate (Maybe Text)
gpdvdtDescription
= lens _gpdvdtDescription
(\ s a -> s{_gpdvdtDescription = a})
gpdvdtCreateTime :: Lens' GooglePrivacyDlpV2DeidentifyTemplate (Maybe UTCTime)
gpdvdtCreateTime
= lens _gpdvdtCreateTime
(\ s a -> s{_gpdvdtCreateTime = a})
. mapping _DateTime
instance FromJSON
GooglePrivacyDlpV2DeidentifyTemplate
where
parseJSON
= withObject "GooglePrivacyDlpV2DeidentifyTemplate"
(\ o ->
GooglePrivacyDlpV2DeidentifyTemplate' <$>
(o .:? "updateTime") <*> (o .:? "name") <*>
(o .:? "deidentifyConfig")
<*> (o .:? "displayName")
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON GooglePrivacyDlpV2DeidentifyTemplate
where
toJSON GooglePrivacyDlpV2DeidentifyTemplate'{..}
= object
(catMaybes
[("updateTime" .=) <$> _gpdvdtUpdateTime,
("name" .=) <$> _gpdvdtName,
("deidentifyConfig" .=) <$> _gpdvdtDeidentifyConfig,
("displayName" .=) <$> _gpdvdtDisplayName,
("description" .=) <$> _gpdvdtDescription,
("createTime" .=) <$> _gpdvdtCreateTime])
newtype GooglePrivacyDlpV2ReplaceValueConfig =
GooglePrivacyDlpV2ReplaceValueConfig'
{ _gpdvrvcNewValue :: Maybe GooglePrivacyDlpV2Value
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ReplaceValueConfig
:: GooglePrivacyDlpV2ReplaceValueConfig
googlePrivacyDlpV2ReplaceValueConfig =
GooglePrivacyDlpV2ReplaceValueConfig' {_gpdvrvcNewValue = Nothing}
gpdvrvcNewValue :: Lens' GooglePrivacyDlpV2ReplaceValueConfig (Maybe GooglePrivacyDlpV2Value)
gpdvrvcNewValue
= lens _gpdvrvcNewValue
(\ s a -> s{_gpdvrvcNewValue = a})
instance FromJSON
GooglePrivacyDlpV2ReplaceValueConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2ReplaceValueConfig"
(\ o ->
GooglePrivacyDlpV2ReplaceValueConfig' <$>
(o .:? "newValue"))
instance ToJSON GooglePrivacyDlpV2ReplaceValueConfig
where
toJSON GooglePrivacyDlpV2ReplaceValueConfig'{..}
= object
(catMaybes [("newValue" .=) <$> _gpdvrvcNewValue])
newtype GooglePrivacyDlpV2CategoricalStatsConfig =
GooglePrivacyDlpV2CategoricalStatsConfig'
{ _gpdvcscField :: Maybe GooglePrivacyDlpV2FieldId
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CategoricalStatsConfig
:: GooglePrivacyDlpV2CategoricalStatsConfig
googlePrivacyDlpV2CategoricalStatsConfig =
GooglePrivacyDlpV2CategoricalStatsConfig' {_gpdvcscField = Nothing}
gpdvcscField :: Lens' GooglePrivacyDlpV2CategoricalStatsConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvcscField
= lens _gpdvcscField (\ s a -> s{_gpdvcscField = a})
instance FromJSON
GooglePrivacyDlpV2CategoricalStatsConfig
where
parseJSON
= withObject
"GooglePrivacyDlpV2CategoricalStatsConfig"
(\ o ->
GooglePrivacyDlpV2CategoricalStatsConfig' <$>
(o .:? "field"))
instance ToJSON
GooglePrivacyDlpV2CategoricalStatsConfig
where
toJSON GooglePrivacyDlpV2CategoricalStatsConfig'{..}
= object (catMaybes [("field" .=) <$> _gpdvcscField])
newtype GooglePrivacyDlpV2NumericalStatsConfig =
GooglePrivacyDlpV2NumericalStatsConfig'
{ _gpdvnscField :: Maybe GooglePrivacyDlpV2FieldId
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2NumericalStatsConfig
:: GooglePrivacyDlpV2NumericalStatsConfig
googlePrivacyDlpV2NumericalStatsConfig =
GooglePrivacyDlpV2NumericalStatsConfig' {_gpdvnscField = Nothing}
gpdvnscField :: Lens' GooglePrivacyDlpV2NumericalStatsConfig (Maybe GooglePrivacyDlpV2FieldId)
gpdvnscField
= lens _gpdvnscField (\ s a -> s{_gpdvnscField = a})
instance FromJSON
GooglePrivacyDlpV2NumericalStatsConfig
where
parseJSON
= withObject "GooglePrivacyDlpV2NumericalStatsConfig"
(\ o ->
GooglePrivacyDlpV2NumericalStatsConfig' <$>
(o .:? "field"))
instance ToJSON
GooglePrivacyDlpV2NumericalStatsConfig
where
toJSON GooglePrivacyDlpV2NumericalStatsConfig'{..}
= object (catMaybes [("field" .=) <$> _gpdvnscField])
data GooglePrivacyDlpV2ListJobTriggersResponse =
GooglePrivacyDlpV2ListJobTriggersResponse'
{ _gpdvljtrNextPageToken :: !(Maybe Text)
, _gpdvljtrJobTriggers :: !(Maybe [GooglePrivacyDlpV2JobTrigger])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ListJobTriggersResponse
:: GooglePrivacyDlpV2ListJobTriggersResponse
googlePrivacyDlpV2ListJobTriggersResponse =
GooglePrivacyDlpV2ListJobTriggersResponse'
{_gpdvljtrNextPageToken = Nothing, _gpdvljtrJobTriggers = Nothing}
gpdvljtrNextPageToken :: Lens' GooglePrivacyDlpV2ListJobTriggersResponse (Maybe Text)
gpdvljtrNextPageToken
= lens _gpdvljtrNextPageToken
(\ s a -> s{_gpdvljtrNextPageToken = a})
gpdvljtrJobTriggers :: Lens' GooglePrivacyDlpV2ListJobTriggersResponse [GooglePrivacyDlpV2JobTrigger]
gpdvljtrJobTriggers
= lens _gpdvljtrJobTriggers
(\ s a -> s{_gpdvljtrJobTriggers = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2ListJobTriggersResponse
where
parseJSON
= withObject
"GooglePrivacyDlpV2ListJobTriggersResponse"
(\ o ->
GooglePrivacyDlpV2ListJobTriggersResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "jobTriggers" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2ListJobTriggersResponse
where
toJSON GooglePrivacyDlpV2ListJobTriggersResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gpdvljtrNextPageToken,
("jobTriggers" .=) <$> _gpdvljtrJobTriggers])
newtype GooglePrivacyDlpV2CloudStoragePath =
GooglePrivacyDlpV2CloudStoragePath'
{ _gpdvcspPath :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CloudStoragePath
:: GooglePrivacyDlpV2CloudStoragePath
googlePrivacyDlpV2CloudStoragePath =
GooglePrivacyDlpV2CloudStoragePath' {_gpdvcspPath = Nothing}
gpdvcspPath :: Lens' GooglePrivacyDlpV2CloudStoragePath (Maybe Text)
gpdvcspPath
= lens _gpdvcspPath (\ s a -> s{_gpdvcspPath = a})
instance FromJSON GooglePrivacyDlpV2CloudStoragePath
where
parseJSON
= withObject "GooglePrivacyDlpV2CloudStoragePath"
(\ o ->
GooglePrivacyDlpV2CloudStoragePath' <$>
(o .:? "path"))
instance ToJSON GooglePrivacyDlpV2CloudStoragePath
where
toJSON GooglePrivacyDlpV2CloudStoragePath'{..}
= object (catMaybes [("path" .=) <$> _gpdvcspPath])
data GooglePrivacyDlpV2Location =
GooglePrivacyDlpV2Location'
{ _gpdvlCodepointRange :: !(Maybe GooglePrivacyDlpV2Range)
, _gpdvlContentLocations :: !(Maybe [GooglePrivacyDlpV2ContentLocation])
, _gpdvlByteRange :: !(Maybe GooglePrivacyDlpV2Range)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Location
:: GooglePrivacyDlpV2Location
googlePrivacyDlpV2Location =
GooglePrivacyDlpV2Location'
{ _gpdvlCodepointRange = Nothing
, _gpdvlContentLocations = Nothing
, _gpdvlByteRange = Nothing
}
gpdvlCodepointRange :: Lens' GooglePrivacyDlpV2Location (Maybe GooglePrivacyDlpV2Range)
gpdvlCodepointRange
= lens _gpdvlCodepointRange
(\ s a -> s{_gpdvlCodepointRange = a})
gpdvlContentLocations :: Lens' GooglePrivacyDlpV2Location [GooglePrivacyDlpV2ContentLocation]
gpdvlContentLocations
= lens _gpdvlContentLocations
(\ s a -> s{_gpdvlContentLocations = a})
. _Default
. _Coerce
gpdvlByteRange :: Lens' GooglePrivacyDlpV2Location (Maybe GooglePrivacyDlpV2Range)
gpdvlByteRange
= lens _gpdvlByteRange
(\ s a -> s{_gpdvlByteRange = a})
instance FromJSON GooglePrivacyDlpV2Location where
parseJSON
= withObject "GooglePrivacyDlpV2Location"
(\ o ->
GooglePrivacyDlpV2Location' <$>
(o .:? "codepointRange") <*>
(o .:? "contentLocations" .!= mempty)
<*> (o .:? "byteRange"))
instance ToJSON GooglePrivacyDlpV2Location where
toJSON GooglePrivacyDlpV2Location'{..}
= object
(catMaybes
[("codepointRange" .=) <$> _gpdvlCodepointRange,
("contentLocations" .=) <$> _gpdvlContentLocations,
("byteRange" .=) <$> _gpdvlByteRange])
newtype GooglePrivacyDlpV2Schedule =
GooglePrivacyDlpV2Schedule'
{ _gpdvsRecurrencePeriodDuration :: Maybe GDuration
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2Schedule
:: GooglePrivacyDlpV2Schedule
googlePrivacyDlpV2Schedule =
GooglePrivacyDlpV2Schedule' {_gpdvsRecurrencePeriodDuration = Nothing}
gpdvsRecurrencePeriodDuration :: Lens' GooglePrivacyDlpV2Schedule (Maybe Scientific)
gpdvsRecurrencePeriodDuration
= lens _gpdvsRecurrencePeriodDuration
(\ s a -> s{_gpdvsRecurrencePeriodDuration = a})
. mapping _GDuration
instance FromJSON GooglePrivacyDlpV2Schedule where
parseJSON
= withObject "GooglePrivacyDlpV2Schedule"
(\ o ->
GooglePrivacyDlpV2Schedule' <$>
(o .:? "recurrencePeriodDuration"))
instance ToJSON GooglePrivacyDlpV2Schedule where
toJSON GooglePrivacyDlpV2Schedule'{..}
= object
(catMaybes
[("recurrencePeriodDuration" .=) <$>
_gpdvsRecurrencePeriodDuration])
data GooglePrivacyDlpV2CreateJobTriggerRequest =
GooglePrivacyDlpV2CreateJobTriggerRequest'
{ _gpdvcjtrTriggerId :: !(Maybe Text)
, _gpdvcjtrJobTrigger :: !(Maybe GooglePrivacyDlpV2JobTrigger)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2CreateJobTriggerRequest
:: GooglePrivacyDlpV2CreateJobTriggerRequest
googlePrivacyDlpV2CreateJobTriggerRequest =
GooglePrivacyDlpV2CreateJobTriggerRequest'
{_gpdvcjtrTriggerId = Nothing, _gpdvcjtrJobTrigger = Nothing}
gpdvcjtrTriggerId :: Lens' GooglePrivacyDlpV2CreateJobTriggerRequest (Maybe Text)
gpdvcjtrTriggerId
= lens _gpdvcjtrTriggerId
(\ s a -> s{_gpdvcjtrTriggerId = a})
gpdvcjtrJobTrigger :: Lens' GooglePrivacyDlpV2CreateJobTriggerRequest (Maybe GooglePrivacyDlpV2JobTrigger)
gpdvcjtrJobTrigger
= lens _gpdvcjtrJobTrigger
(\ s a -> s{_gpdvcjtrJobTrigger = a})
instance FromJSON
GooglePrivacyDlpV2CreateJobTriggerRequest
where
parseJSON
= withObject
"GooglePrivacyDlpV2CreateJobTriggerRequest"
(\ o ->
GooglePrivacyDlpV2CreateJobTriggerRequest' <$>
(o .:? "triggerId") <*> (o .:? "jobTrigger"))
instance ToJSON
GooglePrivacyDlpV2CreateJobTriggerRequest
where
toJSON GooglePrivacyDlpV2CreateJobTriggerRequest'{..}
= object
(catMaybes
[("triggerId" .=) <$> _gpdvcjtrTriggerId,
("jobTrigger" .=) <$> _gpdvcjtrJobTrigger])
data GooglePrivacyDlpV2TransformationOverview =
GooglePrivacyDlpV2TransformationOverview'
{ _gpdvtoTransformedBytes :: !(Maybe (Textual Int64))
, _gpdvtoTransformationSummaries :: !(Maybe [GooglePrivacyDlpV2TransformationSummary])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2TransformationOverview
:: GooglePrivacyDlpV2TransformationOverview
googlePrivacyDlpV2TransformationOverview =
GooglePrivacyDlpV2TransformationOverview'
{ _gpdvtoTransformedBytes = Nothing
, _gpdvtoTransformationSummaries = Nothing
}
gpdvtoTransformedBytes :: Lens' GooglePrivacyDlpV2TransformationOverview (Maybe Int64)
gpdvtoTransformedBytes
= lens _gpdvtoTransformedBytes
(\ s a -> s{_gpdvtoTransformedBytes = a})
. mapping _Coerce
gpdvtoTransformationSummaries :: Lens' GooglePrivacyDlpV2TransformationOverview [GooglePrivacyDlpV2TransformationSummary]
gpdvtoTransformationSummaries
= lens _gpdvtoTransformationSummaries
(\ s a -> s{_gpdvtoTransformationSummaries = a})
. _Default
. _Coerce
instance FromJSON
GooglePrivacyDlpV2TransformationOverview
where
parseJSON
= withObject
"GooglePrivacyDlpV2TransformationOverview"
(\ o ->
GooglePrivacyDlpV2TransformationOverview' <$>
(o .:? "transformedBytes") <*>
(o .:? "transformationSummaries" .!= mempty))
instance ToJSON
GooglePrivacyDlpV2TransformationOverview
where
toJSON GooglePrivacyDlpV2TransformationOverview'{..}
= object
(catMaybes
[("transformedBytes" .=) <$> _gpdvtoTransformedBytes,
("transformationSummaries" .=) <$>
_gpdvtoTransformationSummaries])
newtype GooglePrivacyDlpV2ImageLocation =
GooglePrivacyDlpV2ImageLocation'
{ _gpdvilBoundingBoxes :: Maybe [GooglePrivacyDlpV2BoundingBox]
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2ImageLocation
:: GooglePrivacyDlpV2ImageLocation
googlePrivacyDlpV2ImageLocation =
GooglePrivacyDlpV2ImageLocation' {_gpdvilBoundingBoxes = Nothing}
gpdvilBoundingBoxes :: Lens' GooglePrivacyDlpV2ImageLocation [GooglePrivacyDlpV2BoundingBox]
gpdvilBoundingBoxes
= lens _gpdvilBoundingBoxes
(\ s a -> s{_gpdvilBoundingBoxes = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2ImageLocation
where
parseJSON
= withObject "GooglePrivacyDlpV2ImageLocation"
(\ o ->
GooglePrivacyDlpV2ImageLocation' <$>
(o .:? "boundingBoxes" .!= mempty))
instance ToJSON GooglePrivacyDlpV2ImageLocation where
toJSON GooglePrivacyDlpV2ImageLocation'{..}
= object
(catMaybes
[("boundingBoxes" .=) <$> _gpdvilBoundingBoxes])
newtype GooglePrivacyDlpV2KindExpression =
GooglePrivacyDlpV2KindExpression'
{ _gpdvkeName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2KindExpression
:: GooglePrivacyDlpV2KindExpression
googlePrivacyDlpV2KindExpression =
GooglePrivacyDlpV2KindExpression' {_gpdvkeName = Nothing}
gpdvkeName :: Lens' GooglePrivacyDlpV2KindExpression (Maybe Text)
gpdvkeName
= lens _gpdvkeName (\ s a -> s{_gpdvkeName = a})
instance FromJSON GooglePrivacyDlpV2KindExpression
where
parseJSON
= withObject "GooglePrivacyDlpV2KindExpression"
(\ o ->
GooglePrivacyDlpV2KindExpression' <$> (o .:? "name"))
instance ToJSON GooglePrivacyDlpV2KindExpression
where
toJSON GooglePrivacyDlpV2KindExpression'{..}
= object (catMaybes [("name" .=) <$> _gpdvkeName])
data GooglePrivacyDlpV2PrivacyMetric =
GooglePrivacyDlpV2PrivacyMetric'
{ _gpdvpmNumericalStatsConfig :: !(Maybe GooglePrivacyDlpV2NumericalStatsConfig)
, _gpdvpmCategoricalStatsConfig :: !(Maybe GooglePrivacyDlpV2CategoricalStatsConfig)
, _gpdvpmKMapEstimationConfig :: !(Maybe GooglePrivacyDlpV2KMapEstimationConfig)
, _gpdvpmKAnonymityConfig :: !(Maybe GooglePrivacyDlpV2KAnonymityConfig)
, _gpdvpmLDiversityConfig :: !(Maybe GooglePrivacyDlpV2LDiversityConfig)
, _gpdvpmDeltaPresenceEstimationConfig :: !(Maybe GooglePrivacyDlpV2DeltaPresenceEstimationConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2PrivacyMetric
:: GooglePrivacyDlpV2PrivacyMetric
googlePrivacyDlpV2PrivacyMetric =
GooglePrivacyDlpV2PrivacyMetric'
{ _gpdvpmNumericalStatsConfig = Nothing
, _gpdvpmCategoricalStatsConfig = Nothing
, _gpdvpmKMapEstimationConfig = Nothing
, _gpdvpmKAnonymityConfig = Nothing
, _gpdvpmLDiversityConfig = Nothing
, _gpdvpmDeltaPresenceEstimationConfig = Nothing
}
gpdvpmNumericalStatsConfig :: Lens' GooglePrivacyDlpV2PrivacyMetric (Maybe GooglePrivacyDlpV2NumericalStatsConfig)
gpdvpmNumericalStatsConfig
= lens _gpdvpmNumericalStatsConfig
(\ s a -> s{_gpdvpmNumericalStatsConfig = a})
gpdvpmCategoricalStatsConfig :: Lens' GooglePrivacyDlpV2PrivacyMetric (Maybe GooglePrivacyDlpV2CategoricalStatsConfig)
gpdvpmCategoricalStatsConfig
= lens _gpdvpmCategoricalStatsConfig
(\ s a -> s{_gpdvpmCategoricalStatsConfig = a})
gpdvpmKMapEstimationConfig :: Lens' GooglePrivacyDlpV2PrivacyMetric (Maybe GooglePrivacyDlpV2KMapEstimationConfig)
gpdvpmKMapEstimationConfig
= lens _gpdvpmKMapEstimationConfig
(\ s a -> s{_gpdvpmKMapEstimationConfig = a})
gpdvpmKAnonymityConfig :: Lens' GooglePrivacyDlpV2PrivacyMetric (Maybe GooglePrivacyDlpV2KAnonymityConfig)
gpdvpmKAnonymityConfig
= lens _gpdvpmKAnonymityConfig
(\ s a -> s{_gpdvpmKAnonymityConfig = a})
gpdvpmLDiversityConfig :: Lens' GooglePrivacyDlpV2PrivacyMetric (Maybe GooglePrivacyDlpV2LDiversityConfig)
gpdvpmLDiversityConfig
= lens _gpdvpmLDiversityConfig
(\ s a -> s{_gpdvpmLDiversityConfig = a})
gpdvpmDeltaPresenceEstimationConfig :: Lens' GooglePrivacyDlpV2PrivacyMetric (Maybe GooglePrivacyDlpV2DeltaPresenceEstimationConfig)
gpdvpmDeltaPresenceEstimationConfig
= lens _gpdvpmDeltaPresenceEstimationConfig
(\ s a ->
s{_gpdvpmDeltaPresenceEstimationConfig = a})
instance FromJSON GooglePrivacyDlpV2PrivacyMetric
where
parseJSON
= withObject "GooglePrivacyDlpV2PrivacyMetric"
(\ o ->
GooglePrivacyDlpV2PrivacyMetric' <$>
(o .:? "numericalStatsConfig") <*>
(o .:? "categoricalStatsConfig")
<*> (o .:? "kMapEstimationConfig")
<*> (o .:? "kAnonymityConfig")
<*> (o .:? "lDiversityConfig")
<*> (o .:? "deltaPresenceEstimationConfig"))
instance ToJSON GooglePrivacyDlpV2PrivacyMetric where
toJSON GooglePrivacyDlpV2PrivacyMetric'{..}
= object
(catMaybes
[("numericalStatsConfig" .=) <$>
_gpdvpmNumericalStatsConfig,
("categoricalStatsConfig" .=) <$>
_gpdvpmCategoricalStatsConfig,
("kMapEstimationConfig" .=) <$>
_gpdvpmKMapEstimationConfig,
("kAnonymityConfig" .=) <$> _gpdvpmKAnonymityConfig,
("lDiversityConfig" .=) <$> _gpdvpmLDiversityConfig,
("deltaPresenceEstimationConfig" .=) <$>
_gpdvpmDeltaPresenceEstimationConfig])
newtype GooglePrivacyDlpV2UnwrAppedCryptoKey =
GooglePrivacyDlpV2UnwrAppedCryptoKey'
{ _gpdvuackKey :: Maybe Bytes
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2UnwrAppedCryptoKey
:: GooglePrivacyDlpV2UnwrAppedCryptoKey
googlePrivacyDlpV2UnwrAppedCryptoKey =
GooglePrivacyDlpV2UnwrAppedCryptoKey' {_gpdvuackKey = Nothing}
gpdvuackKey :: Lens' GooglePrivacyDlpV2UnwrAppedCryptoKey (Maybe ByteString)
gpdvuackKey
= lens _gpdvuackKey (\ s a -> s{_gpdvuackKey = a}) .
mapping _Bytes
instance FromJSON
GooglePrivacyDlpV2UnwrAppedCryptoKey
where
parseJSON
= withObject "GooglePrivacyDlpV2UnwrAppedCryptoKey"
(\ o ->
GooglePrivacyDlpV2UnwrAppedCryptoKey' <$>
(o .:? "key"))
instance ToJSON GooglePrivacyDlpV2UnwrAppedCryptoKey
where
toJSON GooglePrivacyDlpV2UnwrAppedCryptoKey'{..}
= object (catMaybes [("key" .=) <$> _gpdvuackKey])
data GooglePrivacyDlpV2InspectionRuleSet =
GooglePrivacyDlpV2InspectionRuleSet'
{ _gpdvirsRules :: !(Maybe [GooglePrivacyDlpV2InspectionRule])
, _gpdvirsInfoTypes :: !(Maybe [GooglePrivacyDlpV2InfoType])
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2InspectionRuleSet
:: GooglePrivacyDlpV2InspectionRuleSet
googlePrivacyDlpV2InspectionRuleSet =
GooglePrivacyDlpV2InspectionRuleSet'
{_gpdvirsRules = Nothing, _gpdvirsInfoTypes = Nothing}
gpdvirsRules :: Lens' GooglePrivacyDlpV2InspectionRuleSet [GooglePrivacyDlpV2InspectionRule]
gpdvirsRules
= lens _gpdvirsRules (\ s a -> s{_gpdvirsRules = a})
. _Default
. _Coerce
gpdvirsInfoTypes :: Lens' GooglePrivacyDlpV2InspectionRuleSet [GooglePrivacyDlpV2InfoType]
gpdvirsInfoTypes
= lens _gpdvirsInfoTypes
(\ s a -> s{_gpdvirsInfoTypes = a})
. _Default
. _Coerce
instance FromJSON GooglePrivacyDlpV2InspectionRuleSet
where
parseJSON
= withObject "GooglePrivacyDlpV2InspectionRuleSet"
(\ o ->
GooglePrivacyDlpV2InspectionRuleSet' <$>
(o .:? "rules" .!= mempty) <*>
(o .:? "infoTypes" .!= mempty))
instance ToJSON GooglePrivacyDlpV2InspectionRuleSet
where
toJSON GooglePrivacyDlpV2InspectionRuleSet'{..}
= object
(catMaybes
[("rules" .=) <$> _gpdvirsRules,
("infoTypes" .=) <$> _gpdvirsInfoTypes])
data GooglePrivacyDlpV2QuasiId =
GooglePrivacyDlpV2QuasiId'
{ _gpdvqiField :: !(Maybe GooglePrivacyDlpV2FieldId)
, _gpdvqiInfoType :: !(Maybe GooglePrivacyDlpV2InfoType)
, _gpdvqiInferred :: !(Maybe GoogleProtobufEmpty)
, _gpdvqiCustomTag :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2QuasiId
:: GooglePrivacyDlpV2QuasiId
googlePrivacyDlpV2QuasiId =
GooglePrivacyDlpV2QuasiId'
{ _gpdvqiField = Nothing
, _gpdvqiInfoType = Nothing
, _gpdvqiInferred = Nothing
, _gpdvqiCustomTag = Nothing
}
gpdvqiField :: Lens' GooglePrivacyDlpV2QuasiId (Maybe GooglePrivacyDlpV2FieldId)
gpdvqiField
= lens _gpdvqiField (\ s a -> s{_gpdvqiField = a})
gpdvqiInfoType :: Lens' GooglePrivacyDlpV2QuasiId (Maybe GooglePrivacyDlpV2InfoType)
gpdvqiInfoType
= lens _gpdvqiInfoType
(\ s a -> s{_gpdvqiInfoType = a})
gpdvqiInferred :: Lens' GooglePrivacyDlpV2QuasiId (Maybe GoogleProtobufEmpty)
gpdvqiInferred
= lens _gpdvqiInferred
(\ s a -> s{_gpdvqiInferred = a})
gpdvqiCustomTag :: Lens' GooglePrivacyDlpV2QuasiId (Maybe Text)
gpdvqiCustomTag
= lens _gpdvqiCustomTag
(\ s a -> s{_gpdvqiCustomTag = a})
instance FromJSON GooglePrivacyDlpV2QuasiId where
parseJSON
= withObject "GooglePrivacyDlpV2QuasiId"
(\ o ->
GooglePrivacyDlpV2QuasiId' <$>
(o .:? "field") <*> (o .:? "infoType") <*>
(o .:? "inferred")
<*> (o .:? "customTag"))
instance ToJSON GooglePrivacyDlpV2QuasiId where
toJSON GooglePrivacyDlpV2QuasiId'{..}
= object
(catMaybes
[("field" .=) <$> _gpdvqiField,
("infoType" .=) <$> _gpdvqiInfoType,
("inferred" .=) <$> _gpdvqiInferred,
("customTag" .=) <$> _gpdvqiCustomTag])
newtype GooglePrivacyDlpV2DocumentLocation =
GooglePrivacyDlpV2DocumentLocation'
{ _gpdvdlFileOffSet :: Maybe (Textual Int64)
}
deriving (Eq, Show, Data, Typeable, Generic)
googlePrivacyDlpV2DocumentLocation
:: GooglePrivacyDlpV2DocumentLocation
googlePrivacyDlpV2DocumentLocation =
GooglePrivacyDlpV2DocumentLocation' {_gpdvdlFileOffSet = Nothing}
gpdvdlFileOffSet :: Lens' GooglePrivacyDlpV2DocumentLocation (Maybe Int64)
gpdvdlFileOffSet
= lens _gpdvdlFileOffSet
(\ s a -> s{_gpdvdlFileOffSet = a})
. mapping _Coerce
instance FromJSON GooglePrivacyDlpV2DocumentLocation
where
parseJSON
= withObject "GooglePrivacyDlpV2DocumentLocation"
(\ o ->
GooglePrivacyDlpV2DocumentLocation' <$>
(o .:? "fileOffset"))
instance ToJSON GooglePrivacyDlpV2DocumentLocation
where
toJSON GooglePrivacyDlpV2DocumentLocation'{..}
= object
(catMaybes [("fileOffset" .=) <$> _gpdvdlFileOffSet])