summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2016-10-23 08:50:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-10-23 08:50:00 (GMT)
commit6105d4e3628eb9a0269ad55c601cad79cbf7463f (patch)
tree8471c7e561e78a159e542472f6c6f825703d7b85
parent01fd2cef65ee3c094fb278d023342385f9297cd1 (diff)
version 1.4.41.4.4
-rw-r--r--README.md2
-rw-r--r--amazonka-kinesis.cabal12
-rw-r--r--gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs11
-rw-r--r--gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs11
-rw-r--r--gen/Network/AWS/Kinesis/Types/Product.hs25
-rw-r--r--gen/Network/AWS/Kinesis/Types/Sum.hs6
6 files changed, 33 insertions, 34 deletions
diff --git a/README.md b/README.md
index d4e58aa..c40ad7b 100644
--- 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
index eb8621e..e3ca1bf 100644
--- 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 @@ copyright: Copyright (c) 2013-2016 Brendan Hay
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 @@ library
, 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-suite amazonka-kinesis-test
, 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
index 4d4ce86..2c01d0a 100644
--- a/gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs
+++ b/gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs
@@ -49,7 +49,7 @@ import Network.AWS.Response
-- /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 @@ data DisableEnhancedMonitoring = DisableEnhancedMonitoring'
-- * '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 @@ demStreamName = lens _demStreamName (\ s a -> s{_demStreamName = a});
-- - 'ALL'
--
-- For more information, see <http://docs.aws.amazon.com/kinesis/latest/dev/monitoring-with-cloudwatch.html Monitoring the Amazon Kinesis Streams Service with Amazon CloudWatch> 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
index d49a2d5..431e9b3 100644
--- a/gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs
+++ b/gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs
@@ -49,7 +49,7 @@ import Network.AWS.Response
-- /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 @@ data EnableEnhancedMonitoring = EnableEnhancedMonitoring'
-- * '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 @@ eemStreamName = lens _eemStreamName (\ s a -> s{_eemStreamName = a});
-- - 'ALL'
--
-- For more information, see <http://docs.aws.amazon.com/kinesis/latest/dev/monitoring-with-cloudwatch.html Monitoring the Amazon Kinesis Streams Service with Amazon CloudWatch> 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
index a24cd1a..11d8973 100644
--- a/gen/Network/AWS/Kinesis/Types/Product.hs
+++ b/gen/Network/AWS/Kinesis/Types/Product.hs
@@ -25,7 +25,7 @@ import Network.AWS.Prelude
--
-- /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 @@ enhancedMetrics =
-- - 'ALL'
--
-- For more information, see <http://docs.aws.amazon.com/kinesis/latest/dev/monitoring-with-cloudwatch.html Monitoring the Amazon Kinesis Streams Service with Amazon CloudWatch> 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 @@ instance NFData EnhancedMetrics
--
-- /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 @@ enhancedMonitoringOutput =
}
-- | 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 @@ instance FromJSON EnhancedMonitoringOutput where
= 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
index 953dff5..52c4037 100644
--- a/gen/Network/AWS/Kinesis/Types/Sum.hs
+++ b/gen/Network/AWS/Kinesis/Types/Sum.hs
@@ -41,7 +41,7 @@ instance FromText MetricsName where
"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 @@ instance FromText ShardIteratorType where
"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 @@ instance FromText StreamStatus where
"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