amazonka-kinesis 1.4.3 → 1.4.4

raw patch · 7 files changed

+33/−34 lines, 7 filesdep ~amazonka-coredep ~amazonka-kinesisdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-kinesis, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-kinesis.cabal +6/−6
• gen/Network/AWS/Kinesis/DisableEnhancedMonitoring.hs +5/−6
• gen/Network/AWS/Kinesis/EnableEnhancedMonitoring.hs +5/−6
• gen/Network/AWS/Kinesis/Types/Product.hs +13/−12
• gen/Network/AWS/Kinesis/Types/Sum.hs +3/−3
• src/.gitkeep +0/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -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

@@ -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 <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 =

@@ -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 <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 =

@@ -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 <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 @@ -- -- /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

@@ -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