{-# 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.CloudPrivateCatalog.Types.Product where
import Network.Google.CloudPrivateCatalog.Types.Sum
import Network.Google.Prelude
data GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse =
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse'
{ _gcpvscrNextPageToken :: !(Maybe Text)
, _gcpvscrCatalogs :: !(Maybe [GoogleCloudPrivatecatalogV1beta1Catalog])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1SearchCatalogsResponse
:: GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse
googleCloudPrivatecatalogV1beta1SearchCatalogsResponse =
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse'
{_gcpvscrNextPageToken = Nothing, _gcpvscrCatalogs = Nothing}
gcpvscrNextPageToken :: Lens' GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse (Maybe Text)
gcpvscrNextPageToken
= lens _gcpvscrNextPageToken
(\ s a -> s{_gcpvscrNextPageToken = a})
gcpvscrCatalogs :: Lens' GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse [GoogleCloudPrivatecatalogV1beta1Catalog]
gcpvscrCatalogs
= lens _gcpvscrCatalogs
(\ s a -> s{_gcpvscrCatalogs = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse"
(\ o ->
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "catalogs" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse
where
toJSON
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvscrNextPageToken,
("catalogs" .=) <$> _gcpvscrCatalogs])
newtype GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata =
GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata'
{ _gcpvpdmAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1ProductDisplayMetadata
:: HashMap Text JSONValue
-> GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata
googleCloudPrivatecatalogV1beta1ProductDisplayMetadata pGcpvpdmAddtional_ =
GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata'
{_gcpvpdmAddtional = _Coerce # pGcpvpdmAddtional_}
gcpvpdmAddtional :: Lens' GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata (HashMap Text JSONValue)
gcpvpdmAddtional
= lens _gcpvpdmAddtional
(\ s a -> s{_gcpvpdmAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata"
(\ o ->
GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata
where
toJSON = toJSON . _gcpvpdmAddtional
data GoogleCloudPrivatecatalogV1beta1Catalog =
GoogleCloudPrivatecatalogV1beta1Catalog'
{ _gcpvcUpdateTime :: !(Maybe DateTime')
, _gcpvcName :: !(Maybe Text)
, _gcpvcDisplayName :: !(Maybe Text)
, _gcpvcDescription :: !(Maybe Text)
, _gcpvcCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1Catalog
:: GoogleCloudPrivatecatalogV1beta1Catalog
googleCloudPrivatecatalogV1beta1Catalog =
GoogleCloudPrivatecatalogV1beta1Catalog'
{ _gcpvcUpdateTime = Nothing
, _gcpvcName = Nothing
, _gcpvcDisplayName = Nothing
, _gcpvcDescription = Nothing
, _gcpvcCreateTime = Nothing
}
gcpvcUpdateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe UTCTime)
gcpvcUpdateTime
= lens _gcpvcUpdateTime
(\ s a -> s{_gcpvcUpdateTime = a})
. mapping _DateTime
gcpvcName :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe Text)
gcpvcName
= lens _gcpvcName (\ s a -> s{_gcpvcName = a})
gcpvcDisplayName :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe Text)
gcpvcDisplayName
= lens _gcpvcDisplayName
(\ s a -> s{_gcpvcDisplayName = a})
gcpvcDescription :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe Text)
gcpvcDescription
= lens _gcpvcDescription
(\ s a -> s{_gcpvcDescription = a})
gcpvcCreateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe UTCTime)
gcpvcCreateTime
= lens _gcpvcCreateTime
(\ s a -> s{_gcpvcCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogV1beta1Catalog
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1Catalog"
(\ o ->
GoogleCloudPrivatecatalogV1beta1Catalog' <$>
(o .:? "updateTime") <*> (o .:? "name") <*>
(o .:? "displayName")
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1Catalog
where
toJSON GoogleCloudPrivatecatalogV1beta1Catalog'{..}
= object
(catMaybes
[("updateTime" .=) <$> _gcpvcUpdateTime,
("name" .=) <$> _gcpvcName,
("displayName" .=) <$> _gcpvcDisplayName,
("description" .=) <$> _gcpvcDescription,
("createTime" .=) <$> _gcpvcCreateTime])
data GoogleCloudPrivatecatalogV1beta1SearchProductsResponse =
GoogleCloudPrivatecatalogV1beta1SearchProductsResponse'
{ _gcpvsprNextPageToken :: !(Maybe Text)
, _gcpvsprProducts :: !(Maybe [GoogleCloudPrivatecatalogV1beta1Product])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1SearchProductsResponse
:: GoogleCloudPrivatecatalogV1beta1SearchProductsResponse
googleCloudPrivatecatalogV1beta1SearchProductsResponse =
GoogleCloudPrivatecatalogV1beta1SearchProductsResponse'
{_gcpvsprNextPageToken = Nothing, _gcpvsprProducts = Nothing}
gcpvsprNextPageToken :: Lens' GoogleCloudPrivatecatalogV1beta1SearchProductsResponse (Maybe Text)
gcpvsprNextPageToken
= lens _gcpvsprNextPageToken
(\ s a -> s{_gcpvsprNextPageToken = a})
gcpvsprProducts :: Lens' GoogleCloudPrivatecatalogV1beta1SearchProductsResponse [GoogleCloudPrivatecatalogV1beta1Product]
gcpvsprProducts
= lens _gcpvsprProducts
(\ s a -> s{_gcpvsprProducts = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogV1beta1SearchProductsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1SearchProductsResponse"
(\ o ->
GoogleCloudPrivatecatalogV1beta1SearchProductsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "products" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1SearchProductsResponse
where
toJSON
GoogleCloudPrivatecatalogV1beta1SearchProductsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvsprNextPageToken,
("products" .=) <$> _gcpvsprProducts])
newtype GoogleCloudPrivatecatalogV1beta1VersionAsset =
GoogleCloudPrivatecatalogV1beta1VersionAsset'
{ _gcpvvaAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1VersionAsset
:: HashMap Text JSONValue
-> GoogleCloudPrivatecatalogV1beta1VersionAsset
googleCloudPrivatecatalogV1beta1VersionAsset pGcpvvaAddtional_ =
GoogleCloudPrivatecatalogV1beta1VersionAsset'
{_gcpvvaAddtional = _Coerce # pGcpvvaAddtional_}
gcpvvaAddtional :: Lens' GoogleCloudPrivatecatalogV1beta1VersionAsset (HashMap Text JSONValue)
gcpvvaAddtional
= lens _gcpvvaAddtional
(\ s a -> s{_gcpvvaAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogV1beta1VersionAsset
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1VersionAsset"
(\ o ->
GoogleCloudPrivatecatalogV1beta1VersionAsset' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1VersionAsset
where
toJSON = toJSON . _gcpvvaAddtional
data GoogleCloudPrivatecatalogV1beta1Version =
GoogleCloudPrivatecatalogV1beta1Version'
{ _gcpvvAsset :: !(Maybe GoogleCloudPrivatecatalogV1beta1VersionAsset)
, _gcpvvUpdateTime :: !(Maybe DateTime')
, _gcpvvName :: !(Maybe Text)
, _gcpvvDescription :: !(Maybe Text)
, _gcpvvCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1Version
:: GoogleCloudPrivatecatalogV1beta1Version
googleCloudPrivatecatalogV1beta1Version =
GoogleCloudPrivatecatalogV1beta1Version'
{ _gcpvvAsset = Nothing
, _gcpvvUpdateTime = Nothing
, _gcpvvName = Nothing
, _gcpvvDescription = Nothing
, _gcpvvCreateTime = Nothing
}
gcpvvAsset :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe GoogleCloudPrivatecatalogV1beta1VersionAsset)
gcpvvAsset
= lens _gcpvvAsset (\ s a -> s{_gcpvvAsset = a})
gcpvvUpdateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe UTCTime)
gcpvvUpdateTime
= lens _gcpvvUpdateTime
(\ s a -> s{_gcpvvUpdateTime = a})
. mapping _DateTime
gcpvvName :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe Text)
gcpvvName
= lens _gcpvvName (\ s a -> s{_gcpvvName = a})
gcpvvDescription :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe Text)
gcpvvDescription
= lens _gcpvvDescription
(\ s a -> s{_gcpvvDescription = a})
gcpvvCreateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe UTCTime)
gcpvvCreateTime
= lens _gcpvvCreateTime
(\ s a -> s{_gcpvvCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogV1beta1Version
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1Version"
(\ o ->
GoogleCloudPrivatecatalogV1beta1Version' <$>
(o .:? "asset") <*> (o .:? "updateTime") <*>
(o .:? "name")
<*> (o .:? "description")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1Version
where
toJSON GoogleCloudPrivatecatalogV1beta1Version'{..}
= object
(catMaybes
[("asset" .=) <$> _gcpvvAsset,
("updateTime" .=) <$> _gcpvvUpdateTime,
("name" .=) <$> _gcpvvName,
("description" .=) <$> _gcpvvDescription,
("createTime" .=) <$> _gcpvvCreateTime])
data GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse =
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse'
{ _gcpvsvrNextPageToken :: !(Maybe Text)
, _gcpvsvrVersions :: !(Maybe [GoogleCloudPrivatecatalogV1beta1Version])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1SearchVersionsResponse
:: GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse
googleCloudPrivatecatalogV1beta1SearchVersionsResponse =
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse'
{_gcpvsvrNextPageToken = Nothing, _gcpvsvrVersions = Nothing}
gcpvsvrNextPageToken :: Lens' GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse (Maybe Text)
gcpvsvrNextPageToken
= lens _gcpvsvrNextPageToken
(\ s a -> s{_gcpvsvrNextPageToken = a})
gcpvsvrVersions :: Lens' GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse [GoogleCloudPrivatecatalogV1beta1Version]
gcpvsvrVersions
= lens _gcpvsvrVersions
(\ s a -> s{_gcpvsvrVersions = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse"
(\ o ->
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "versions" .!= mempty))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse
where
toJSON
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcpvsvrNextPageToken,
("versions" .=) <$> _gcpvsvrVersions])
data GoogleCloudPrivatecatalogV1beta1Product =
GoogleCloudPrivatecatalogV1beta1Product'
{ _gcpvpIconURI :: !(Maybe Text)
, _gcpvpUpdateTime :: !(Maybe DateTime')
, _gcpvpDisplayMetadata :: !(Maybe GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata)
, _gcpvpName :: !(Maybe Text)
, _gcpvpAssetType :: !(Maybe Text)
, _gcpvpCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudPrivatecatalogV1beta1Product
:: GoogleCloudPrivatecatalogV1beta1Product
googleCloudPrivatecatalogV1beta1Product =
GoogleCloudPrivatecatalogV1beta1Product'
{ _gcpvpIconURI = Nothing
, _gcpvpUpdateTime = Nothing
, _gcpvpDisplayMetadata = Nothing
, _gcpvpName = Nothing
, _gcpvpAssetType = Nothing
, _gcpvpCreateTime = Nothing
}
gcpvpIconURI :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe Text)
gcpvpIconURI
= lens _gcpvpIconURI (\ s a -> s{_gcpvpIconURI = a})
gcpvpUpdateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe UTCTime)
gcpvpUpdateTime
= lens _gcpvpUpdateTime
(\ s a -> s{_gcpvpUpdateTime = a})
. mapping _DateTime
gcpvpDisplayMetadata :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata)
gcpvpDisplayMetadata
= lens _gcpvpDisplayMetadata
(\ s a -> s{_gcpvpDisplayMetadata = a})
gcpvpName :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe Text)
gcpvpName
= lens _gcpvpName (\ s a -> s{_gcpvpName = a})
gcpvpAssetType :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe Text)
gcpvpAssetType
= lens _gcpvpAssetType
(\ s a -> s{_gcpvpAssetType = a})
gcpvpCreateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe UTCTime)
gcpvpCreateTime
= lens _gcpvpCreateTime
(\ s a -> s{_gcpvpCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudPrivatecatalogV1beta1Product
where
parseJSON
= withObject
"GoogleCloudPrivatecatalogV1beta1Product"
(\ o ->
GoogleCloudPrivatecatalogV1beta1Product' <$>
(o .:? "iconUri") <*> (o .:? "updateTime") <*>
(o .:? "displayMetadata")
<*> (o .:? "name")
<*> (o .:? "assetType")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudPrivatecatalogV1beta1Product
where
toJSON GoogleCloudPrivatecatalogV1beta1Product'{..}
= object
(catMaybes
[("iconUri" .=) <$> _gcpvpIconURI,
("updateTime" .=) <$> _gcpvpUpdateTime,
("displayMetadata" .=) <$> _gcpvpDisplayMetadata,
("name" .=) <$> _gcpvpName,
("assetType" .=) <$> _gcpvpAssetType,
("createTime" .=) <$> _gcpvpCreateTime])