{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.ServiceCatalog.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.ServiceCatalog.Types.Sum
data ConstraintSummary = ConstraintSummary'
{ _csType :: !(Maybe Text)
, _csDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
constraintSummary
:: ConstraintSummary
constraintSummary =
ConstraintSummary'
{ _csType = Nothing
, _csDescription = Nothing
}
csType :: Lens' ConstraintSummary (Maybe Text)
csType = lens _csType (\ s a -> s{_csType = a});
csDescription :: Lens' ConstraintSummary (Maybe Text)
csDescription = lens _csDescription (\ s a -> s{_csDescription = a});
instance FromJSON ConstraintSummary where
parseJSON
= withObject "ConstraintSummary"
(\ x ->
ConstraintSummary' <$>
(x .:? "Type") <*> (x .:? "Description"))
instance Hashable ConstraintSummary
instance NFData ConstraintSummary
data LaunchPathSummary = LaunchPathSummary'
{ _lpsConstraintSummaries :: !(Maybe [ConstraintSummary])
, _lpsName :: !(Maybe Text)
, _lpsId :: !(Maybe Text)
, _lpsTags :: !(Maybe [Tag])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
launchPathSummary
:: LaunchPathSummary
launchPathSummary =
LaunchPathSummary'
{ _lpsConstraintSummaries = Nothing
, _lpsName = Nothing
, _lpsId = Nothing
, _lpsTags = Nothing
}
lpsConstraintSummaries :: Lens' LaunchPathSummary [ConstraintSummary]
lpsConstraintSummaries = lens _lpsConstraintSummaries (\ s a -> s{_lpsConstraintSummaries = a}) . _Default . _Coerce;
lpsName :: Lens' LaunchPathSummary (Maybe Text)
lpsName = lens _lpsName (\ s a -> s{_lpsName = a});
lpsId :: Lens' LaunchPathSummary (Maybe Text)
lpsId = lens _lpsId (\ s a -> s{_lpsId = a});
lpsTags :: Lens' LaunchPathSummary [Tag]
lpsTags = lens _lpsTags (\ s a -> s{_lpsTags = a}) . _Default . _Coerce;
instance FromJSON LaunchPathSummary where
parseJSON
= withObject "LaunchPathSummary"
(\ x ->
LaunchPathSummary' <$>
(x .:? "ConstraintSummaries" .!= mempty) <*>
(x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "Tags" .!= mempty))
instance Hashable LaunchPathSummary
instance NFData LaunchPathSummary
data ListRecordHistorySearchFilter = ListRecordHistorySearchFilter'
{ _lrhsfValue :: !(Maybe Text)
, _lrhsfKey :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listRecordHistorySearchFilter
:: ListRecordHistorySearchFilter
listRecordHistorySearchFilter =
ListRecordHistorySearchFilter'
{ _lrhsfValue = Nothing
, _lrhsfKey = Nothing
}
lrhsfValue :: Lens' ListRecordHistorySearchFilter (Maybe Text)
lrhsfValue = lens _lrhsfValue (\ s a -> s{_lrhsfValue = a});
lrhsfKey :: Lens' ListRecordHistorySearchFilter (Maybe Text)
lrhsfKey = lens _lrhsfKey (\ s a -> s{_lrhsfKey = a});
instance Hashable ListRecordHistorySearchFilter
instance NFData ListRecordHistorySearchFilter
instance ToJSON ListRecordHistorySearchFilter where
toJSON ListRecordHistorySearchFilter'{..}
= object
(catMaybes
[("Value" .=) <$> _lrhsfValue,
("Key" .=) <$> _lrhsfKey])
newtype ParameterConstraints = ParameterConstraints'
{ _pcAllowedValues :: Maybe [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
parameterConstraints
:: ParameterConstraints
parameterConstraints =
ParameterConstraints'
{ _pcAllowedValues = Nothing
}
pcAllowedValues :: Lens' ParameterConstraints [Text]
pcAllowedValues = lens _pcAllowedValues (\ s a -> s{_pcAllowedValues = a}) . _Default . _Coerce;
instance FromJSON ParameterConstraints where
parseJSON
= withObject "ParameterConstraints"
(\ x ->
ParameterConstraints' <$>
(x .:? "AllowedValues" .!= mempty))
instance Hashable ParameterConstraints
instance NFData ParameterConstraints
data ProductViewAggregationValue = ProductViewAggregationValue'
{ _pvavValue :: !(Maybe Text)
, _pvavApproximateCount :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
productViewAggregationValue
:: ProductViewAggregationValue
productViewAggregationValue =
ProductViewAggregationValue'
{ _pvavValue = Nothing
, _pvavApproximateCount = Nothing
}
pvavValue :: Lens' ProductViewAggregationValue (Maybe Text)
pvavValue = lens _pvavValue (\ s a -> s{_pvavValue = a});
pvavApproximateCount :: Lens' ProductViewAggregationValue (Maybe Int)
pvavApproximateCount = lens _pvavApproximateCount (\ s a -> s{_pvavApproximateCount = a});
instance FromJSON ProductViewAggregationValue where
parseJSON
= withObject "ProductViewAggregationValue"
(\ x ->
ProductViewAggregationValue' <$>
(x .:? "Value") <*> (x .:? "ApproximateCount"))
instance Hashable ProductViewAggregationValue
instance NFData ProductViewAggregationValue
data ProductViewSummary = ProductViewSummary'
{ _pvsOwner :: !(Maybe Text)
, _pvsSupportURL :: !(Maybe Text)
, _pvsShortDescription :: !(Maybe Text)
, _pvsHasDefaultPath :: !(Maybe Bool)
, _pvsDistributor :: !(Maybe Text)
, _pvsName :: !(Maybe Text)
, _pvsId :: !(Maybe Text)
, _pvsType :: !(Maybe Text)
, _pvsSupportEmail :: !(Maybe Text)
, _pvsProductId :: !(Maybe Text)
, _pvsSupportDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
productViewSummary
:: ProductViewSummary
productViewSummary =
ProductViewSummary'
{ _pvsOwner = Nothing
, _pvsSupportURL = Nothing
, _pvsShortDescription = Nothing
, _pvsHasDefaultPath = Nothing
, _pvsDistributor = Nothing
, _pvsName = Nothing
, _pvsId = Nothing
, _pvsType = Nothing
, _pvsSupportEmail = Nothing
, _pvsProductId = Nothing
, _pvsSupportDescription = Nothing
}
pvsOwner :: Lens' ProductViewSummary (Maybe Text)
pvsOwner = lens _pvsOwner (\ s a -> s{_pvsOwner = a});
pvsSupportURL :: Lens' ProductViewSummary (Maybe Text)
pvsSupportURL = lens _pvsSupportURL (\ s a -> s{_pvsSupportURL = a});
pvsShortDescription :: Lens' ProductViewSummary (Maybe Text)
pvsShortDescription = lens _pvsShortDescription (\ s a -> s{_pvsShortDescription = a});
pvsHasDefaultPath :: Lens' ProductViewSummary (Maybe Bool)
pvsHasDefaultPath = lens _pvsHasDefaultPath (\ s a -> s{_pvsHasDefaultPath = a});
pvsDistributor :: Lens' ProductViewSummary (Maybe Text)
pvsDistributor = lens _pvsDistributor (\ s a -> s{_pvsDistributor = a});
pvsName :: Lens' ProductViewSummary (Maybe Text)
pvsName = lens _pvsName (\ s a -> s{_pvsName = a});
pvsId :: Lens' ProductViewSummary (Maybe Text)
pvsId = lens _pvsId (\ s a -> s{_pvsId = a});
pvsType :: Lens' ProductViewSummary (Maybe Text)
pvsType = lens _pvsType (\ s a -> s{_pvsType = a});
pvsSupportEmail :: Lens' ProductViewSummary (Maybe Text)
pvsSupportEmail = lens _pvsSupportEmail (\ s a -> s{_pvsSupportEmail = a});
pvsProductId :: Lens' ProductViewSummary (Maybe Text)
pvsProductId = lens _pvsProductId (\ s a -> s{_pvsProductId = a});
pvsSupportDescription :: Lens' ProductViewSummary (Maybe Text)
pvsSupportDescription = lens _pvsSupportDescription (\ s a -> s{_pvsSupportDescription = a});
instance FromJSON ProductViewSummary where
parseJSON
= withObject "ProductViewSummary"
(\ x ->
ProductViewSummary' <$>
(x .:? "Owner") <*> (x .:? "SupportUrl") <*>
(x .:? "ShortDescription")
<*> (x .:? "HasDefaultPath")
<*> (x .:? "Distributor")
<*> (x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "Type")
<*> (x .:? "SupportEmail")
<*> (x .:? "ProductId")
<*> (x .:? "SupportDescription"))
instance Hashable ProductViewSummary
instance NFData ProductViewSummary
data ProvisionedProductDetail = ProvisionedProductDetail'
{ _ppdIdempotencyToken :: !(Maybe Text)
, _ppdStatus :: !(Maybe RecordStatus)
, _ppdARN :: !(Maybe Text)
, _ppdCreatedTime :: !(Maybe POSIX)
, _ppdStatusMessage :: !(Maybe Text)
, _ppdName :: !(Maybe Text)
, _ppdLastRecordId :: !(Maybe Text)
, _ppdId :: !(Maybe Text)
, _ppdType :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
provisionedProductDetail
:: ProvisionedProductDetail
provisionedProductDetail =
ProvisionedProductDetail'
{ _ppdIdempotencyToken = Nothing
, _ppdStatus = Nothing
, _ppdARN = Nothing
, _ppdCreatedTime = Nothing
, _ppdStatusMessage = Nothing
, _ppdName = Nothing
, _ppdLastRecordId = Nothing
, _ppdId = Nothing
, _ppdType = Nothing
}
ppdIdempotencyToken :: Lens' ProvisionedProductDetail (Maybe Text)
ppdIdempotencyToken = lens _ppdIdempotencyToken (\ s a -> s{_ppdIdempotencyToken = a});
ppdStatus :: Lens' ProvisionedProductDetail (Maybe RecordStatus)
ppdStatus = lens _ppdStatus (\ s a -> s{_ppdStatus = a});
ppdARN :: Lens' ProvisionedProductDetail (Maybe Text)
ppdARN = lens _ppdARN (\ s a -> s{_ppdARN = a});
ppdCreatedTime :: Lens' ProvisionedProductDetail (Maybe UTCTime)
ppdCreatedTime = lens _ppdCreatedTime (\ s a -> s{_ppdCreatedTime = a}) . mapping _Time;
ppdStatusMessage :: Lens' ProvisionedProductDetail (Maybe Text)
ppdStatusMessage = lens _ppdStatusMessage (\ s a -> s{_ppdStatusMessage = a});
ppdName :: Lens' ProvisionedProductDetail (Maybe Text)
ppdName = lens _ppdName (\ s a -> s{_ppdName = a});
ppdLastRecordId :: Lens' ProvisionedProductDetail (Maybe Text)
ppdLastRecordId = lens _ppdLastRecordId (\ s a -> s{_ppdLastRecordId = a});
ppdId :: Lens' ProvisionedProductDetail (Maybe Text)
ppdId = lens _ppdId (\ s a -> s{_ppdId = a});
ppdType :: Lens' ProvisionedProductDetail (Maybe Text)
ppdType = lens _ppdType (\ s a -> s{_ppdType = a});
instance FromJSON ProvisionedProductDetail where
parseJSON
= withObject "ProvisionedProductDetail"
(\ x ->
ProvisionedProductDetail' <$>
(x .:? "IdempotencyToken") <*> (x .:? "Status") <*>
(x .:? "Arn")
<*> (x .:? "CreatedTime")
<*> (x .:? "StatusMessage")
<*> (x .:? "Name")
<*> (x .:? "LastRecordId")
<*> (x .:? "Id")
<*> (x .:? "Type"))
instance Hashable ProvisionedProductDetail
instance NFData ProvisionedProductDetail
data ProvisioningArtifact = ProvisioningArtifact'
{ _paCreatedTime :: !(Maybe POSIX)
, _paName :: !(Maybe Text)
, _paId :: !(Maybe Text)
, _paDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
provisioningArtifact
:: ProvisioningArtifact
provisioningArtifact =
ProvisioningArtifact'
{ _paCreatedTime = Nothing
, _paName = Nothing
, _paId = Nothing
, _paDescription = Nothing
}
paCreatedTime :: Lens' ProvisioningArtifact (Maybe UTCTime)
paCreatedTime = lens _paCreatedTime (\ s a -> s{_paCreatedTime = a}) . mapping _Time;
paName :: Lens' ProvisioningArtifact (Maybe Text)
paName = lens _paName (\ s a -> s{_paName = a});
paId :: Lens' ProvisioningArtifact (Maybe Text)
paId = lens _paId (\ s a -> s{_paId = a});
paDescription :: Lens' ProvisioningArtifact (Maybe Text)
paDescription = lens _paDescription (\ s a -> s{_paDescription = a});
instance FromJSON ProvisioningArtifact where
parseJSON
= withObject "ProvisioningArtifact"
(\ x ->
ProvisioningArtifact' <$>
(x .:? "CreatedTime") <*> (x .:? "Name") <*>
(x .:? "Id")
<*> (x .:? "Description"))
instance Hashable ProvisioningArtifact
instance NFData ProvisioningArtifact
data ProvisioningArtifactParameter = ProvisioningArtifactParameter'
{ _papIsNoEcho :: !(Maybe Bool)
, _papParameterKey :: !(Maybe Text)
, _papParameterType :: !(Maybe Text)
, _papParameterConstraints :: !(Maybe ParameterConstraints)
, _papDefaultValue :: !(Maybe Text)
, _papDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
provisioningArtifactParameter
:: ProvisioningArtifactParameter
provisioningArtifactParameter =
ProvisioningArtifactParameter'
{ _papIsNoEcho = Nothing
, _papParameterKey = Nothing
, _papParameterType = Nothing
, _papParameterConstraints = Nothing
, _papDefaultValue = Nothing
, _papDescription = Nothing
}
papIsNoEcho :: Lens' ProvisioningArtifactParameter (Maybe Bool)
papIsNoEcho = lens _papIsNoEcho (\ s a -> s{_papIsNoEcho = a});
papParameterKey :: Lens' ProvisioningArtifactParameter (Maybe Text)
papParameterKey = lens _papParameterKey (\ s a -> s{_papParameterKey = a});
papParameterType :: Lens' ProvisioningArtifactParameter (Maybe Text)
papParameterType = lens _papParameterType (\ s a -> s{_papParameterType = a});
papParameterConstraints :: Lens' ProvisioningArtifactParameter (Maybe ParameterConstraints)
papParameterConstraints = lens _papParameterConstraints (\ s a -> s{_papParameterConstraints = a});
papDefaultValue :: Lens' ProvisioningArtifactParameter (Maybe Text)
papDefaultValue = lens _papDefaultValue (\ s a -> s{_papDefaultValue = a});
papDescription :: Lens' ProvisioningArtifactParameter (Maybe Text)
papDescription = lens _papDescription (\ s a -> s{_papDescription = a});
instance FromJSON ProvisioningArtifactParameter where
parseJSON
= withObject "ProvisioningArtifactParameter"
(\ x ->
ProvisioningArtifactParameter' <$>
(x .:? "IsNoEcho") <*> (x .:? "ParameterKey") <*>
(x .:? "ParameterType")
<*> (x .:? "ParameterConstraints")
<*> (x .:? "DefaultValue")
<*> (x .:? "Description"))
instance Hashable ProvisioningArtifactParameter
instance NFData ProvisioningArtifactParameter
data ProvisioningParameter = ProvisioningParameter'
{ _ppValue :: !(Maybe Text)
, _ppKey :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
provisioningParameter
:: ProvisioningParameter
provisioningParameter =
ProvisioningParameter'
{ _ppValue = Nothing
, _ppKey = Nothing
}
ppValue :: Lens' ProvisioningParameter (Maybe Text)
ppValue = lens _ppValue (\ s a -> s{_ppValue = a});
ppKey :: Lens' ProvisioningParameter (Maybe Text)
ppKey = lens _ppKey (\ s a -> s{_ppKey = a});
instance Hashable ProvisioningParameter
instance NFData ProvisioningParameter
instance ToJSON ProvisioningParameter where
toJSON ProvisioningParameter'{..}
= object
(catMaybes
[("Value" .=) <$> _ppValue, ("Key" .=) <$> _ppKey])
data RecordDetail = RecordDetail'
{ _rdStatus :: !(Maybe RecordStatus)
, _rdRecordTags :: !(Maybe [RecordTag])
, _rdProvisionedProductName :: !(Maybe Text)
, _rdProvisioningArtifactId :: !(Maybe Text)
, _rdCreatedTime :: !(Maybe POSIX)
, _rdRecordType :: !(Maybe Text)
, _rdRecordId :: !(Maybe Text)
, _rdProvisionedProductType :: !(Maybe Text)
, _rdUpdatedTime :: !(Maybe POSIX)
, _rdPathId :: !(Maybe Text)
, _rdProvisionedProductId :: !(Maybe Text)
, _rdRecordErrors :: !(Maybe [RecordError])
, _rdProductId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordDetail
:: RecordDetail
recordDetail =
RecordDetail'
{ _rdStatus = Nothing
, _rdRecordTags = Nothing
, _rdProvisionedProductName = Nothing
, _rdProvisioningArtifactId = Nothing
, _rdCreatedTime = Nothing
, _rdRecordType = Nothing
, _rdRecordId = Nothing
, _rdProvisionedProductType = Nothing
, _rdUpdatedTime = Nothing
, _rdPathId = Nothing
, _rdProvisionedProductId = Nothing
, _rdRecordErrors = Nothing
, _rdProductId = Nothing
}
rdStatus :: Lens' RecordDetail (Maybe RecordStatus)
rdStatus = lens _rdStatus (\ s a -> s{_rdStatus = a});
rdRecordTags :: Lens' RecordDetail [RecordTag]
rdRecordTags = lens _rdRecordTags (\ s a -> s{_rdRecordTags = a}) . _Default . _Coerce;
rdProvisionedProductName :: Lens' RecordDetail (Maybe Text)
rdProvisionedProductName = lens _rdProvisionedProductName (\ s a -> s{_rdProvisionedProductName = a});
rdProvisioningArtifactId :: Lens' RecordDetail (Maybe Text)
rdProvisioningArtifactId = lens _rdProvisioningArtifactId (\ s a -> s{_rdProvisioningArtifactId = a});
rdCreatedTime :: Lens' RecordDetail (Maybe UTCTime)
rdCreatedTime = lens _rdCreatedTime (\ s a -> s{_rdCreatedTime = a}) . mapping _Time;
rdRecordType :: Lens' RecordDetail (Maybe Text)
rdRecordType = lens _rdRecordType (\ s a -> s{_rdRecordType = a});
rdRecordId :: Lens' RecordDetail (Maybe Text)
rdRecordId = lens _rdRecordId (\ s a -> s{_rdRecordId = a});
rdProvisionedProductType :: Lens' RecordDetail (Maybe Text)
rdProvisionedProductType = lens _rdProvisionedProductType (\ s a -> s{_rdProvisionedProductType = a});
rdUpdatedTime :: Lens' RecordDetail (Maybe UTCTime)
rdUpdatedTime = lens _rdUpdatedTime (\ s a -> s{_rdUpdatedTime = a}) . mapping _Time;
rdPathId :: Lens' RecordDetail (Maybe Text)
rdPathId = lens _rdPathId (\ s a -> s{_rdPathId = a});
rdProvisionedProductId :: Lens' RecordDetail (Maybe Text)
rdProvisionedProductId = lens _rdProvisionedProductId (\ s a -> s{_rdProvisionedProductId = a});
rdRecordErrors :: Lens' RecordDetail [RecordError]
rdRecordErrors = lens _rdRecordErrors (\ s a -> s{_rdRecordErrors = a}) . _Default . _Coerce;
rdProductId :: Lens' RecordDetail (Maybe Text)
rdProductId = lens _rdProductId (\ s a -> s{_rdProductId = a});
instance FromJSON RecordDetail where
parseJSON
= withObject "RecordDetail"
(\ x ->
RecordDetail' <$>
(x .:? "Status") <*> (x .:? "RecordTags" .!= mempty)
<*> (x .:? "ProvisionedProductName")
<*> (x .:? "ProvisioningArtifactId")
<*> (x .:? "CreatedTime")
<*> (x .:? "RecordType")
<*> (x .:? "RecordId")
<*> (x .:? "ProvisionedProductType")
<*> (x .:? "UpdatedTime")
<*> (x .:? "PathId")
<*> (x .:? "ProvisionedProductId")
<*> (x .:? "RecordErrors" .!= mempty)
<*> (x .:? "ProductId"))
instance Hashable RecordDetail
instance NFData RecordDetail
data RecordError = RecordError'
{ _reCode :: !(Maybe Text)
, _reDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordError
:: RecordError
recordError =
RecordError'
{ _reCode = Nothing
, _reDescription = Nothing
}
reCode :: Lens' RecordError (Maybe Text)
reCode = lens _reCode (\ s a -> s{_reCode = a});
reDescription :: Lens' RecordError (Maybe Text)
reDescription = lens _reDescription (\ s a -> s{_reDescription = a});
instance FromJSON RecordError where
parseJSON
= withObject "RecordError"
(\ x ->
RecordError' <$>
(x .:? "Code") <*> (x .:? "Description"))
instance Hashable RecordError
instance NFData RecordError
data RecordOutput = RecordOutput'
{ _roOutputValue :: !(Maybe Text)
, _roOutputKey :: !(Maybe Text)
, _roDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordOutput
:: RecordOutput
recordOutput =
RecordOutput'
{ _roOutputValue = Nothing
, _roOutputKey = Nothing
, _roDescription = Nothing
}
roOutputValue :: Lens' RecordOutput (Maybe Text)
roOutputValue = lens _roOutputValue (\ s a -> s{_roOutputValue = a});
roOutputKey :: Lens' RecordOutput (Maybe Text)
roOutputKey = lens _roOutputKey (\ s a -> s{_roOutputKey = a});
roDescription :: Lens' RecordOutput (Maybe Text)
roDescription = lens _roDescription (\ s a -> s{_roDescription = a});
instance FromJSON RecordOutput where
parseJSON
= withObject "RecordOutput"
(\ x ->
RecordOutput' <$>
(x .:? "OutputValue") <*> (x .:? "OutputKey") <*>
(x .:? "Description"))
instance Hashable RecordOutput
instance NFData RecordOutput
data RecordTag = RecordTag'
{ _rtValue :: !(Maybe Text)
, _rtKey :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordTag
:: RecordTag
recordTag =
RecordTag'
{ _rtValue = Nothing
, _rtKey = Nothing
}
rtValue :: Lens' RecordTag (Maybe Text)
rtValue = lens _rtValue (\ s a -> s{_rtValue = a});
rtKey :: Lens' RecordTag (Maybe Text)
rtKey = lens _rtKey (\ s a -> s{_rtKey = a});
instance FromJSON RecordTag where
parseJSON
= withObject "RecordTag"
(\ x ->
RecordTag' <$> (x .:? "Value") <*> (x .:? "Key"))
instance Hashable RecordTag
instance NFData RecordTag
data Tag = Tag'
{ _tagValue :: !(Maybe Text)
, _tagKey :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
tag
:: Tag
tag =
Tag'
{ _tagValue = Nothing
, _tagKey = Nothing
}
tagValue :: Lens' Tag (Maybe Text)
tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
tagKey :: Lens' Tag (Maybe Text)
tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
instance FromJSON Tag where
parseJSON
= withObject "Tag"
(\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key"))
instance Hashable Tag
instance NFData Tag
instance ToJSON Tag where
toJSON Tag'{..}
= object
(catMaybes
[("Value" .=) <$> _tagValue, ("Key" .=) <$> _tagKey])
data UpdateProvisioningParameter = UpdateProvisioningParameter'
{ _uppValue :: !(Maybe Text)
, _uppKey :: !(Maybe Text)
, _uppUsePreviousValue :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateProvisioningParameter
:: UpdateProvisioningParameter
updateProvisioningParameter =
UpdateProvisioningParameter'
{ _uppValue = Nothing
, _uppKey = Nothing
, _uppUsePreviousValue = Nothing
}
uppValue :: Lens' UpdateProvisioningParameter (Maybe Text)
uppValue = lens _uppValue (\ s a -> s{_uppValue = a});
uppKey :: Lens' UpdateProvisioningParameter (Maybe Text)
uppKey = lens _uppKey (\ s a -> s{_uppKey = a});
uppUsePreviousValue :: Lens' UpdateProvisioningParameter (Maybe Bool)
uppUsePreviousValue = lens _uppUsePreviousValue (\ s a -> s{_uppUsePreviousValue = a});
instance Hashable UpdateProvisioningParameter
instance NFData UpdateProvisioningParameter
instance ToJSON UpdateProvisioningParameter where
toJSON UpdateProvisioningParameter'{..}
= object
(catMaybes
[("Value" .=) <$> _uppValue, ("Key" .=) <$> _uppKey,
("UsePreviousValue" .=) <$> _uppUsePreviousValue])
data UsageInstruction = UsageInstruction'
{ _uiValue :: !(Maybe Text)
, _uiType :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
usageInstruction
:: UsageInstruction
usageInstruction =
UsageInstruction'
{ _uiValue = Nothing
, _uiType = Nothing
}
uiValue :: Lens' UsageInstruction (Maybe Text)
uiValue = lens _uiValue (\ s a -> s{_uiValue = a});
uiType :: Lens' UsageInstruction (Maybe Text)
uiType = lens _uiType (\ s a -> s{_uiType = a});
instance FromJSON UsageInstruction where
parseJSON
= withObject "UsageInstruction"
(\ x ->
UsageInstruction' <$>
(x .:? "Value") <*> (x .:? "Type"))
instance Hashable UsageInstruction
instance NFData UsageInstruction