amazonka-dynamodb-streams 1.2.0.2 → 1.3.0

raw patch · 10 files changed

+98/−98 lines, 10 filesdep ~amazonka-coredep ~amazonka-dynamodb-streamsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-dynamodb-streams, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-dynamodb-streams.cabal +5/−5
• gen/Network/AWS/DynamoDBStreams.hs +6/−6
• gen/Network/AWS/DynamoDBStreams/DescribeStream.hs +8/−8
• gen/Network/AWS/DynamoDBStreams/GetRecords.hs +8/−8
• gen/Network/AWS/DynamoDBStreams/GetShardIterator.hs +9/−9
• gen/Network/AWS/DynamoDBStreams/ListStreams.hs +8/−8
• gen/Network/AWS/DynamoDBStreams/Types.hs +3/−3
• gen/Network/AWS/DynamoDBStreams/Types/Product.hs +30/−30
• test/Test/AWS/Gen/DynamoDBStreams.hs +20/−20

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-dynamodb-streams-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon DynamoDB Streams SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -80,7 +80,7 @@         , Network.AWS.DynamoDBStreams.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-dynamodb-streams-test@@ -100,9 +100,9 @@         , Test.AWS.DynamoDBStreams.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-dynamodb-streams == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-dynamodb-streams == 1.3.0.*         , base         , bytestring         , lens

@@ -71,12 +71,12 @@     -- * Operations     -- $operations -    -- ** GetRecords-    , module Network.AWS.DynamoDBStreams.GetRecords-     -- ** GetShardIterator     , module Network.AWS.DynamoDBStreams.GetShardIterator +    -- ** GetRecords+    , module Network.AWS.DynamoDBStreams.GetRecords+     -- ** ListStreams     , module Network.AWS.DynamoDBStreams.ListStreams @@ -104,8 +104,8 @@     , AttributeValue     , attributeValue     , avL-    , avM     , avNS+    , avM     , avNULL     , avN     , avBS@@ -157,8 +157,8 @@     , sdStreamLabel     , sdStreamStatus     , sdKeySchema-    , sdStreamARN     , sdStreamViewType+    , sdStreamARN     , sdShards     , sdTableName     , sdCreationRequestDateTime@@ -166,8 +166,8 @@     -- ** StreamRecord     , StreamRecord     , streamRecord-    , srSequenceNumber     , srSizeBytes+    , srSequenceNumber     , srStreamViewType     , srKeys     , srOldImage

@@ -47,7 +47,7 @@     , DescribeStreamResponse     -- * Response Lenses     , dsrsStreamDescription-    , dsrsStatus+    , dsrsResponseStatus     ) where  import           Network.AWS.DynamoDBStreams.Types@@ -137,7 +137,7 @@ -- /See:/ 'describeStreamResponse' smart constructor. data DescribeStreamResponse = DescribeStreamResponse'     { _dsrsStreamDescription :: !(Maybe StreamDescription)-    , _dsrsStatus            :: !Int+    , _dsrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeStreamResponse' with the minimum fields required to make a request.@@ -146,14 +146,14 @@ -- -- * 'dsrsStreamDescription' ----- * 'dsrsStatus'+-- * 'dsrsResponseStatus' describeStreamResponse-    :: Int -- ^ 'dsrsStatus'+    :: Int -- ^ 'dsrsResponseStatus'     -> DescribeStreamResponse-describeStreamResponse pStatus_ =+describeStreamResponse pResponseStatus_ =     DescribeStreamResponse'     { _dsrsStreamDescription = Nothing-    , _dsrsStatus = pStatus_+    , _dsrsResponseStatus = pResponseStatus_     }  -- | A complete description of the stream, including its creation date and@@ -164,5 +164,5 @@ dsrsStreamDescription = lens _dsrsStreamDescription (\ s a -> s{_dsrsStreamDescription = a});  -- | The response status code.-dsrsStatus :: Lens' DescribeStreamResponse Int-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});+dsrsResponseStatus :: Lens' DescribeStreamResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});

@@ -46,7 +46,7 @@     -- * Response Lenses     , grrsRecords     , grrsNextShardIterator-    , grrsStatus+    , grrsResponseStatus     ) where  import           Network.AWS.DynamoDBStreams.Types@@ -130,7 +130,7 @@ data GetRecordsResponse = GetRecordsResponse'     { _grrsRecords           :: !(Maybe [Record])     , _grrsNextShardIterator :: !(Maybe Text)-    , _grrsStatus            :: !Int+    , _grrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetRecordsResponse' with the minimum fields required to make a request.@@ -141,15 +141,15 @@ -- -- * 'grrsNextShardIterator' ----- * 'grrsStatus'+-- * 'grrsResponseStatus' getRecordsResponse-    :: Int -- ^ 'grrsStatus'+    :: Int -- ^ 'grrsResponseStatus'     -> GetRecordsResponse-getRecordsResponse pStatus_ =+getRecordsResponse pResponseStatus_ =     GetRecordsResponse'     { _grrsRecords = Nothing     , _grrsNextShardIterator = Nothing-    , _grrsStatus = pStatus_+    , _grrsResponseStatus = pResponseStatus_     }  -- | The stream records from the shard, which were retrieved using the shard@@ -164,5 +164,5 @@ grrsNextShardIterator = lens _grrsNextShardIterator (\ s a -> s{_grrsNextShardIterator = a});  -- | The response status code.-grrsStatus :: Lens' GetRecordsResponse Int-grrsStatus = lens _grrsStatus (\ s a -> s{_grrsStatus = a});+grrsResponseStatus :: Lens' GetRecordsResponse Int+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});

@@ -43,7 +43,7 @@     , GetShardIteratorResponse     -- * Response Lenses     , gsirsShardIterator-    , gsirsStatus+    , gsirsResponseStatus     ) where  import           Network.AWS.DynamoDBStreams.Types@@ -160,8 +160,8 @@ -- -- /See:/ 'getShardIteratorResponse' smart constructor. data GetShardIteratorResponse = GetShardIteratorResponse'-    { _gsirsShardIterator :: !(Maybe Text)-    , _gsirsStatus        :: !Int+    { _gsirsShardIterator  :: !(Maybe Text)+    , _gsirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetShardIteratorResponse' with the minimum fields required to make a request.@@ -170,14 +170,14 @@ -- -- * 'gsirsShardIterator' ----- * 'gsirsStatus'+-- * 'gsirsResponseStatus' getShardIteratorResponse-    :: Int -- ^ 'gsirsStatus'+    :: Int -- ^ 'gsirsResponseStatus'     -> GetShardIteratorResponse-getShardIteratorResponse pStatus_ =+getShardIteratorResponse pResponseStatus_ =     GetShardIteratorResponse'     { _gsirsShardIterator = Nothing-    , _gsirsStatus = pStatus_+    , _gsirsResponseStatus = pResponseStatus_     }  -- | The position in the shard from which to start reading stream records@@ -187,5 +187,5 @@ gsirsShardIterator = lens _gsirsShardIterator (\ s a -> s{_gsirsShardIterator = a});  -- | The response status code.-gsirsStatus :: Lens' GetShardIteratorResponse Int-gsirsStatus = lens _gsirsStatus (\ s a -> s{_gsirsStatus = a});+gsirsResponseStatus :: Lens' GetShardIteratorResponse Int+gsirsResponseStatus = lens _gsirsResponseStatus (\ s a -> s{_gsirsResponseStatus = a});

@@ -41,7 +41,7 @@     -- * Response Lenses     , lsrsLastEvaluatedStreamARN     , lsrsStreams-    , lsrsStatus+    , lsrsResponseStatus     ) where  import           Network.AWS.DynamoDBStreams.Types@@ -134,7 +134,7 @@ data ListStreamsResponse = ListStreamsResponse'     { _lsrsLastEvaluatedStreamARN :: !(Maybe Text)     , _lsrsStreams                :: !(Maybe [Stream])-    , _lsrsStatus                 :: !Int+    , _lsrsResponseStatus         :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListStreamsResponse' with the minimum fields required to make a request.@@ -145,15 +145,15 @@ -- -- * 'lsrsStreams' ----- * 'lsrsStatus'+-- * 'lsrsResponseStatus' listStreamsResponse-    :: Int -- ^ 'lsrsStatus'+    :: Int -- ^ 'lsrsResponseStatus'     -> ListStreamsResponse-listStreamsResponse pStatus_ =+listStreamsResponse pResponseStatus_ =     ListStreamsResponse'     { _lsrsLastEvaluatedStreamARN = Nothing     , _lsrsStreams = Nothing-    , _lsrsStatus = pStatus_+    , _lsrsResponseStatus = pResponseStatus_     }  -- | The stream ARN of the item where the operation stopped, inclusive of the@@ -176,5 +176,5 @@ lsrsStreams = lens _lsrsStreams (\ s a -> s{_lsrsStreams = a}) . _Default . _Coerce;  -- | The response status code.-lsrsStatus :: Lens' ListStreamsResponse Int-lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a});+lsrsResponseStatus :: Lens' ListStreamsResponse Int+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});

@@ -41,8 +41,8 @@     , AttributeValue     , attributeValue     , avL-    , avM     , avNS+    , avM     , avNULL     , avN     , avBS@@ -94,8 +94,8 @@     , sdStreamLabel     , sdStreamStatus     , sdKeySchema-    , sdStreamARN     , sdStreamViewType+    , sdStreamARN     , sdShards     , sdTableName     , sdCreationRequestDateTime@@ -103,8 +103,8 @@     -- * StreamRecord     , StreamRecord     , streamRecord-    , srSequenceNumber     , srSizeBytes+    , srSequenceNumber     , srStreamViewType     , srKeys     , srOldImage

@@ -32,8 +32,8 @@ -- /See:/ 'attributeValue' smart constructor. data AttributeValue = AttributeValue'     { _avL    :: !(Maybe [AttributeValue])-    , _avM    :: !(Maybe (Map Text AttributeValue))     , _avNS   :: !(Maybe [Text])+    , _avM    :: !(Maybe (Map Text AttributeValue))     , _avNULL :: !(Maybe Bool)     , _avN    :: !(Maybe Text)     , _avBS   :: !(Maybe [Base64])@@ -49,10 +49,10 @@ -- -- * 'avL' ----- * 'avM'--- -- * 'avNS' --+-- * 'avM'+-- -- * 'avNULL' -- -- * 'avN'@@ -71,8 +71,8 @@ attributeValue =     AttributeValue'     { _avL = Nothing-    , _avM = Nothing     , _avNS = Nothing+    , _avM = Nothing     , _avNULL = Nothing     , _avN = Nothing     , _avBS = Nothing@@ -86,14 +86,14 @@ avL :: Lens' AttributeValue [AttributeValue] avL = lens _avL (\ s a -> s{_avL = a}) . _Default . _Coerce; --- | A Map data type.-avM :: Lens' AttributeValue (HashMap Text AttributeValue)-avM = lens _avM (\ s a -> s{_avM = a}) . _Default . _Map;- -- | A Number Set data type. avNS :: Lens' AttributeValue [Text] 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;+ -- | A Null data type. avNULL :: Lens' AttributeValue (Maybe Bool) avNULL = lens _avNULL (\ s a -> s{_avNULL = a});@@ -133,8 +133,8 @@           = withObject "AttributeValue"               (\ x ->                  AttributeValue' <$>-                   (x .:? "L" .!= mempty) <*> (x .:? "M" .!= mempty) <*>-                     (x .:? "NS" .!= mempty)+                   (x .:? "L" .!= mempty) <*> (x .:? "NS" .!= mempty)+                     <*> (x .:? "M" .!= mempty)                      <*> (x .:? "NULL")                      <*> (x .:? "N")                      <*> (x .:? "BS" .!= mempty)@@ -432,8 +432,8 @@     , _sdStreamLabel             :: !(Maybe Text)     , _sdStreamStatus            :: !(Maybe StreamStatus)     , _sdKeySchema               :: !(Maybe (List1 KeySchemaElement))-    , _sdStreamARN               :: !(Maybe Text)     , _sdStreamViewType          :: !(Maybe StreamViewType)+    , _sdStreamARN               :: !(Maybe Text)     , _sdShards                  :: !(Maybe [Shard])     , _sdTableName               :: !(Maybe Text)     , _sdCreationRequestDateTime :: !(Maybe POSIX)@@ -451,10 +451,10 @@ -- -- * 'sdKeySchema' ----- * 'sdStreamARN'--- -- * 'sdStreamViewType' --+-- * 'sdStreamARN'+-- -- * 'sdShards' -- -- * 'sdTableName'@@ -468,8 +468,8 @@     , _sdStreamLabel = Nothing     , _sdStreamStatus = Nothing     , _sdKeySchema = Nothing-    , _sdStreamARN = Nothing     , _sdStreamViewType = Nothing+    , _sdStreamARN = Nothing     , _sdShards = Nothing     , _sdTableName = Nothing     , _sdCreationRequestDateTime = Nothing@@ -524,10 +524,6 @@ sdKeySchema :: Lens' StreamDescription (Maybe (NonEmpty KeySchemaElement)) sdKeySchema = lens _sdKeySchema (\ s a -> s{_sdKeySchema = a}) . mapping _List1; --- | The Amazon Resource Name (ARN) for the stream.-sdStreamARN :: Lens' StreamDescription (Maybe Text)-sdStreamARN = lens _sdStreamARN (\ s a -> s{_sdStreamARN = a});- -- | Indicates the format of the records within this stream: -- -- -   'KEYS_ONLY' - only the key attributes of items that were modified in@@ -545,6 +541,10 @@ sdStreamViewType :: Lens' StreamDescription (Maybe StreamViewType) 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});+ -- | The shards that comprise the stream. sdShards :: Lens' StreamDescription [Shard] sdShards = lens _sdShards (\ s a -> s{_sdShards = a}) . _Default . _Coerce;@@ -566,8 +566,8 @@                      (x .:? "StreamLabel")                      <*> (x .:? "StreamStatus")                      <*> (x .:? "KeySchema")-                     <*> (x .:? "StreamArn")                      <*> (x .:? "StreamViewType")+                     <*> (x .:? "StreamArn")                      <*> (x .:? "Shards" .!= mempty)                      <*> (x .:? "TableName")                      <*> (x .:? "CreationRequestDateTime"))@@ -577,8 +577,8 @@ -- -- /See:/ 'streamRecord' smart constructor. data StreamRecord = StreamRecord'-    { _srSequenceNumber :: !(Maybe Text)-    , _srSizeBytes      :: !(Maybe Nat)+    { _srSizeBytes      :: !(Maybe Nat)+    , _srSequenceNumber :: !(Maybe Text)     , _srStreamViewType :: !(Maybe StreamViewType)     , _srKeys           :: !(Maybe (Map Text AttributeValue))     , _srOldImage       :: !(Maybe (Map Text AttributeValue))@@ -589,10 +589,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srSequenceNumber'--- -- * 'srSizeBytes' --+-- * 'srSequenceNumber'+-- -- * 'srStreamViewType' -- -- * 'srKeys'@@ -604,22 +604,22 @@     :: StreamRecord streamRecord =     StreamRecord'-    { _srSequenceNumber = Nothing-    , _srSizeBytes = Nothing+    { _srSizeBytes = Nothing+    , _srSequenceNumber = Nothing     , _srStreamViewType = Nothing     , _srKeys = Nothing     , _srOldImage = Nothing     , _srNewImage = Nothing     } --- | The sequence number of the stream record.-srSequenceNumber :: Lens' StreamRecord (Maybe Text)-srSequenceNumber = lens _srSequenceNumber (\ s a -> s{_srSequenceNumber = a});- -- | The size of the stream record, in bytes. srSizeBytes :: Lens' StreamRecord (Maybe Natural) 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});+ -- | The type of data from the modified DynamoDB item that was captured in -- this stream record: --@@ -653,7 +653,7 @@           = withObject "StreamRecord"               (\ x ->                  StreamRecord' <$>-                   (x .:? "SequenceNumber") <*> (x .:? "SizeBytes") <*>+                   (x .:? "SizeBytes") <*> (x .:? "SequenceNumber") <*>                      (x .:? "StreamViewType")                      <*> (x .:? "Keys" .!= mempty)                      <*> (x .:? "OldImage" .!= mempty)

@@ -28,12 +28,12 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testGetRecords $---             getRecords------         , testGetShardIterator $+--         [ testGetShardIterator $ --             getShardIterator --+--         , testGetRecords $+--             getRecords+-- --         , testListStreams $ --             listStreams --@@ -43,12 +43,12 @@ --           ]  --     , testGroup "response"---         [ testGetRecordsResponse $---             getRecordsResponse------         , testGetShardIteratorResponse $+--         [ testGetShardIteratorResponse $ --             getShardIteratorResponse --+--         , testGetRecordsResponse $+--             getRecordsResponse+-- --         , testListStreamsResponse $ --             listStreamsResponse --@@ -60,16 +60,16 @@  -- Requests -testGetRecords :: GetRecords -> TestTree-testGetRecords = req-    "GetRecords"-    "fixture/GetRecords.yaml"- testGetShardIterator :: GetShardIterator -> TestTree testGetShardIterator = req     "GetShardIterator"     "fixture/GetShardIterator.yaml" +testGetRecords :: GetRecords -> TestTree+testGetRecords = req+    "GetRecords"+    "fixture/GetRecords.yaml"+ testListStreams :: ListStreams -> TestTree testListStreams = req     "ListStreams"@@ -82,19 +82,19 @@  -- Responses -testGetRecordsResponse :: GetRecordsResponse -> TestTree-testGetRecordsResponse = res-    "GetRecordsResponse"-    "fixture/GetRecordsResponse.proto"-    dynamoDBStreams-    (Proxy :: Proxy GetRecords)- testGetShardIteratorResponse :: GetShardIteratorResponse -> TestTree testGetShardIteratorResponse = res     "GetShardIteratorResponse"     "fixture/GetShardIteratorResponse.proto"     dynamoDBStreams     (Proxy :: Proxy GetShardIterator)++testGetRecordsResponse :: GetRecordsResponse -> TestTree+testGetRecordsResponse = res+    "GetRecordsResponse"+    "fixture/GetRecordsResponse.proto"+    dynamoDBStreams+    (Proxy :: Proxy GetRecords)  testListStreamsResponse :: ListStreamsResponse -> TestTree testListStreamsResponse = res