{-# 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.CloudPrivateCatalogProducer.Types.Product where
import Network.Google.CloudPrivateCatalogProducer.Types.Sum
import Network.Google.Prelude
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])
newtype GoogleLongrunningOperationMetadata =
GoogleLongrunningOperationMetadata'
{ _glomAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningOperationMetadata
:: HashMap Text JSONValue
-> GoogleLongrunningOperationMetadata
googleLongrunningOperationMetadata pGlomAddtional_ =
GoogleLongrunningOperationMetadata'
{_glomAddtional = _Coerce # pGlomAddtional_}
glomAddtional :: Lens' GoogleLongrunningOperationMetadata (HashMap Text JSONValue)
glomAddtional
= lens _glomAddtional
(\ s a -> s{_glomAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunningOperationMetadata
where
parseJSON
= withObject "GoogleLongrunningOperationMetadata"
(\ o ->
GoogleLongrunningOperationMetadata' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunningOperationMetadata
where
toJSON = toJSON . _glomAddtional
data GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse'
{ _gcpvlvrNextPageToken :: !(Maybe Text)
, _gcpvlvrVersions :: !(Maybe [GoogleCloudPrivatecatalogproducerV1beta1Version])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1ListVersionsResponse
:: GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse
googleCloudPrivatecatalogproducerV1beta1ListVersionsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse'
{_gcpvlvrNextPageToken = Nothing, _gcpvlvrVersions = Nothing}
gcpvlvrNextPageToken :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse (Maybe Text)
gcpvlvrNextPageToken
= lens _gcpvlvrNextPageToken
(\ s a -> s{_gcpvlvrNextPageToken = a})
gcpvlvrVersions :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse [GoogleCloudPrivatecatalogproducerV1beta1Version]
gcpvlvrVersions
= lens _gcpvlvrVersions
(\ s a -> s{_gcpvlvrVersions = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "versions" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvlvrNextPageToken,
("versions" .=) <$> _gcpvlvrVersions])
data GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest =
GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest
:: GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest
googleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest =
GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest'
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest"
(\ o ->
pure
GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest')
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1UndeleteCatalogRequest
where
toJSON = const emptyObject
data GoogleIAMV1Binding =
GoogleIAMV1Binding'
{ _givbMembers :: !(Maybe [Text])
, _givbRole :: !(Maybe Text)
, _givbCondition :: !(Maybe GoogleTypeExpr)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1Binding
:: GoogleIAMV1Binding
googleIAMV1Binding =
GoogleIAMV1Binding'
{_givbMembers = Nothing, _givbRole = Nothing, _givbCondition = Nothing}
givbMembers :: Lens' GoogleIAMV1Binding [Text]
givbMembers
= lens _givbMembers (\ s a -> s{_givbMembers = a}) .
_Default
. _Coerce
givbRole :: Lens' GoogleIAMV1Binding (Maybe Text)
givbRole = lens _givbRole (\ s a -> s{_givbRole = a})
givbCondition :: Lens' GoogleIAMV1Binding (Maybe GoogleTypeExpr)
givbCondition
= lens _givbCondition
(\ s a -> s{_givbCondition = a})
instance FromJSON GoogleIAMV1Binding where
parseJSON
= withObject "GoogleIAMV1Binding"
(\ o ->
GoogleIAMV1Binding' <$>
(o .:? "members" .!= mempty) <*> (o .:? "role") <*>
(o .:? "condition"))
instance ToJSON GoogleIAMV1Binding where
toJSON GoogleIAMV1Binding'{..}
= object
(catMaybes
[("members" .=) <$> _givbMembers,
("role" .=) <$> _givbRole,
("condition" .=) <$> _givbCondition])
data GoogleIAMV1SetIAMPolicyRequest =
GoogleIAMV1SetIAMPolicyRequest'
{ _givsiprUpdateMask :: !(Maybe GFieldMask)
, _givsiprPolicy :: !(Maybe GoogleIAMV1Policy)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1SetIAMPolicyRequest
:: GoogleIAMV1SetIAMPolicyRequest
googleIAMV1SetIAMPolicyRequest =
GoogleIAMV1SetIAMPolicyRequest'
{_givsiprUpdateMask = Nothing, _givsiprPolicy = Nothing}
givsiprUpdateMask :: Lens' GoogleIAMV1SetIAMPolicyRequest (Maybe GFieldMask)
givsiprUpdateMask
= lens _givsiprUpdateMask
(\ s a -> s{_givsiprUpdateMask = a})
givsiprPolicy :: Lens' GoogleIAMV1SetIAMPolicyRequest (Maybe GoogleIAMV1Policy)
givsiprPolicy
= lens _givsiprPolicy
(\ s a -> s{_givsiprPolicy = a})
instance FromJSON GoogleIAMV1SetIAMPolicyRequest
where
parseJSON
= withObject "GoogleIAMV1SetIAMPolicyRequest"
(\ o ->
GoogleIAMV1SetIAMPolicyRequest' <$>
(o .:? "updateMask") <*> (o .:? "policy"))
instance ToJSON GoogleIAMV1SetIAMPolicyRequest where
toJSON GoogleIAMV1SetIAMPolicyRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _givsiprUpdateMask,
("policy" .=) <$> _givsiprPolicy])
data GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse'
{ _gcpvlcrNextPageToken :: !(Maybe Text)
, _gcpvlcrCatalogs :: !(Maybe [GoogleCloudPrivatecatalogproducerV1beta1Catalog])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse
:: GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse
googleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse'
{_gcpvlcrNextPageToken = Nothing, _gcpvlcrCatalogs = Nothing}
gcpvlcrNextPageToken :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse (Maybe Text)
gcpvlcrNextPageToken
= lens _gcpvlcrNextPageToken
(\ s a -> s{_gcpvlcrNextPageToken = a})
gcpvlcrCatalogs :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse [GoogleCloudPrivatecatalogproducerV1beta1Catalog]
gcpvlcrCatalogs
= lens _gcpvlcrCatalogs
(\ s a -> s{_gcpvlcrCatalogs = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "catalogs" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1ListCatalogsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvlcrNextPageToken,
("catalogs" .=) <$> _gcpvlcrCatalogs])
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
newtype GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest =
GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest'
{ _gcpvuirIcon :: Maybe Bytes
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1UploadIconRequest
:: GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest
googleCloudPrivatecatalogproducerV1beta1UploadIconRequest =
GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest'
{_gcpvuirIcon = Nothing}
gcpvuirIcon :: Lens' GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest (Maybe ByteString)
gcpvuirIcon
= lens _gcpvuirIcon (\ s a -> s{_gcpvuirIcon = a}) .
mapping _Bytes
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest'
<$> (o .:? "icon"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1UploadIconRequest'{..}
= object (catMaybes [("icon" .=) <$> _gcpvuirIcon])
newtype GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata =
GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata'
{ _gcpvpdmAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata
:: HashMap Text JSONValue
-> GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata
googleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata pGcpvpdmAddtional_ =
GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata'
{_gcpvpdmAddtional = _Coerce # pGcpvpdmAddtional_}
gcpvpdmAddtional :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata (HashMap Text JSONValue)
gcpvpdmAddtional
= lens _gcpvpdmAddtional
(\ s a -> s{_gcpvpdmAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata
where
toJSON = toJSON . _gcpvpdmAddtional
data GoogleLongrunningCancelOperationRequest =
GoogleLongrunningCancelOperationRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningCancelOperationRequest
:: GoogleLongrunningCancelOperationRequest
googleLongrunningCancelOperationRequest =
GoogleLongrunningCancelOperationRequest'
instance FromJSON
GoogleLongrunningCancelOperationRequest
where
parseJSON
= withObject
"GoogleLongrunningCancelOperationRequest"
(\ o ->
pure GoogleLongrunningCancelOperationRequest')
instance ToJSON
GoogleLongrunningCancelOperationRequest
where
toJSON = const emptyObject
data GoogleCloudPrivatecatalogproducerV1beta1Catalog =
GoogleCloudPrivatecatalogproducerV1beta1Catalog'
{ _gcpvcParent :: !(Maybe Text)
, _gcpvcUpdateTime :: !(Maybe DateTime')
, _gcpvcName :: !(Maybe Text)
, _gcpvcDisplayName :: !(Maybe Text)
, _gcpvcDescription :: !(Maybe Text)
, _gcpvcCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1Catalog
:: GoogleCloudPrivatecatalogproducerV1beta1Catalog
googleCloudPrivatecatalogproducerV1beta1Catalog =
GoogleCloudPrivatecatalogproducerV1beta1Catalog'
{ _gcpvcParent = Nothing
, _gcpvcUpdateTime = Nothing
, _gcpvcName = Nothing
, _gcpvcDisplayName = Nothing
, _gcpvcDescription = Nothing
, _gcpvcCreateTime = Nothing
}
gcpvcParent :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Catalog (Maybe Text)
gcpvcParent
= lens _gcpvcParent (\ s a -> s{_gcpvcParent = a})
gcpvcUpdateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Catalog (Maybe UTCTime)
gcpvcUpdateTime
= lens _gcpvcUpdateTime
(\ s a -> s{_gcpvcUpdateTime = a})
. mapping _DateTime
gcpvcName :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Catalog (Maybe Text)
gcpvcName
= lens _gcpvcName (\ s a -> s{_gcpvcName = a})
gcpvcDisplayName :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Catalog (Maybe Text)
gcpvcDisplayName
= lens _gcpvcDisplayName
(\ s a -> s{_gcpvcDisplayName = a})
gcpvcDescription :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Catalog (Maybe Text)
gcpvcDescription
= lens _gcpvcDescription
(\ s a -> s{_gcpvcDescription = a})
gcpvcCreateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Catalog (Maybe UTCTime)
gcpvcCreateTime
= lens _gcpvcCreateTime
(\ s a -> s{_gcpvcCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1Catalog
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1Catalog"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1Catalog' <$>
(o .:? "parent") <*> (o .:? "updateTime") <*>
(o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1Catalog
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1Catalog'{..}
= object
(catMaybes
[("parent" .=) <$> _gcpvcParent,
("updateTime" .=) <$> _gcpvcUpdateTime,
("name" .=) <$> _gcpvcName,
("displayName" .=) <$> _gcpvcDisplayName,
("description" .=) <$> _gcpvcDescription,
("createTime" .=) <$> _gcpvcCreateTime])
newtype GoogleIAMV1TestIAMPermissionsRequest =
GoogleIAMV1TestIAMPermissionsRequest'
{ _givtiprPermissions :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1TestIAMPermissionsRequest
:: GoogleIAMV1TestIAMPermissionsRequest
googleIAMV1TestIAMPermissionsRequest =
GoogleIAMV1TestIAMPermissionsRequest' {_givtiprPermissions = Nothing}
givtiprPermissions :: Lens' GoogleIAMV1TestIAMPermissionsRequest [Text]
givtiprPermissions
= lens _givtiprPermissions
(\ s a -> s{_givtiprPermissions = a})
. _Default
. _Coerce
instance FromJSON
GoogleIAMV1TestIAMPermissionsRequest
where
parseJSON
= withObject "GoogleIAMV1TestIAMPermissionsRequest"
(\ o ->
GoogleIAMV1TestIAMPermissionsRequest' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON GoogleIAMV1TestIAMPermissionsRequest
where
toJSON GoogleIAMV1TestIAMPermissionsRequest'{..}
= object
(catMaybes
[("permissions" .=) <$> _givtiprPermissions])
data GoogleIAMV1AuditConfig =
GoogleIAMV1AuditConfig'
{ _givacService :: !(Maybe Text)
, _givacAuditLogConfigs :: !(Maybe [GoogleIAMV1AuditLogConfig])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1AuditConfig
:: GoogleIAMV1AuditConfig
googleIAMV1AuditConfig =
GoogleIAMV1AuditConfig'
{_givacService = Nothing, _givacAuditLogConfigs = Nothing}
givacService :: Lens' GoogleIAMV1AuditConfig (Maybe Text)
givacService
= lens _givacService (\ s a -> s{_givacService = a})
givacAuditLogConfigs :: Lens' GoogleIAMV1AuditConfig [GoogleIAMV1AuditLogConfig]
givacAuditLogConfigs
= lens _givacAuditLogConfigs
(\ s a -> s{_givacAuditLogConfigs = a})
. _Default
. _Coerce
instance FromJSON GoogleIAMV1AuditConfig where
parseJSON
= withObject "GoogleIAMV1AuditConfig"
(\ o ->
GoogleIAMV1AuditConfig' <$>
(o .:? "service") <*>
(o .:? "auditLogConfigs" .!= mempty))
instance ToJSON GoogleIAMV1AuditConfig where
toJSON GoogleIAMV1AuditConfig'{..}
= object
(catMaybes
[("service" .=) <$> _givacService,
("auditLogConfigs" .=) <$> _givacAuditLogConfigs])
newtype GoogleLongrunningOperationResponse =
GoogleLongrunningOperationResponse'
{ _glorAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningOperationResponse
:: HashMap Text JSONValue
-> GoogleLongrunningOperationResponse
googleLongrunningOperationResponse pGlorAddtional_ =
GoogleLongrunningOperationResponse'
{_glorAddtional = _Coerce # pGlorAddtional_}
glorAddtional :: Lens' GoogleLongrunningOperationResponse (HashMap Text JSONValue)
glorAddtional
= lens _glorAddtional
(\ s a -> s{_glorAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunningOperationResponse
where
parseJSON
= withObject "GoogleLongrunningOperationResponse"
(\ o ->
GoogleLongrunningOperationResponse' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunningOperationResponse
where
toJSON = toJSON . _glorAddtional
newtype GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest =
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest'
{ _gcpvcprDestinationProductName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1CopyProductRequest
:: GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
googleCloudPrivatecatalogproducerV1beta1CopyProductRequest =
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest'
{_gcpvcprDestinationProductName = Nothing}
gcpvcprDestinationProductName :: Lens' GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest (Maybe Text)
gcpvcprDestinationProductName
= lens _gcpvcprDestinationProductName
(\ s a -> s{_gcpvcprDestinationProductName = a})
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest'
<$> (o .:? "destinationProductName"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest'{..}
= object
(catMaybes
[("destinationProductName" .=) <$>
_gcpvcprDestinationProductName])
data GoogleIAMV1AuditLogConfig =
GoogleIAMV1AuditLogConfig'
{ _givalcLogType :: !(Maybe GoogleIAMV1AuditLogConfigLogType)
, _givalcExemptedMembers :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1AuditLogConfig
:: GoogleIAMV1AuditLogConfig
googleIAMV1AuditLogConfig =
GoogleIAMV1AuditLogConfig'
{_givalcLogType = Nothing, _givalcExemptedMembers = Nothing}
givalcLogType :: Lens' GoogleIAMV1AuditLogConfig (Maybe GoogleIAMV1AuditLogConfigLogType)
givalcLogType
= lens _givalcLogType
(\ s a -> s{_givalcLogType = a})
givalcExemptedMembers :: Lens' GoogleIAMV1AuditLogConfig [Text]
givalcExemptedMembers
= lens _givalcExemptedMembers
(\ s a -> s{_givalcExemptedMembers = a})
. _Default
. _Coerce
instance FromJSON GoogleIAMV1AuditLogConfig where
parseJSON
= withObject "GoogleIAMV1AuditLogConfig"
(\ o ->
GoogleIAMV1AuditLogConfig' <$>
(o .:? "logType") <*>
(o .:? "exemptedMembers" .!= mempty))
instance ToJSON GoogleIAMV1AuditLogConfig where
toJSON GoogleIAMV1AuditLogConfig'{..}
= object
(catMaybes
[("logType" .=) <$> _givalcLogType,
("exemptedMembers" .=) <$> _givalcExemptedMembers])
data GoogleCloudPrivatecatalogproducerV1beta1Version =
GoogleCloudPrivatecatalogproducerV1beta1Version'
{ _gcpvvAsset :: !(Maybe GoogleCloudPrivatecatalogproducerV1beta1VersionAsset)
, _gcpvvOriginalAsset :: !(Maybe GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset)
, _gcpvvUpdateTime :: !(Maybe DateTime')
, _gcpvvName :: !(Maybe Text)
, _gcpvvDescription :: !(Maybe Text)
, _gcpvvCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1Version
:: GoogleCloudPrivatecatalogproducerV1beta1Version
googleCloudPrivatecatalogproducerV1beta1Version =
GoogleCloudPrivatecatalogproducerV1beta1Version'
{ _gcpvvAsset = Nothing
, _gcpvvOriginalAsset = Nothing
, _gcpvvUpdateTime = Nothing
, _gcpvvName = Nothing
, _gcpvvDescription = Nothing
, _gcpvvCreateTime = Nothing
}
gcpvvAsset :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Version (Maybe GoogleCloudPrivatecatalogproducerV1beta1VersionAsset)
gcpvvAsset
= lens _gcpvvAsset (\ s a -> s{_gcpvvAsset = a})
gcpvvOriginalAsset :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Version (Maybe GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset)
gcpvvOriginalAsset
= lens _gcpvvOriginalAsset
(\ s a -> s{_gcpvvOriginalAsset = a})
gcpvvUpdateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Version (Maybe UTCTime)
gcpvvUpdateTime
= lens _gcpvvUpdateTime
(\ s a -> s{_gcpvvUpdateTime = a})
. mapping _DateTime
gcpvvName :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Version (Maybe Text)
gcpvvName
= lens _gcpvvName (\ s a -> s{_gcpvvName = a})
gcpvvDescription :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Version (Maybe Text)
gcpvvDescription
= lens _gcpvvDescription
(\ s a -> s{_gcpvvDescription = a})
gcpvvCreateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Version (Maybe UTCTime)
gcpvvCreateTime
= lens _gcpvvCreateTime
(\ s a -> s{_gcpvvCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1Version
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1Version"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1Version' <$>
(o .:? "asset") <*> (o .:? "originalAsset") <*>
(o .:? "updateTime")
<*> (o .:? "name")
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1Version
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1Version'{..}
= object
(catMaybes
[("asset" .=) <$> _gcpvvAsset,
("originalAsset" .=) <$> _gcpvvOriginalAsset,
("updateTime" .=) <$> _gcpvvUpdateTime,
("name" .=) <$> _gcpvvName,
("description" .=) <$> _gcpvvDescription,
("createTime" .=) <$> _gcpvvCreateTime])
newtype GoogleCloudPrivatecatalogproducerV1beta1VersionAsset =
GoogleCloudPrivatecatalogproducerV1beta1VersionAsset'
{ _gcpvvaAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1VersionAsset
:: HashMap Text JSONValue
-> GoogleCloudPrivatecatalogproducerV1beta1VersionAsset
googleCloudPrivatecatalogproducerV1beta1VersionAsset pGcpvvaAddtional_ =
GoogleCloudPrivatecatalogproducerV1beta1VersionAsset'
{_gcpvvaAddtional = _Coerce # pGcpvvaAddtional_}
gcpvvaAddtional :: Lens' GoogleCloudPrivatecatalogproducerV1beta1VersionAsset (HashMap Text JSONValue)
gcpvvaAddtional
= lens _gcpvvaAddtional
(\ s a -> s{_gcpvvaAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1VersionAsset
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1VersionAsset"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1VersionAsset'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1VersionAsset
where
toJSON = toJSON . _gcpvvaAddtional
data GoogleLongrunningListOperationsResponse =
GoogleLongrunningListOperationsResponse'
{ _gllorNextPageToken :: !(Maybe Text)
, _gllorOperations :: !(Maybe [GoogleLongrunningOperation])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningListOperationsResponse
:: GoogleLongrunningListOperationsResponse
googleLongrunningListOperationsResponse =
GoogleLongrunningListOperationsResponse'
{_gllorNextPageToken = Nothing, _gllorOperations = Nothing}
gllorNextPageToken :: Lens' GoogleLongrunningListOperationsResponse (Maybe Text)
gllorNextPageToken
= lens _gllorNextPageToken
(\ s a -> s{_gllorNextPageToken = a})
gllorOperations :: Lens' GoogleLongrunningListOperationsResponse [GoogleLongrunningOperation]
gllorOperations
= lens _gllorOperations
(\ s a -> s{_gllorOperations = a})
. _Default
. _Coerce
instance FromJSON
GoogleLongrunningListOperationsResponse
where
parseJSON
= withObject
"GoogleLongrunningListOperationsResponse"
(\ o ->
GoogleLongrunningListOperationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "operations" .!= mempty))
instance ToJSON
GoogleLongrunningListOperationsResponse
where
toJSON GoogleLongrunningListOperationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gllorNextPageToken,
("operations" .=) <$> _gllorOperations])
data GoogleIAMV1Policy =
GoogleIAMV1Policy'
{ _givpAuditConfigs :: !(Maybe [GoogleIAMV1AuditConfig])
, _givpEtag :: !(Maybe Bytes)
, _givpVersion :: !(Maybe (Textual Int32))
, _givpBindings :: !(Maybe [GoogleIAMV1Binding])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1Policy
:: GoogleIAMV1Policy
googleIAMV1Policy =
GoogleIAMV1Policy'
{ _givpAuditConfigs = Nothing
, _givpEtag = Nothing
, _givpVersion = Nothing
, _givpBindings = Nothing
}
givpAuditConfigs :: Lens' GoogleIAMV1Policy [GoogleIAMV1AuditConfig]
givpAuditConfigs
= lens _givpAuditConfigs
(\ s a -> s{_givpAuditConfigs = a})
. _Default
. _Coerce
givpEtag :: Lens' GoogleIAMV1Policy (Maybe ByteString)
givpEtag
= lens _givpEtag (\ s a -> s{_givpEtag = a}) .
mapping _Bytes
givpVersion :: Lens' GoogleIAMV1Policy (Maybe Int32)
givpVersion
= lens _givpVersion (\ s a -> s{_givpVersion = a}) .
mapping _Coerce
givpBindings :: Lens' GoogleIAMV1Policy [GoogleIAMV1Binding]
givpBindings
= lens _givpBindings (\ s a -> s{_givpBindings = a})
. _Default
. _Coerce
instance FromJSON GoogleIAMV1Policy where
parseJSON
= withObject "GoogleIAMV1Policy"
(\ o ->
GoogleIAMV1Policy' <$>
(o .:? "auditConfigs" .!= mempty) <*> (o .:? "etag")
<*> (o .:? "version")
<*> (o .:? "bindings" .!= mempty))
instance ToJSON GoogleIAMV1Policy where
toJSON GoogleIAMV1Policy'{..}
= object
(catMaybes
[("auditConfigs" .=) <$> _givpAuditConfigs,
("etag" .=) <$> _givpEtag,
("version" .=) <$> _givpVersion,
("bindings" .=) <$> _givpBindings])
data GoogleCloudPrivatecatalogproducerV1beta1Association =
GoogleCloudPrivatecatalogproducerV1beta1Association'
{ _gcpvaName :: !(Maybe Text)
, _gcpvaResource :: !(Maybe Text)
, _gcpvaCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1Association
:: GoogleCloudPrivatecatalogproducerV1beta1Association
googleCloudPrivatecatalogproducerV1beta1Association =
GoogleCloudPrivatecatalogproducerV1beta1Association'
{_gcpvaName = Nothing, _gcpvaResource = Nothing, _gcpvaCreateTime = Nothing}
gcpvaName :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Association (Maybe Text)
gcpvaName
= lens _gcpvaName (\ s a -> s{_gcpvaName = a})
gcpvaResource :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Association (Maybe Text)
gcpvaResource
= lens _gcpvaResource
(\ s a -> s{_gcpvaResource = a})
gcpvaCreateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Association (Maybe UTCTime)
gcpvaCreateTime
= lens _gcpvaCreateTime
(\ s a -> s{_gcpvaCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1Association
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1Association"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1Association'
<$>
(o .:? "name") <*> (o .:? "resource") <*>
(o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1Association
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1Association'{..}
= object
(catMaybes
[("name" .=) <$> _gcpvaName,
("resource" .=) <$> _gcpvaResource,
("createTime" .=) <$> _gcpvaCreateTime])
data GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse'
{ _gcpvlprNextPageToken :: !(Maybe Text)
, _gcpvlprProducts :: !(Maybe [GoogleCloudPrivatecatalogproducerV1beta1Product])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1ListProductsResponse
:: GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse
googleCloudPrivatecatalogproducerV1beta1ListProductsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse'
{_gcpvlprNextPageToken = Nothing, _gcpvlprProducts = Nothing}
gcpvlprNextPageToken :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse (Maybe Text)
gcpvlprNextPageToken
= lens _gcpvlprNextPageToken
(\ s a -> s{_gcpvlprNextPageToken = a})
gcpvlprProducts :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse [GoogleCloudPrivatecatalogproducerV1beta1Product]
gcpvlprProducts
= lens _gcpvlprProducts
(\ s a -> s{_gcpvlprProducts = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "products" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvlprNextPageToken,
("products" .=) <$> _gcpvlprProducts])
newtype GoogleIAMV1TestIAMPermissionsResponse =
GoogleIAMV1TestIAMPermissionsResponse'
{ _giamvtiamprPermissions :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1TestIAMPermissionsResponse
:: GoogleIAMV1TestIAMPermissionsResponse
googleIAMV1TestIAMPermissionsResponse =
GoogleIAMV1TestIAMPermissionsResponse' {_giamvtiamprPermissions = Nothing}
giamvtiamprPermissions :: Lens' GoogleIAMV1TestIAMPermissionsResponse [Text]
giamvtiamprPermissions
= lens _giamvtiamprPermissions
(\ s a -> s{_giamvtiamprPermissions = a})
. _Default
. _Coerce
instance FromJSON
GoogleIAMV1TestIAMPermissionsResponse
where
parseJSON
= withObject "GoogleIAMV1TestIAMPermissionsResponse"
(\ o ->
GoogleIAMV1TestIAMPermissionsResponse' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON GoogleIAMV1TestIAMPermissionsResponse
where
toJSON GoogleIAMV1TestIAMPermissionsResponse'{..}
= object
(catMaybes
[("permissions" .=) <$> _giamvtiamprPermissions])
newtype GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest =
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest'
{ _gcpvcarAssociation :: Maybe GoogleCloudPrivatecatalogproducerV1beta1Association
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
:: GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
googleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest =
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest'
{_gcpvcarAssociation = Nothing}
gcpvcarAssociation :: Lens' GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest (Maybe GoogleCloudPrivatecatalogproducerV1beta1Association)
gcpvcarAssociation
= lens _gcpvcarAssociation
(\ s a -> s{_gcpvcarAssociation = a})
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest'
<$> (o .:? "association"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest'{..}
= object
(catMaybes
[("association" .=) <$> _gcpvcarAssociation])
data GoogleTypeExpr =
GoogleTypeExpr'
{ _gteLocation :: !(Maybe Text)
, _gteExpression :: !(Maybe Text)
, _gteTitle :: !(Maybe Text)
, _gteDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleTypeExpr
:: GoogleTypeExpr
googleTypeExpr =
GoogleTypeExpr'
{ _gteLocation = Nothing
, _gteExpression = Nothing
, _gteTitle = Nothing
, _gteDescription = Nothing
}
gteLocation :: Lens' GoogleTypeExpr (Maybe Text)
gteLocation
= lens _gteLocation (\ s a -> s{_gteLocation = a})
gteExpression :: Lens' GoogleTypeExpr (Maybe Text)
gteExpression
= lens _gteExpression
(\ s a -> s{_gteExpression = a})
gteTitle :: Lens' GoogleTypeExpr (Maybe Text)
gteTitle = lens _gteTitle (\ s a -> s{_gteTitle = a})
gteDescription :: Lens' GoogleTypeExpr (Maybe Text)
gteDescription
= lens _gteDescription
(\ s a -> s{_gteDescription = a})
instance FromJSON GoogleTypeExpr where
parseJSON
= withObject "GoogleTypeExpr"
(\ o ->
GoogleTypeExpr' <$>
(o .:? "location") <*> (o .:? "expression") <*>
(o .:? "title")
<*> (o .:? "description"))
instance ToJSON GoogleTypeExpr where
toJSON GoogleTypeExpr'{..}
= object
(catMaybes
[("location" .=) <$> _gteLocation,
("expression" .=) <$> _gteExpression,
("title" .=) <$> _gteTitle,
("description" .=) <$> _gteDescription])
data GoogleLongrunningOperation =
GoogleLongrunningOperation'
{ _gloDone :: !(Maybe Bool)
, _gloError :: !(Maybe GoogleRpcStatus)
, _gloResponse :: !(Maybe GoogleLongrunningOperationResponse)
, _gloName :: !(Maybe Text)
, _gloMetadata :: !(Maybe GoogleLongrunningOperationMetadata)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningOperation
:: GoogleLongrunningOperation
googleLongrunningOperation =
GoogleLongrunningOperation'
{ _gloDone = Nothing
, _gloError = Nothing
, _gloResponse = Nothing
, _gloName = Nothing
, _gloMetadata = Nothing
}
gloDone :: Lens' GoogleLongrunningOperation (Maybe Bool)
gloDone = lens _gloDone (\ s a -> s{_gloDone = a})
gloError :: Lens' GoogleLongrunningOperation (Maybe GoogleRpcStatus)
gloError = lens _gloError (\ s a -> s{_gloError = a})
gloResponse :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationResponse)
gloResponse
= lens _gloResponse (\ s a -> s{_gloResponse = a})
gloName :: Lens' GoogleLongrunningOperation (Maybe Text)
gloName = lens _gloName (\ s a -> s{_gloName = a})
gloMetadata :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationMetadata)
gloMetadata
= lens _gloMetadata (\ s a -> s{_gloMetadata = a})
instance FromJSON GoogleLongrunningOperation where
parseJSON
= withObject "GoogleLongrunningOperation"
(\ o ->
GoogleLongrunningOperation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON GoogleLongrunningOperation where
toJSON GoogleLongrunningOperation'{..}
= object
(catMaybes
[("done" .=) <$> _gloDone,
("error" .=) <$> _gloError,
("response" .=) <$> _gloResponse,
("name" .=) <$> _gloName,
("metadata" .=) <$> _gloMetadata])
data GoogleCloudPrivatecatalogproducerV1beta1Product =
GoogleCloudPrivatecatalogproducerV1beta1Product'
{ _gcpvpIconURI :: !(Maybe Text)
, _gcpvpUpdateTime :: !(Maybe DateTime')
, _gcpvpDisplayMetadata :: !(Maybe GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata)
, _gcpvpName :: !(Maybe Text)
, _gcpvpAssetType :: !(Maybe Text)
, _gcpvpCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1Product
:: GoogleCloudPrivatecatalogproducerV1beta1Product
googleCloudPrivatecatalogproducerV1beta1Product =
GoogleCloudPrivatecatalogproducerV1beta1Product'
{ _gcpvpIconURI = Nothing
, _gcpvpUpdateTime = Nothing
, _gcpvpDisplayMetadata = Nothing
, _gcpvpName = Nothing
, _gcpvpAssetType = Nothing
, _gcpvpCreateTime = Nothing
}
gcpvpIconURI :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Product (Maybe Text)
gcpvpIconURI
= lens _gcpvpIconURI (\ s a -> s{_gcpvpIconURI = a})
gcpvpUpdateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Product (Maybe UTCTime)
gcpvpUpdateTime
= lens _gcpvpUpdateTime
(\ s a -> s{_gcpvpUpdateTime = a})
. mapping _DateTime
gcpvpDisplayMetadata :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Product (Maybe GoogleCloudPrivatecatalogproducerV1beta1ProductDisplayMetadata)
gcpvpDisplayMetadata
= lens _gcpvpDisplayMetadata
(\ s a -> s{_gcpvpDisplayMetadata = a})
gcpvpName :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Product (Maybe Text)
gcpvpName
= lens _gcpvpName (\ s a -> s{_gcpvpName = a})
gcpvpAssetType :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Product (Maybe Text)
gcpvpAssetType
= lens _gcpvpAssetType
(\ s a -> s{_gcpvpAssetType = a})
gcpvpCreateTime :: Lens' GoogleCloudPrivatecatalogproducerV1beta1Product (Maybe UTCTime)
gcpvpCreateTime
= lens _gcpvpCreateTime
(\ s a -> s{_gcpvpCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1Product
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1Product"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1Product' <$>
(o .:? "iconUri") <*> (o .:? "updateTime") <*>
(o .:? "displayMetadata")
<*> (o .:? "name")
<*> (o .:? "assetType")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1Product
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1Product'{..}
= object
(catMaybes
[("iconUri" .=) <$> _gcpvpIconURI,
("updateTime" .=) <$> _gcpvpUpdateTime,
("displayMetadata" .=) <$> _gcpvpDisplayMetadata,
("name" .=) <$> _gcpvpName,
("assetType" .=) <$> _gcpvpAssetType,
("createTime" .=) <$> _gcpvpCreateTime])
newtype GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset =
GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset'
{ _gcpvvoaAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset
:: HashMap Text JSONValue
-> GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset
googleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset pGcpvvoaAddtional_ =
GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset'
{_gcpvvoaAddtional = _Coerce # pGcpvvoaAddtional_}
gcpvvoaAddtional :: Lens' GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset (HashMap Text JSONValue)
gcpvvoaAddtional
= lens _gcpvvoaAddtional
(\ s a -> s{_gcpvvoaAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1VersionOriginalAsset
where
toJSON = toJSON . _gcpvvoaAddtional
data GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse'
{ _gcpvlarNextPageToken :: !(Maybe Text)
, _gcpvlarAssociations :: !(Maybe [GoogleCloudPrivatecatalogproducerV1beta1Association])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse
:: GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse
googleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse =
GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse'
{_gcpvlarNextPageToken = Nothing, _gcpvlarAssociations = Nothing}
gcpvlarNextPageToken :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse (Maybe Text)
gcpvlarNextPageToken
= lens _gcpvlarNextPageToken
(\ s a -> s{_gcpvlarNextPageToken = a})
gcpvlarAssociations :: Lens' GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse [GoogleCloudPrivatecatalogproducerV1beta1Association]
gcpvlarAssociations
= lens _gcpvlarAssociations
(\ s a -> s{_gcpvlarAssociations = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse"
(\ o ->
GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "associations" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse
where
toJSON
GoogleCloudPrivatecatalogproducerV1beta1ListAssociationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvlarNextPageToken,
("associations" .=) <$> _gcpvlarAssociations])