diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.3` +`1.4.4` ## Description diff --git a/amazonka-kinesis.cabal b/amazonka-kinesis.cabal --- a/amazonka-kinesis.cabal +++ b/amazonka-kinesis.cabal @@ -1,5 +1,5 @@ name: amazonka-kinesis -version: 1.4.3 +version: 1.4.4 synopsis: Amazon Kinesis SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -11,7 +11,7 @@ category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 -extra-source-files: README.md fixture/*.yaml fixture/*.proto +extra-source-files: README.md fixture/*.yaml fixture/*.proto src/.gitkeep description: Amazon Kinesis Streams Service API Reference @@ -68,7 +68,7 @@ , Network.AWS.Kinesis.Types.Sum build-depends: - amazonka-core == 1.4.3.* + amazonka-core == 1.4.4.* , base >= 4.7 && < 5 test-suite amazonka-kinesis-test @@ -88,9 +88,9 @@ , Test.AWS.Kinesis.Internal build-depends: - amazonka-core == 1.4.3.* - , amazonka-test == 1.4.3.* - , amazonka-kinesis == 1.4.3.* + amazonka-core == 1.4.4.* + , amazonka-test == 1.4.4.* + , amazonka-kinesis == 1.4.4.* , base , bytestring , tasty diff --git a/gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs b/gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs --- a/gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs +++ b/gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs @@ -49,7 +49,7 @@ -- /See:/ 'disableEnhancedMonitoring' smart constructor. data DisableEnhancedMonitoring = DisableEnhancedMonitoring' { _demStreamName :: !Text - , _demShardLevelMetrics :: !(List1 MetricsName) + , _demShardLevelMetrics :: ![MetricsName] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DisableEnhancedMonitoring' with the minimum fields required to make a request. @@ -61,12 +61,11 @@ -- * 'demShardLevelMetrics' disableEnhancedMonitoring :: Text -- ^ 'demStreamName' - -> NonEmpty MetricsName -- ^ 'demShardLevelMetrics' -> DisableEnhancedMonitoring -disableEnhancedMonitoring pStreamName_ pShardLevelMetrics_ = +disableEnhancedMonitoring pStreamName_ = DisableEnhancedMonitoring' { _demStreamName = pStreamName_ - , _demShardLevelMetrics = _List1 # pShardLevelMetrics_ + , _demShardLevelMetrics = mempty } -- | The name of the Amazon Kinesis stream for which to disable enhanced monitoring. @@ -87,8 +86,8 @@ -- - 'ALL' -- -- For more information, see in the /Amazon Kinesis Streams Developer Guide/. -demShardLevelMetrics :: Lens' DisableEnhancedMonitoring (NonEmpty MetricsName) -demShardLevelMetrics = lens _demShardLevelMetrics (\ s a -> s{_demShardLevelMetrics = a}) . _List1; +demShardLevelMetrics :: Lens' DisableEnhancedMonitoring [MetricsName] +demShardLevelMetrics = lens _demShardLevelMetrics (\ s a -> s{_demShardLevelMetrics = a}) . _Coerce; instance AWSRequest DisableEnhancedMonitoring where type Rs DisableEnhancedMonitoring = diff --git a/gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs b/gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs --- a/gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs +++ b/gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs @@ -49,7 +49,7 @@ -- /See:/ 'enableEnhancedMonitoring' smart constructor. data EnableEnhancedMonitoring = EnableEnhancedMonitoring' { _eemStreamName :: !Text - , _eemShardLevelMetrics :: !(List1 MetricsName) + , _eemShardLevelMetrics :: ![MetricsName] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EnableEnhancedMonitoring' with the minimum fields required to make a request. @@ -61,12 +61,11 @@ -- * 'eemShardLevelMetrics' enableEnhancedMonitoring :: Text -- ^ 'eemStreamName' - -> NonEmpty MetricsName -- ^ 'eemShardLevelMetrics' -> EnableEnhancedMonitoring -enableEnhancedMonitoring pStreamName_ pShardLevelMetrics_ = +enableEnhancedMonitoring pStreamName_ = EnableEnhancedMonitoring' { _eemStreamName = pStreamName_ - , _eemShardLevelMetrics = _List1 # pShardLevelMetrics_ + , _eemShardLevelMetrics = mempty } -- | The name of the stream for which to enable enhanced monitoring. @@ -87,8 +86,8 @@ -- - 'ALL' -- -- For more information, see in the /Amazon Kinesis Streams Developer Guide/. -eemShardLevelMetrics :: Lens' EnableEnhancedMonitoring (NonEmpty MetricsName) -eemShardLevelMetrics = lens _eemShardLevelMetrics (\ s a -> s{_eemShardLevelMetrics = a}) . _List1; +eemShardLevelMetrics :: Lens' EnableEnhancedMonitoring [MetricsName] +eemShardLevelMetrics = lens _eemShardLevelMetrics (\ s a -> s{_eemShardLevelMetrics = a}) . _Coerce; instance AWSRequest EnableEnhancedMonitoring where type Rs EnableEnhancedMonitoring = diff --git a/gen/Network/AWS/Kinesis/Types/Product.hs b/gen/Network/AWS/Kinesis/Types/Product.hs --- a/gen/Network/AWS/Kinesis/Types/Product.hs +++ b/gen/Network/AWS/Kinesis/Types/Product.hs @@ -25,7 +25,7 @@ -- -- /See:/ 'enhancedMetrics' smart constructor. newtype EnhancedMetrics = EnhancedMetrics' - { _emShardLevelMetrics :: Maybe (List1 MetricsName) + { _emShardLevelMetrics :: Maybe [MetricsName] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EnhancedMetrics' with the minimum fields required to make a request. @@ -54,14 +54,15 @@ -- - 'ALL' -- -- For more information, see in the /Amazon Kinesis Streams Developer Guide/. -emShardLevelMetrics :: Lens' EnhancedMetrics (Maybe (NonEmpty MetricsName)) -emShardLevelMetrics = lens _emShardLevelMetrics (\ s a -> s{_emShardLevelMetrics = a}) . mapping _List1; +emShardLevelMetrics :: Lens' EnhancedMetrics [MetricsName] +emShardLevelMetrics = lens _emShardLevelMetrics (\ s a -> s{_emShardLevelMetrics = a}) . _Default . _Coerce; instance FromJSON EnhancedMetrics where parseJSON = withObject "EnhancedMetrics" (\ x -> - EnhancedMetrics' <$> (x .:? "ShardLevelMetrics")) + EnhancedMetrics' <$> + (x .:? "ShardLevelMetrics" .!= mempty)) instance Hashable EnhancedMetrics @@ -71,8 +72,8 @@ -- -- /See:/ 'enhancedMonitoringOutput' smart constructor. data EnhancedMonitoringOutput = EnhancedMonitoringOutput' - { _emoDesiredShardLevelMetrics :: !(Maybe (List1 MetricsName)) - , _emoCurrentShardLevelMetrics :: !(Maybe (List1 MetricsName)) + { _emoDesiredShardLevelMetrics :: !(Maybe [MetricsName]) + , _emoCurrentShardLevelMetrics :: !(Maybe [MetricsName]) , _emoStreamName :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -95,12 +96,12 @@ } -- | Represents the list of all the metrics that would be in the enhanced state after the operation. -emoDesiredShardLevelMetrics :: Lens' EnhancedMonitoringOutput (Maybe (NonEmpty MetricsName)) -emoDesiredShardLevelMetrics = lens _emoDesiredShardLevelMetrics (\ s a -> s{_emoDesiredShardLevelMetrics = a}) . mapping _List1; +emoDesiredShardLevelMetrics :: Lens' EnhancedMonitoringOutput [MetricsName] +emoDesiredShardLevelMetrics = lens _emoDesiredShardLevelMetrics (\ s a -> s{_emoDesiredShardLevelMetrics = a}) . _Default . _Coerce; -- | Represents the current state of the metrics that are in the enhanced state before the operation. -emoCurrentShardLevelMetrics :: Lens' EnhancedMonitoringOutput (Maybe (NonEmpty MetricsName)) -emoCurrentShardLevelMetrics = lens _emoCurrentShardLevelMetrics (\ s a -> s{_emoCurrentShardLevelMetrics = a}) . mapping _List1; +emoCurrentShardLevelMetrics :: Lens' EnhancedMonitoringOutput [MetricsName] +emoCurrentShardLevelMetrics = lens _emoCurrentShardLevelMetrics (\ s a -> s{_emoCurrentShardLevelMetrics = a}) . _Default . _Coerce; -- | The name of the Amazon Kinesis stream. emoStreamName :: Lens' EnhancedMonitoringOutput (Maybe Text) @@ -111,8 +112,8 @@ = withObject "EnhancedMonitoringOutput" (\ x -> EnhancedMonitoringOutput' <$> - (x .:? "DesiredShardLevelMetrics") <*> - (x .:? "CurrentShardLevelMetrics") + (x .:? "DesiredShardLevelMetrics" .!= mempty) <*> + (x .:? "CurrentShardLevelMetrics" .!= mempty) <*> (x .:? "StreamName")) instance Hashable EnhancedMonitoringOutput diff --git a/gen/Network/AWS/Kinesis/Types/Sum.hs b/gen/Network/AWS/Kinesis/Types/Sum.hs --- a/gen/Network/AWS/Kinesis/Types/Sum.hs +++ b/gen/Network/AWS/Kinesis/Types/Sum.hs @@ -41,7 +41,7 @@ "readprovisionedthroughputexceeded" -> pure ReadProvisionedThroughputExceeded "writeprovisionedthroughputexceeded" -> pure WriteProvisionedThroughputExceeded e -> fromTextError $ "Failure parsing MetricsName from value: '" <> e - <> "'. Accepted values: ALL, IncomingBytes, IncomingRecords, IteratorAgeMilliseconds, OutgoingBytes, OutgoingRecords, ReadProvisionedThroughputExceeded, WriteProvisionedThroughputExceeded" + <> "'. Accepted values: all, incomingbytes, incomingrecords, iteratoragemilliseconds, outgoingbytes, outgoingrecords, readprovisionedthroughputexceeded, writeprovisionedthroughputexceeded" instance ToText MetricsName where toText = \case @@ -82,7 +82,7 @@ "latest" -> pure Latest "trim_horizon" -> pure TrimHorizon e -> fromTextError $ "Failure parsing ShardIteratorType from value: '" <> e - <> "'. Accepted values: AFTER_SEQUENCE_NUMBER, AT_SEQUENCE_NUMBER, AT_TIMESTAMP, LATEST, TRIM_HORIZON" + <> "'. Accepted values: after_sequence_number, at_sequence_number, at_timestamp, latest, trim_horizon" instance ToText ShardIteratorType where toText = \case @@ -115,7 +115,7 @@ "deleting" -> pure Deleting "updating" -> pure Updating e -> fromTextError $ "Failure parsing StreamStatus from value: '" <> e - <> "'. Accepted values: ACTIVE, CREATING, DELETING, UPDATING" + <> "'. Accepted values: active, creating, deleting, updating" instance ToText StreamStatus where toText = \case diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep