packages feed

amazonka-dynamodb-streams 1.5.0 → 1.6.0

raw patch · 15 files changed

+170/−168 lines, 15 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-dynamodb-streams.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-dynamodb-streams-version:               1.5.0+version:               1.6.0 synopsis:              Amazon DynamoDB Streams SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -57,7 +57,7 @@         , Network.AWS.DynamoDBStreams.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-dynamodb-streams-test@@ -77,8 +77,8 @@         , Test.AWS.DynamoDBStreams.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-dynamodb-streams         , base         , bytestring
gen/Network/AWS/DynamoDBStreams.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/DynamoDBStreams/DescribeStream.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.DescribeStream--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> DescribeStream describeStream pStreamARN_ =   DescribeStream'-  { _dsExclusiveStartShardId = Nothing-  , _dsLimit = Nothing-  , _dsStreamARN = pStreamARN_-  }+    { _dsExclusiveStartShardId = Nothing+    , _dsLimit = Nothing+    , _dsStreamARN = pStreamARN_+    }   -- | The shard ID of the first item that this operation will evaluate. Use the value that was returned for @LastEvaluatedShardId@ in the previous operation. dsExclusiveStartShardId :: Lens' DescribeStream (Maybe Text)-dsExclusiveStartShardId = lens _dsExclusiveStartShardId (\ s a -> s{_dsExclusiveStartShardId = a});+dsExclusiveStartShardId = lens _dsExclusiveStartShardId (\ s a -> s{_dsExclusiveStartShardId = a})  -- | The maximum number of shard objects to return. The upper limit is 100. dsLimit :: Lens' DescribeStream (Maybe Natural)-dsLimit = lens _dsLimit (\ s a -> s{_dsLimit = a}) . mapping _Nat;+dsLimit = lens _dsLimit (\ s a -> s{_dsLimit = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) for the stream. dsStreamARN :: Lens' DescribeStream Text-dsStreamARN = lens _dsStreamARN (\ s a -> s{_dsStreamARN = a});+dsStreamARN = lens _dsStreamARN (\ s a -> s{_dsStreamARN = a})  instance AWSRequest DescribeStream where         type Rs DescribeStream = DescribeStreamResponse@@ -153,15 +153,15 @@     -> DescribeStreamResponse describeStreamResponse pResponseStatus_ =   DescribeStreamResponse'-  {_dsrsStreamDescription = Nothing, _dsrsResponseStatus = pResponseStatus_}+    {_dsrsStreamDescription = Nothing, _dsrsResponseStatus = pResponseStatus_}   -- | A complete description of the stream, including its creation date and time, the DynamoDB table associated with the stream, the shard IDs within the stream, and the beginning and ending sequence numbers of stream records within the shards. dsrsStreamDescription :: Lens' DescribeStreamResponse (Maybe StreamDescription)-dsrsStreamDescription = lens _dsrsStreamDescription (\ s a -> s{_dsrsStreamDescription = a});+dsrsStreamDescription = lens _dsrsStreamDescription (\ s a -> s{_dsrsStreamDescription = a})  -- | -- | The response status code. dsrsResponseStatus :: Lens' DescribeStreamResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})  instance NFData DescribeStreamResponse where
gen/Network/AWS/DynamoDBStreams/GetRecords.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.GetRecords--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,11 +75,11 @@  -- | The maximum number of records to return from the shard. The upper limit is 1000. grLimit :: Lens' GetRecords (Maybe Natural)-grLimit = lens _grLimit (\ s a -> s{_grLimit = a}) . mapping _Nat;+grLimit = lens _grLimit (\ s a -> s{_grLimit = a}) . mapping _Nat  -- | A shard iterator that was retrieved from a previous GetShardIterator operation. This iterator can be used to access the stream records in this shard. grShardIterator :: Lens' GetRecords Text-grShardIterator = lens _grShardIterator (\ s a -> s{_grShardIterator = a});+grShardIterator = lens _grShardIterator (\ s a -> s{_grShardIterator = a})  instance AWSRequest GetRecords where         type Rs GetRecords = GetRecordsResponse@@ -145,22 +145,22 @@     -> GetRecordsResponse getRecordsResponse pResponseStatus_ =   GetRecordsResponse'-  { _grrsRecords = Nothing-  , _grrsNextShardIterator = Nothing-  , _grrsResponseStatus = pResponseStatus_-  }+    { _grrsRecords = Nothing+    , _grrsNextShardIterator = Nothing+    , _grrsResponseStatus = pResponseStatus_+    }   -- | The stream records from the shard, which were retrieved using the shard iterator. grrsRecords :: Lens' GetRecordsResponse [Record]-grrsRecords = lens _grrsRecords (\ s a -> s{_grrsRecords = a}) . _Default . _Coerce;+grrsRecords = lens _grrsRecords (\ s a -> s{_grrsRecords = a}) . _Default . _Coerce  -- | The next position in the shard from which to start sequentially reading stream records. If set to @null@ , the shard has been closed and the requested iterator will not return any more data. grrsNextShardIterator :: Lens' GetRecordsResponse (Maybe Text)-grrsNextShardIterator = lens _grrsNextShardIterator (\ s a -> s{_grrsNextShardIterator = a});+grrsNextShardIterator = lens _grrsNextShardIterator (\ s a -> s{_grrsNextShardIterator = a})  -- | -- | The response status code. grrsResponseStatus :: Lens' GetRecordsResponse Int-grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})  instance NFData GetRecordsResponse where
gen/Network/AWS/DynamoDBStreams/GetShardIterator.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.GetShardIterator--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,28 +78,28 @@     -> GetShardIterator getShardIterator pStreamARN_ pShardId_ pShardIteratorType_ =   GetShardIterator'-  { _gsiSequenceNumber = Nothing-  , _gsiStreamARN = pStreamARN_-  , _gsiShardId = pShardId_-  , _gsiShardIteratorType = pShardIteratorType_-  }+    { _gsiSequenceNumber = Nothing+    , _gsiStreamARN = pStreamARN_+    , _gsiShardId = pShardId_+    , _gsiShardIteratorType = pShardIteratorType_+    }   -- | The sequence number of a stream record in the shard from which to start reading. gsiSequenceNumber :: Lens' GetShardIterator (Maybe Text)-gsiSequenceNumber = lens _gsiSequenceNumber (\ s a -> s{_gsiSequenceNumber = a});+gsiSequenceNumber = lens _gsiSequenceNumber (\ s a -> s{_gsiSequenceNumber = a})  -- | The Amazon Resource Name (ARN) for the stream. gsiStreamARN :: Lens' GetShardIterator Text-gsiStreamARN = lens _gsiStreamARN (\ s a -> s{_gsiStreamARN = a});+gsiStreamARN = lens _gsiStreamARN (\ s a -> s{_gsiStreamARN = a})  -- | The identifier of the shard. The iterator will be returned for this shard ID. gsiShardId :: Lens' GetShardIterator Text-gsiShardId = lens _gsiShardId (\ s a -> s{_gsiShardId = a});+gsiShardId = lens _gsiShardId (\ s a -> s{_gsiShardId = a})  -- | Determines how the shard iterator is used to start reading stream records from the shard:     * @AT_SEQUENCE_NUMBER@ - Start reading exactly from the position denoted by a specific sequence number.     * @AFTER_SEQUENCE_NUMBER@ - Start reading right after the position denoted by a specific sequence number.     * @TRIM_HORIZON@ - Start reading at the last (untrimmed) stream record, which is the oldest record in the shard. In DynamoDB Streams, there is a 24 hour limit on data retention. Stream records whose age exceeds this limit are subject to removal (trimming) from the stream.     * @LATEST@ - Start reading just after the most recent stream record in the shard, so that you always read the most recent data in the shard. gsiShardIteratorType :: Lens' GetShardIterator ShardIteratorType-gsiShardIteratorType = lens _gsiShardIteratorType (\ s a -> s{_gsiShardIteratorType = a});+gsiShardIteratorType = lens _gsiShardIteratorType (\ s a -> s{_gsiShardIteratorType = a})  instance AWSRequest GetShardIterator where         type Rs GetShardIterator = GetShardIteratorResponse@@ -162,15 +162,15 @@     -> GetShardIteratorResponse getShardIteratorResponse pResponseStatus_ =   GetShardIteratorResponse'-  {_gsirsShardIterator = Nothing, _gsirsResponseStatus = pResponseStatus_}+    {_gsirsShardIterator = Nothing, _gsirsResponseStatus = pResponseStatus_}   -- | The position in the shard from which to start reading stream records sequentially. A shard iterator specifies this position using the sequence number of a stream record in a shard. gsirsShardIterator :: Lens' GetShardIteratorResponse (Maybe Text)-gsirsShardIterator = lens _gsirsShardIterator (\ s a -> s{_gsirsShardIterator = a});+gsirsShardIterator = lens _gsirsShardIterator (\ s a -> s{_gsirsShardIterator = a})  -- | -- | The response status code. gsirsResponseStatus :: Lens' GetShardIteratorResponse Int-gsirsResponseStatus = lens _gsirsResponseStatus (\ s a -> s{_gsirsResponseStatus = a});+gsirsResponseStatus = lens _gsirsResponseStatus (\ s a -> s{_gsirsResponseStatus = a})  instance NFData GetShardIteratorResponse where
gen/Network/AWS/DynamoDBStreams/ListStreams.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.ListStreams--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,23 +72,23 @@     :: ListStreams listStreams =   ListStreams'-  { _lsExclusiveStartStreamARN = Nothing-  , _lsLimit = Nothing-  , _lsTableName = Nothing-  }+    { _lsExclusiveStartStreamARN = Nothing+    , _lsLimit = Nothing+    , _lsTableName = Nothing+    }   -- | The ARN (Amazon Resource Name) of the first item that this operation will evaluate. Use the value that was returned for @LastEvaluatedStreamArn@ in the previous operation. lsExclusiveStartStreamARN :: Lens' ListStreams (Maybe Text)-lsExclusiveStartStreamARN = lens _lsExclusiveStartStreamARN (\ s a -> s{_lsExclusiveStartStreamARN = a});+lsExclusiveStartStreamARN = lens _lsExclusiveStartStreamARN (\ s a -> s{_lsExclusiveStartStreamARN = a})  -- | The maximum number of streams to return. The upper limit is 100. lsLimit :: Lens' ListStreams (Maybe Natural)-lsLimit = lens _lsLimit (\ s a -> s{_lsLimit = a}) . mapping _Nat;+lsLimit = lens _lsLimit (\ s a -> s{_lsLimit = a}) . mapping _Nat  -- | If this parameter is provided, then only the streams associated with this table name are returned. lsTableName :: Lens' ListStreams (Maybe Text)-lsTableName = lens _lsTableName (\ s a -> s{_lsTableName = a});+lsTableName = lens _lsTableName (\ s a -> s{_lsTableName = a})  instance AWSRequest ListStreams where         type Rs ListStreams = ListStreamsResponse@@ -156,22 +156,22 @@     -> ListStreamsResponse listStreamsResponse pResponseStatus_ =   ListStreamsResponse'-  { _lsrsLastEvaluatedStreamARN = Nothing-  , _lsrsStreams = Nothing-  , _lsrsResponseStatus = pResponseStatus_-  }+    { _lsrsLastEvaluatedStreamARN = Nothing+    , _lsrsStreams = Nothing+    , _lsrsResponseStatus = pResponseStatus_+    }   -- | The stream ARN of the item where the operation stopped, inclusive of the previous result set. Use this value to start a new operation, excluding this value in the new request. If @LastEvaluatedStreamArn@ is empty, then the "last page" of results has been processed and there is no more data to be retrieved. If @LastEvaluatedStreamArn@ is not empty, it does not necessarily mean that there is more data in the result set. The only way to know when you have reached the end of the result set is when @LastEvaluatedStreamArn@ is empty. lsrsLastEvaluatedStreamARN :: Lens' ListStreamsResponse (Maybe Text)-lsrsLastEvaluatedStreamARN = lens _lsrsLastEvaluatedStreamARN (\ s a -> s{_lsrsLastEvaluatedStreamARN = a});+lsrsLastEvaluatedStreamARN = lens _lsrsLastEvaluatedStreamARN (\ s a -> s{_lsrsLastEvaluatedStreamARN = a})  -- | A list of stream descriptors associated with the current account and endpoint. lsrsStreams :: Lens' ListStreamsResponse [Stream]-lsrsStreams = lens _lsrsStreams (\ s a -> s{_lsrsStreams = a}) . _Default . _Coerce;+lsrsStreams = lens _lsrsStreams (\ s a -> s{_lsrsStreams = a}) . _Default . _Coerce  -- | -- | The response status code. lsrsResponseStatus :: Lens' ListStreamsResponse Int-lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a})  instance NFData ListStreamsResponse where
gen/Network/AWS/DynamoDBStreams/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -129,24 +129,24 @@ dynamoDBStreams :: Service dynamoDBStreams =   Service-  { _svcAbbrev = "DynamoDBStreams"-  , _svcSigner = v4-  , _svcPrefix = "streams.dynamodb"-  , _svcVersion = "2012-08-10"-  , _svcEndpoint = defaultEndpoint dynamoDBStreams-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "DynamoDBStreams"-  , _svcRetry = retry-  }+    { _svcAbbrev = "DynamoDBStreams"+    , _svcSigner = v4+    , _svcPrefix = "streams.dynamodb"+    , _svcVersion = "2012-08-10"+    , _svcEndpoint = defaultEndpoint dynamoDBStreams+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "DynamoDBStreams"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -155,6 +155,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/DynamoDBStreams/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,58 +69,58 @@     :: AttributeValue attributeValue =   AttributeValue'-  { _avL = Nothing-  , _avNS = Nothing-  , _avM = Nothing-  , _avNULL = Nothing-  , _avN = Nothing-  , _avBS = Nothing-  , _avB = Nothing-  , _avSS = Nothing-  , _avS = Nothing-  , _avBOOL = Nothing-  }+    { _avL = Nothing+    , _avNS = Nothing+    , _avM = Nothing+    , _avNULL = Nothing+    , _avN = Nothing+    , _avBS = Nothing+    , _avB = Nothing+    , _avSS = Nothing+    , _avS = Nothing+    , _avBOOL = Nothing+    }   -- | A List data type. avL :: Lens' AttributeValue [AttributeValue]-avL = lens _avL (\ s a -> s{_avL = a}) . _Default . _Coerce;+avL = lens _avL (\ s a -> s{_avL = a}) . _Default . _Coerce  -- | A Number Set data type. avNS :: Lens' AttributeValue [Text]-avNS = lens _avNS (\ s a -> s{_avNS = a}) . _Default . _Coerce;+avNS = lens _avNS (\ s a -> s{_avNS = a}) . _Default . _Coerce  -- | A Map data type. avM :: Lens' AttributeValue (HashMap Text AttributeValue)-avM = lens _avM (\ s a -> s{_avM = a}) . _Default . _Map;+avM = lens _avM (\ s a -> s{_avM = a}) . _Default . _Map  -- | A Null data type. avNULL :: Lens' AttributeValue (Maybe Bool)-avNULL = lens _avNULL (\ s a -> s{_avNULL = a});+avNULL = lens _avNULL (\ s a -> s{_avNULL = a})  -- | A Number data type. avN :: Lens' AttributeValue (Maybe Text)-avN = lens _avN (\ s a -> s{_avN = a});+avN = lens _avN (\ s a -> s{_avN = a})  -- | A Binary Set data type. avBS :: Lens' AttributeValue [ByteString]-avBS = lens _avBS (\ s a -> s{_avBS = a}) . _Default . _Coerce;+avBS = lens _avBS (\ s a -> s{_avBS = a}) . _Default . _Coerce  -- | A Binary data type.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. avB :: Lens' AttributeValue (Maybe ByteString)-avB = lens _avB (\ s a -> s{_avB = a}) . mapping _Base64;+avB = lens _avB (\ s a -> s{_avB = a}) . mapping _Base64  -- | A String Set data type. avSS :: Lens' AttributeValue [Text]-avSS = lens _avSS (\ s a -> s{_avSS = a}) . _Default . _Coerce;+avSS = lens _avSS (\ s a -> s{_avSS = a}) . _Default . _Coerce  -- | A String data type. avS :: Lens' AttributeValue (Maybe Text)-avS = lens _avS (\ s a -> s{_avS = a});+avS = lens _avS (\ s a -> s{_avS = a})  -- | A Boolean data type. avBOOL :: Lens' AttributeValue (Maybe Bool)-avBOOL = lens _avBOOL (\ s a -> s{_avBOOL = a});+avBOOL = lens _avBOOL (\ s a -> s{_avBOOL = a})  instance FromJSON AttributeValue where         parseJSON@@ -166,11 +166,11 @@  -- | A unique identifier for the entity that made the call. For Time To Live, the principalId is "dynamodb.amazonaws.com". iPrincipalId :: Lens' Identity (Maybe Text)-iPrincipalId = lens _iPrincipalId (\ s a -> s{_iPrincipalId = a});+iPrincipalId = lens _iPrincipalId (\ s a -> s{_iPrincipalId = a})  -- | The type of the identity. For Time To Live, the type is "Service". iType :: Lens' Identity (Maybe Text)-iType = lens _iType (\ s a -> s{_iType = a});+iType = lens _iType (\ s a -> s{_iType = a})  instance FromJSON Identity where         parseJSON@@ -209,16 +209,16 @@     -> KeySchemaElement keySchemaElement pAttributeName_ pKeyType_ =   KeySchemaElement'-  {_kseAttributeName = pAttributeName_, _kseKeyType = pKeyType_}+    {_kseAttributeName = pAttributeName_, _kseKeyType = pKeyType_}   -- | The name of a key attribute. kseAttributeName :: Lens' KeySchemaElement Text-kseAttributeName = lens _kseAttributeName (\ s a -> s{_kseAttributeName = a});+kseAttributeName = lens _kseAttributeName (\ s a -> s{_kseAttributeName = a})  -- | The attribute data, consisting of the data type and the attribute value itself. kseKeyType :: Lens' KeySchemaElement KeyType-kseKeyType = lens _kseKeyType (\ s a -> s{_kseKeyType = a});+kseKeyType = lens _kseKeyType (\ s a -> s{_kseKeyType = a})  instance FromJSON KeySchemaElement where         parseJSON@@ -268,43 +268,43 @@     :: Record record =   Record'-  { _rUserIdentity = Nothing-  , _rEventVersion = Nothing-  , _rDynamodb = Nothing-  , _rAwsRegion = Nothing-  , _rEventName = Nothing-  , _rEventSource = Nothing-  , _rEventId = Nothing-  }+    { _rUserIdentity = Nothing+    , _rEventVersion = Nothing+    , _rDynamodb = Nothing+    , _rAwsRegion = Nothing+    , _rEventName = Nothing+    , _rEventSource = Nothing+    , _rEventId = Nothing+    }   -- | Items that are deleted by the Time to Live process after expiration have the following fields:      * Records[].userIdentity.type "Service"     * Records[].userIdentity.principalId "dynamodb.amazonaws.com" rUserIdentity :: Lens' Record (Maybe Identity)-rUserIdentity = lens _rUserIdentity (\ s a -> s{_rUserIdentity = a});+rUserIdentity = lens _rUserIdentity (\ s a -> s{_rUserIdentity = a})  -- | The version number of the stream record format. This number is updated whenever the structure of @Record@ is modified. Client applications must not assume that @eventVersion@ will remain at a particular value, as this number is subject to change at any time. In general, @eventVersion@ will only increase as the low-level DynamoDB Streams API evolves. rEventVersion :: Lens' Record (Maybe Text)-rEventVersion = lens _rEventVersion (\ s a -> s{_rEventVersion = a});+rEventVersion = lens _rEventVersion (\ s a -> s{_rEventVersion = a})  -- | The main body of the stream record, containing all of the DynamoDB-specific fields. rDynamodb :: Lens' Record (Maybe StreamRecord)-rDynamodb = lens _rDynamodb (\ s a -> s{_rDynamodb = a});+rDynamodb = lens _rDynamodb (\ s a -> s{_rDynamodb = a})  -- | The region in which the @GetRecords@ request was received. rAwsRegion :: Lens' Record (Maybe Text)-rAwsRegion = lens _rAwsRegion (\ s a -> s{_rAwsRegion = a});+rAwsRegion = lens _rAwsRegion (\ s a -> s{_rAwsRegion = a})  -- | The type of data modification that was performed on the DynamoDB table:     * @INSERT@ - a new item was added to the table.     * @MODIFY@ - one or more of an existing item's attributes were modified.     * @REMOVE@ - the item was deleted from the table rEventName :: Lens' Record (Maybe OperationType)-rEventName = lens _rEventName (\ s a -> s{_rEventName = a});+rEventName = lens _rEventName (\ s a -> s{_rEventName = a})  -- | The AWS service from which the stream record originated. For DynamoDB Streams, this is @aws:dynamodb@ . rEventSource :: Lens' Record (Maybe Text)-rEventSource = lens _rEventSource (\ s a -> s{_rEventSource = a});+rEventSource = lens _rEventSource (\ s a -> s{_rEventSource = a})  -- | A globally unique identifier for the event that was recorded in this stream record. rEventId :: Lens' Record (Maybe Text)-rEventId = lens _rEventId (\ s a -> s{_rEventId = a});+rEventId = lens _rEventId (\ s a -> s{_rEventId = a})  instance FromJSON Record where         parseJSON@@ -344,16 +344,16 @@     :: SequenceNumberRange sequenceNumberRange =   SequenceNumberRange'-  {_snrStartingSequenceNumber = Nothing, _snrEndingSequenceNumber = Nothing}+    {_snrStartingSequenceNumber = Nothing, _snrEndingSequenceNumber = Nothing}   -- | The first sequence number. snrStartingSequenceNumber :: Lens' SequenceNumberRange (Maybe Text)-snrStartingSequenceNumber = lens _snrStartingSequenceNumber (\ s a -> s{_snrStartingSequenceNumber = a});+snrStartingSequenceNumber = lens _snrStartingSequenceNumber (\ s a -> s{_snrStartingSequenceNumber = a})  -- | The last sequence number. snrEndingSequenceNumber :: Lens' SequenceNumberRange (Maybe Text)-snrEndingSequenceNumber = lens _snrEndingSequenceNumber (\ s a -> s{_snrEndingSequenceNumber = a});+snrEndingSequenceNumber = lens _snrEndingSequenceNumber (\ s a -> s{_snrEndingSequenceNumber = a})  instance FromJSON SequenceNumberRange where         parseJSON@@ -392,23 +392,23 @@     :: Shard shard =   Shard'-  { _sParentShardId = Nothing-  , _sSequenceNumberRange = Nothing-  , _sShardId = Nothing-  }+    { _sParentShardId = Nothing+    , _sSequenceNumberRange = Nothing+    , _sShardId = Nothing+    }   -- | The shard ID of the current shard's parent. sParentShardId :: Lens' Shard (Maybe Text)-sParentShardId = lens _sParentShardId (\ s a -> s{_sParentShardId = a});+sParentShardId = lens _sParentShardId (\ s a -> s{_sParentShardId = a})  -- | The range of possible sequence numbers for the shard. sSequenceNumberRange :: Lens' Shard (Maybe SequenceNumberRange)-sSequenceNumberRange = lens _sSequenceNumberRange (\ s a -> s{_sSequenceNumberRange = a});+sSequenceNumberRange = lens _sSequenceNumberRange (\ s a -> s{_sSequenceNumberRange = a})  -- | The system-generated identifier for this shard. sShardId :: Lens' Shard (Maybe Text)-sShardId = lens _sShardId (\ s a -> s{_sShardId = a});+sShardId = lens _sShardId (\ s a -> s{_sShardId = a})  instance FromJSON Shard where         parseJSON@@ -448,20 +448,20 @@     :: Stream stream =   Stream'-  {_sStreamLabel = Nothing, _sStreamARN = Nothing, _sTableName = Nothing}+    {_sStreamLabel = Nothing, _sStreamARN = Nothing, _sTableName = Nothing}   -- | A timestamp, in ISO 8601 format, for this stream. Note that @LatestStreamLabel@ is not a unique identifier for the stream, because it is possible that a stream from another table might have the same timestamp. However, the combination of the following three elements is guaranteed to be unique:     * the AWS customer ID.     * the table name     * the @StreamLabel@ sStreamLabel :: Lens' Stream (Maybe Text)-sStreamLabel = lens _sStreamLabel (\ s a -> s{_sStreamLabel = a});+sStreamLabel = lens _sStreamLabel (\ s a -> s{_sStreamLabel = a})  -- | The Amazon Resource Name (ARN) for the stream. sStreamARN :: Lens' Stream (Maybe Text)-sStreamARN = lens _sStreamARN (\ s a -> s{_sStreamARN = a});+sStreamARN = lens _sStreamARN (\ s a -> s{_sStreamARN = a})  -- | The DynamoDB table with which the stream is associated. sTableName :: Lens' Stream (Maybe Text)-sTableName = lens _sTableName (\ s a -> s{_sTableName = a});+sTableName = lens _sTableName (\ s a -> s{_sTableName = a})  instance FromJSON Stream where         parseJSON@@ -518,53 +518,53 @@     :: StreamDescription streamDescription =   StreamDescription'-  { _sdLastEvaluatedShardId = Nothing-  , _sdStreamLabel = Nothing-  , _sdStreamStatus = Nothing-  , _sdKeySchema = Nothing-  , _sdStreamViewType = Nothing-  , _sdStreamARN = Nothing-  , _sdShards = Nothing-  , _sdTableName = Nothing-  , _sdCreationRequestDateTime = Nothing-  }+    { _sdLastEvaluatedShardId = Nothing+    , _sdStreamLabel = Nothing+    , _sdStreamStatus = Nothing+    , _sdKeySchema = Nothing+    , _sdStreamViewType = Nothing+    , _sdStreamARN = Nothing+    , _sdShards = Nothing+    , _sdTableName = Nothing+    , _sdCreationRequestDateTime = Nothing+    }   -- | The shard ID of the item where the operation stopped, inclusive of the previous result set. Use this value to start a new operation, excluding this value in the new request. If @LastEvaluatedShardId@ is empty, then the "last page" of results has been processed and there is currently no more data to be retrieved. If @LastEvaluatedShardId@ is not empty, it does not necessarily mean that there is more data in the result set. The only way to know when you have reached the end of the result set is when @LastEvaluatedShardId@ is empty. sdLastEvaluatedShardId :: Lens' StreamDescription (Maybe Text)-sdLastEvaluatedShardId = lens _sdLastEvaluatedShardId (\ s a -> s{_sdLastEvaluatedShardId = a});+sdLastEvaluatedShardId = lens _sdLastEvaluatedShardId (\ s a -> s{_sdLastEvaluatedShardId = a})  -- | A timestamp, in ISO 8601 format, for this stream. Note that @LatestStreamLabel@ is not a unique identifier for the stream, because it is possible that a stream from another table might have the same timestamp. However, the combination of the following three elements is guaranteed to be unique:     * the AWS customer ID.     * the table name     * the @StreamLabel@ sdStreamLabel :: Lens' StreamDescription (Maybe Text)-sdStreamLabel = lens _sdStreamLabel (\ s a -> s{_sdStreamLabel = a});+sdStreamLabel = lens _sdStreamLabel (\ s a -> s{_sdStreamLabel = a})  -- | Indicates the current status of the stream:     * @ENABLING@ - Streams is currently being enabled on the DynamoDB table.     * @ENABLED@ - the stream is enabled.     * @DISABLING@ - Streams is currently being disabled on the DynamoDB table.     * @DISABLED@ - the stream is disabled. sdStreamStatus :: Lens' StreamDescription (Maybe StreamStatus)-sdStreamStatus = lens _sdStreamStatus (\ s a -> s{_sdStreamStatus = a});+sdStreamStatus = lens _sdStreamStatus (\ s a -> s{_sdStreamStatus = a})  -- | The key attribute(s) of the stream's DynamoDB table. sdKeySchema :: Lens' StreamDescription (Maybe (NonEmpty KeySchemaElement))-sdKeySchema = lens _sdKeySchema (\ s a -> s{_sdKeySchema = a}) . mapping _List1;+sdKeySchema = lens _sdKeySchema (\ s a -> s{_sdKeySchema = a}) . mapping _List1  -- | Indicates the format of the records within this stream:     * @KEYS_ONLY@ - only the key attributes of items that were modified in the DynamoDB table.     * @NEW_IMAGE@ - entire items from the table, as they appeared after they were modified.     * @OLD_IMAGE@ - entire items from the table, as they appeared before they were modified.     * @NEW_AND_OLD_IMAGES@ - both the new and the old images of the items from the table. sdStreamViewType :: Lens' StreamDescription (Maybe StreamViewType)-sdStreamViewType = lens _sdStreamViewType (\ s a -> s{_sdStreamViewType = a});+sdStreamViewType = lens _sdStreamViewType (\ s a -> s{_sdStreamViewType = a})  -- | The Amazon Resource Name (ARN) for the stream. sdStreamARN :: Lens' StreamDescription (Maybe Text)-sdStreamARN = lens _sdStreamARN (\ s a -> s{_sdStreamARN = a});+sdStreamARN = lens _sdStreamARN (\ s a -> s{_sdStreamARN = a})  -- | The shards that comprise the stream. sdShards :: Lens' StreamDescription [Shard]-sdShards = lens _sdShards (\ s a -> s{_sdShards = a}) . _Default . _Coerce;+sdShards = lens _sdShards (\ s a -> s{_sdShards = a}) . _Default . _Coerce  -- | The DynamoDB table with which the stream is associated. sdTableName :: Lens' StreamDescription (Maybe Text)-sdTableName = lens _sdTableName (\ s a -> s{_sdTableName = a});+sdTableName = lens _sdTableName (\ s a -> s{_sdTableName = a})  -- | The date and time when the request to create this stream was issued. sdCreationRequestDateTime :: Lens' StreamDescription (Maybe UTCTime)-sdCreationRequestDateTime = lens _sdCreationRequestDateTime (\ s a -> s{_sdCreationRequestDateTime = a}) . mapping _Time;+sdCreationRequestDateTime = lens _sdCreationRequestDateTime (\ s a -> s{_sdCreationRequestDateTime = a}) . mapping _Time  instance FromJSON StreamDescription where         parseJSON@@ -622,43 +622,43 @@     :: StreamRecord streamRecord =   StreamRecord'-  { _srSizeBytes = Nothing-  , _srSequenceNumber = Nothing-  , _srApproximateCreationDateTime = Nothing-  , _srStreamViewType = Nothing-  , _srKeys = Nothing-  , _srOldImage = Nothing-  , _srNewImage = Nothing-  }+    { _srSizeBytes = Nothing+    , _srSequenceNumber = Nothing+    , _srApproximateCreationDateTime = Nothing+    , _srStreamViewType = Nothing+    , _srKeys = Nothing+    , _srOldImage = Nothing+    , _srNewImage = Nothing+    }   -- | The size of the stream record, in bytes. srSizeBytes :: Lens' StreamRecord (Maybe Natural)-srSizeBytes = lens _srSizeBytes (\ s a -> s{_srSizeBytes = a}) . mapping _Nat;+srSizeBytes = lens _srSizeBytes (\ s a -> s{_srSizeBytes = a}) . mapping _Nat  -- | The sequence number of the stream record. srSequenceNumber :: Lens' StreamRecord (Maybe Text)-srSequenceNumber = lens _srSequenceNumber (\ s a -> s{_srSequenceNumber = a});+srSequenceNumber = lens _srSequenceNumber (\ s a -> s{_srSequenceNumber = a})  -- | The approximate date and time when the stream record was created, in <http://www.epochconverter.com/ UNIX epoch time> format. srApproximateCreationDateTime :: Lens' StreamRecord (Maybe UTCTime)-srApproximateCreationDateTime = lens _srApproximateCreationDateTime (\ s a -> s{_srApproximateCreationDateTime = a}) . mapping _Time;+srApproximateCreationDateTime = lens _srApproximateCreationDateTime (\ s a -> s{_srApproximateCreationDateTime = a}) . mapping _Time  -- | The type of data from the modified DynamoDB item that was captured in this stream record:     * @KEYS_ONLY@ - only the key attributes of the modified item.     * @NEW_IMAGE@ - the entire item, as it appeared after it was modified.     * @OLD_IMAGE@ - the entire item, as it appeared before it was modified.     * @NEW_AND_OLD_IMAGES@ - both the new and the old item images of the item. srStreamViewType :: Lens' StreamRecord (Maybe StreamViewType)-srStreamViewType = lens _srStreamViewType (\ s a -> s{_srStreamViewType = a});+srStreamViewType = lens _srStreamViewType (\ s a -> s{_srStreamViewType = a})  -- | The primary key attribute(s) for the DynamoDB item that was modified. srKeys :: Lens' StreamRecord (HashMap Text AttributeValue)-srKeys = lens _srKeys (\ s a -> s{_srKeys = a}) . _Default . _Map;+srKeys = lens _srKeys (\ s a -> s{_srKeys = a}) . _Default . _Map  -- | The item in the DynamoDB table as it appeared before it was modified. srOldImage :: Lens' StreamRecord (HashMap Text AttributeValue)-srOldImage = lens _srOldImage (\ s a -> s{_srOldImage = a}) . _Default . _Map;+srOldImage = lens _srOldImage (\ s a -> s{_srOldImage = a}) . _Default . _Map  -- | The item in the DynamoDB table as it appeared after it was modified. srNewImage :: Lens' StreamRecord (HashMap Text AttributeValue)-srNewImage = lens _srNewImage (\ s a -> s{_srNewImage = a}) . _Default . _Map;+srNewImage = lens _srNewImage (\ s a -> s{_srNewImage = a}) . _Default . _Map  instance FromJSON StreamRecord where         parseJSON
gen/Network/AWS/DynamoDBStreams/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/DynamoDBStreams/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.DynamoDBStreams.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/DynamoDBStreams.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.DynamoDBStreams--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/DynamoDBStreams/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.DynamoDBStreams.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/DynamoDBStreams.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.DynamoDBStreams--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated