amazonka-sqs 0.0.0 → 0.0.1

raw patch · 13 files changed

+78/−100 lines, 13 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-sqs.cabal +3/−3
• gen/Network/AWS/SQS/AddPermission.hs +3/−5
• gen/Network/AWS/SQS/ChangeMessageVisibilityBatch.hs +6/−9
• gen/Network/AWS/SQS/CreateQueue.hs +5/−6
• gen/Network/AWS/SQS/DeleteMessageBatch.hs +6/−9
• gen/Network/AWS/SQS/GetQueueAttributes.hs +12/−14
• gen/Network/AWS/SQS/ListDeadLetterSourceQueues.hs +3/−4
• gen/Network/AWS/SQS/ListQueues.hs +3/−4
• gen/Network/AWS/SQS/ReceiveMessage.hs +10/−13
• gen/Network/AWS/SQS/SendMessage.hs +2/−3
• gen/Network/AWS/SQS/SendMessageBatch.hs +6/−9
• gen/Network/AWS/SQS/SetQueueAttributes.hs +5/−6
• gen/Network/AWS/SQS/Types.hs +14/−15

@@ -1,5 +1,5 @@ name:                  amazonka-sqs-version:               0.0.0+version:               0.0.1 synopsis:              Amazon Simple Queue Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -60,5 +60,5 @@     other-modules:      build-depends:-          amazonka-core-        , base          >= 4.7 && < 5+          amazonka-core == 0.0.1.*+        , base          >= 4.7     && < 5

@@ -72,14 +72,12 @@ -- addPermission :: Text -- ^ 'apQueueUrl'               -> Text -- ^ 'apLabel'-              -> [Text] -- ^ 'apAWSAccountIds'-              -> [Text] -- ^ 'apActions'               -> AddPermission-addPermission p1 p2 p3 p4 = AddPermission+addPermission p1 p2 = AddPermission     { _apQueueUrl      = p1     , _apLabel         = p2-    , _apAWSAccountIds = withIso _List (const id) p3-    , _apActions       = withIso _List (const id) p4+    , _apAWSAccountIds = mempty+    , _apActions       = mempty     }  -- | The AWS account number of the principal who will be given permission. The

@@ -68,11 +68,10 @@ -- * 'cmvbQueueUrl' @::@ 'Text' -- changeMessageVisibilityBatch :: Text -- ^ 'cmvbQueueUrl'-                             -> [ChangeMessageVisibilityBatchRequestEntry] -- ^ 'cmvbEntries'                              -> ChangeMessageVisibilityBatch-changeMessageVisibilityBatch p1 p2 = ChangeMessageVisibilityBatch+changeMessageVisibilityBatch p1 = ChangeMessageVisibilityBatch     { _cmvbQueueUrl = p1-    , _cmvbEntries  = withIso _List (const id) p2+    , _cmvbEntries  = mempty     }  -- | A list of receipt handles of the messages for which the visibility@@ -97,12 +96,10 @@ -- -- * 'cmvbrSuccessful' @::@ ['ChangeMessageVisibilityBatchResultEntry'] ---changeMessageVisibilityBatchResponse :: [ChangeMessageVisibilityBatchResultEntry] -- ^ 'cmvbrSuccessful'-                                     -> [BatchResultErrorEntry] -- ^ 'cmvbrFailed'-                                     -> ChangeMessageVisibilityBatchResponse-changeMessageVisibilityBatchResponse p1 p2 = ChangeMessageVisibilityBatchResponse-    { _cmvbrSuccessful = withIso _List (const id) p1-    , _cmvbrFailed     = withIso _List (const id) p2+changeMessageVisibilityBatchResponse :: ChangeMessageVisibilityBatchResponse+changeMessageVisibilityBatchResponse = ChangeMessageVisibilityBatchResponse+    { _cmvbrSuccessful = mempty+    , _cmvbrFailed     = mempty     }  -- | A list of BatchResultErrorEntry items.

@@ -57,7 +57,7 @@ import qualified GHC.Exts  data CreateQueue = CreateQueue-    { _cqAttributes :: EMap "Attribute" "Name" "Value" Text Text+    { _cqAttributes :: EMap "Attribute" "Name" "Value" QueueAttributeName Text     , _cqQueueName  :: Text     } deriving (Eq, Show) @@ -65,16 +65,15 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'cqAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'cqAttributes' @::@ 'HashMap' 'QueueAttributeName' 'Text' -- -- * 'cqQueueName' @::@ 'Text' -- createQueue :: Text -- ^ 'cqQueueName'-            -> HashMap Text Text -- ^ 'cqAttributes'             -> CreateQueue-createQueue p1 p2 = CreateQueue+createQueue p1 = CreateQueue     { _cqQueueName  = p1-    , _cqAttributes = withIso _EMap (const id) p2+    , _cqAttributes = mempty     }  -- | A map of attributes with their corresponding values. The following lists@@ -98,7 +97,7 @@ -- timeout for the queue. An integer from 0 to 43200 (12 hours). The default -- for this attribute is 30. For more information about visibility timeout, -- see Visibility Timeout in the Amazon SQS Developer Guide.-cqAttributes :: Lens' CreateQueue (HashMap Text Text)+cqAttributes :: Lens' CreateQueue (HashMap QueueAttributeName Text) cqAttributes = lens _cqAttributes (\s a -> s { _cqAttributes = a }) . _EMap  -- | The name for the queue to be created.

@@ -66,11 +66,10 @@ -- * 'dmbQueueUrl' @::@ 'Text' -- deleteMessageBatch :: Text -- ^ 'dmbQueueUrl'-                   -> [DeleteMessageBatchRequestEntry] -- ^ 'dmbEntries'                    -> DeleteMessageBatch-deleteMessageBatch p1 p2 = DeleteMessageBatch+deleteMessageBatch p1 = DeleteMessageBatch     { _dmbQueueUrl = p1-    , _dmbEntries  = withIso _List (const id) p2+    , _dmbEntries  = mempty     }  -- | A list of receipt handles for the messages to be deleted.@@ -94,12 +93,10 @@ -- -- * 'dmbrSuccessful' @::@ ['DeleteMessageBatchResultEntry'] ---deleteMessageBatchResponse :: [DeleteMessageBatchResultEntry] -- ^ 'dmbrSuccessful'-                           -> [BatchResultErrorEntry] -- ^ 'dmbrFailed'-                           -> DeleteMessageBatchResponse-deleteMessageBatchResponse p1 p2 = DeleteMessageBatchResponse-    { _dmbrSuccessful = withIso _List (const id) p1-    , _dmbrFailed     = withIso _List (const id) p2+deleteMessageBatchResponse :: DeleteMessageBatchResponse+deleteMessageBatchResponse = DeleteMessageBatchResponse+    { _dmbrSuccessful = mempty+    , _dmbrFailed     = mempty     }  -- | A list of BatchResultErrorEntry items.

@@ -71,28 +71,27 @@ import qualified GHC.Exts  data GetQueueAttributes = GetQueueAttributes-    { _gqaAttributeNames :: List "AttributeName" Text+    { _gqaAttributeNames :: List "AttributeName" QueueAttributeName     , _gqaQueueUrl       :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'GetQueueAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'gqaAttributeNames' @::@ ['Text']+-- * 'gqaAttributeNames' @::@ ['QueueAttributeName'] -- -- * 'gqaQueueUrl' @::@ 'Text' -- getQueueAttributes :: Text -- ^ 'gqaQueueUrl'-                   -> [Text] -- ^ 'gqaAttributeNames'                    -> GetQueueAttributes-getQueueAttributes p1 p2 = GetQueueAttributes+getQueueAttributes p1 = GetQueueAttributes     { _gqaQueueUrl       = p1-    , _gqaAttributeNames = withIso _List (const id) p2+    , _gqaAttributeNames = mempty     }  -- | A list of attributes to retrieve information for.-gqaAttributeNames :: Lens' GetQueueAttributes [Text]+gqaAttributeNames :: Lens' GetQueueAttributes [QueueAttributeName] gqaAttributeNames =     lens _gqaAttributeNames (\s a -> s { _gqaAttributeNames = a })         . _List@@ -102,23 +101,22 @@ gqaQueueUrl = lens _gqaQueueUrl (\s a -> s { _gqaQueueUrl = a })  newtype GetQueueAttributesResponse = GetQueueAttributesResponse-    { _gqarAttributes :: EMap "Attribute" "Name" "Value" Text Text+    { _gqarAttributes :: EMap "Attribute" "Name" "Value" QueueAttributeName Text     } deriving (Eq, Show, Monoid, Semigroup)  -- | 'GetQueueAttributesResponse' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'gqarAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'gqarAttributes' @::@ 'HashMap' 'QueueAttributeName' 'Text' ---getQueueAttributesResponse :: HashMap Text Text -- ^ 'gqarAttributes'-                           -> GetQueueAttributesResponse-getQueueAttributesResponse p1 = GetQueueAttributesResponse-    { _gqarAttributes = withIso _EMap (const id) p1+getQueueAttributesResponse :: GetQueueAttributesResponse+getQueueAttributesResponse = GetQueueAttributesResponse+    { _gqarAttributes = mempty     }  -- | A map of attributes to the respective values.-gqarAttributes :: Lens' GetQueueAttributesResponse (HashMap Text Text)+gqarAttributes :: Lens' GetQueueAttributesResponse (HashMap QueueAttributeName Text) gqarAttributes = lens _gqarAttributes (\s a -> s { _gqarAttributes = a }) . _EMap  instance ToPath GetQueueAttributes where

@@ -77,10 +77,9 @@ -- -- * 'ldlsqrQueueUrls' @::@ ['Text'] ---listDeadLetterSourceQueuesResponse :: [Text] -- ^ 'ldlsqrQueueUrls'-                                   -> ListDeadLetterSourceQueuesResponse-listDeadLetterSourceQueuesResponse p1 = ListDeadLetterSourceQueuesResponse-    { _ldlsqrQueueUrls = withIso _List (const id) p1+listDeadLetterSourceQueuesResponse :: ListDeadLetterSourceQueuesResponse+listDeadLetterSourceQueuesResponse = ListDeadLetterSourceQueuesResponse+    { _ldlsqrQueueUrls = mempty     }  -- | A list of source queue URLs that have the RedrivePolicy queue attribute

@@ -79,10 +79,9 @@ -- -- * 'lqrQueueUrls' @::@ ['Text'] ---listQueuesResponse :: [Text] -- ^ 'lqrQueueUrls'-                   -> ListQueuesResponse-listQueuesResponse p1 = ListQueuesResponse-    { _lqrQueueUrls = withIso _List (const id) p1+listQueuesResponse :: ListQueuesResponse+listQueuesResponse = ListQueuesResponse+    { _lqrQueueUrls = mempty     }  -- | A list of queue URLs, up to 1000 entries.

@@ -72,19 +72,19 @@ import qualified GHC.Exts  data ReceiveMessage = ReceiveMessage-    { _rmAttributeNames        :: List "AttributeName" Text+    { _rmAttributeNames        :: List "AttributeName" QueueAttributeName     , _rmMaxNumberOfMessages   :: Maybe Int     , _rmMessageAttributeNames :: List "MessageAttributeName" Text     , _rmQueueUrl              :: Text     , _rmVisibilityTimeout     :: Maybe Int     , _rmWaitTimeSeconds       :: Maybe Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ReceiveMessage' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'rmAttributeNames' @::@ ['Text']+-- * 'rmAttributeNames' @::@ ['QueueAttributeName'] -- -- * 'rmMaxNumberOfMessages' @::@ 'Maybe' 'Int' --@@ -97,13 +97,11 @@ -- * 'rmWaitTimeSeconds' @::@ 'Maybe' 'Int' -- receiveMessage :: Text -- ^ 'rmQueueUrl'-               -> [Text] -- ^ 'rmAttributeNames'-               -> [Text] -- ^ 'rmMessageAttributeNames'                -> ReceiveMessage-receiveMessage p1 p2 p3 = ReceiveMessage+receiveMessage p1 = ReceiveMessage     { _rmQueueUrl              = p1-    , _rmAttributeNames        = withIso _List (const id) p2-    , _rmMessageAttributeNames = withIso _List (const id) p3+    , _rmAttributeNames        = mempty+    , _rmMessageAttributeNames = mempty     , _rmMaxNumberOfMessages   = Nothing     , _rmVisibilityTimeout     = Nothing     , _rmWaitTimeSeconds       = Nothing@@ -118,7 +116,7 @@ -- account number (or the IP address, if anonymous access is allowed) of the -- sender. SentTimestamp - returns the time when the message was sent (epoch -- time in milliseconds).-rmAttributeNames :: Lens' ReceiveMessage [Text]+rmAttributeNames :: Lens' ReceiveMessage [QueueAttributeName] rmAttributeNames = lens _rmAttributeNames (\s a -> s { _rmAttributeNames = a }) . _List  -- | The maximum number of messages to return. Amazon SQS never returns more@@ -169,10 +167,9 @@ -- -- * 'rmrMessages' @::@ ['Message'] ---receiveMessageResponse :: [Message] -- ^ 'rmrMessages'-                       -> ReceiveMessageResponse-receiveMessageResponse p1 = ReceiveMessageResponse-    { _rmrMessages = withIso _List (const id) p1+receiveMessageResponse :: ReceiveMessageResponse+receiveMessageResponse = ReceiveMessageResponse+    { _rmrMessages = mempty     }  -- | A list of messages.

@@ -80,13 +80,12 @@ -- sendMessage :: Text -- ^ 'smQueueUrl'             -> Text -- ^ 'smMessageBody'-            -> HashMap Text MessageAttributeValue -- ^ 'smMessageAttributes'             -> SendMessage-sendMessage p1 p2 p3 = SendMessage+sendMessage p1 p2 = SendMessage     { _smQueueUrl          = p1     , _smMessageBody       = p2-    , _smMessageAttributes = withIso _EMap (const id) p3     , _smDelaySeconds      = Nothing+    , _smMessageAttributes = mempty     }  -- | The number of seconds (0 to 900 - 15 minutes) to delay a specific

@@ -75,11 +75,10 @@ -- * 'smbQueueUrl' @::@ 'Text' -- sendMessageBatch :: Text -- ^ 'smbQueueUrl'-                 -> [SendMessageBatchRequestEntry] -- ^ 'smbEntries'                  -> SendMessageBatch-sendMessageBatch p1 p2 = SendMessageBatch+sendMessageBatch p1 = SendMessageBatch     { _smbQueueUrl = p1-    , _smbEntries  = withIso _List (const id) p2+    , _smbEntries  = mempty     }  -- | A list of SendMessageBatchRequestEntry items.@@ -103,12 +102,10 @@ -- -- * 'smbrSuccessful' @::@ ['SendMessageBatchResultEntry'] ---sendMessageBatchResponse :: [SendMessageBatchResultEntry] -- ^ 'smbrSuccessful'-                         -> [BatchResultErrorEntry] -- ^ 'smbrFailed'-                         -> SendMessageBatchResponse-sendMessageBatchResponse p1 p2 = SendMessageBatchResponse-    { _smbrSuccessful = withIso _List (const id) p1-    , _smbrFailed     = withIso _List (const id) p2+sendMessageBatchResponse :: SendMessageBatchResponse+sendMessageBatchResponse = SendMessageBatchResponse+    { _smbrSuccessful = mempty+    , _smbrFailed     = mempty     }  -- | A list of BatchResultErrorEntry items with the error detail about each

@@ -48,7 +48,7 @@ import qualified GHC.Exts  data SetQueueAttributes = SetQueueAttributes-    { _sqaAttributes :: EMap "Attribute" "Name" "Value" Text Text+    { _sqaAttributes :: EMap "Attribute" "Name" "Value" QueueAttributeName Text     , _sqaQueueUrl   :: Text     } deriving (Eq, Show) @@ -56,16 +56,15 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'sqaAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'sqaAttributes' @::@ 'HashMap' 'QueueAttributeName' 'Text' -- -- * 'sqaQueueUrl' @::@ 'Text' -- setQueueAttributes :: Text -- ^ 'sqaQueueUrl'-                   -> HashMap Text Text -- ^ 'sqaAttributes'                    -> SetQueueAttributes-setQueueAttributes p1 p2 = SetQueueAttributes+setQueueAttributes p1 = SetQueueAttributes     { _sqaQueueUrl   = p1-    , _sqaAttributes = withIso _EMap (const id) p2+    , _sqaAttributes = mempty     }  -- | A map of attributes to set. The following lists the names, descriptions,@@ -92,7 +91,7 @@ -- The parameters for dead letter queue functionality of the source queue. -- For more information about RedrivePolicy and dead letter queues, see -- Using Amazon SQS Dead Letter Queues in the Amazon SQS Developer Guide.-sqaAttributes :: Lens' SetQueueAttributes (HashMap Text Text)+sqaAttributes :: Lens' SetQueueAttributes (HashMap QueueAttributeName Text) sqaAttributes = lens _sqaAttributes (\s a -> s { _sqaAttributes = a }) . _EMap  -- | The URL of the Amazon SQS queue to take action on.

@@ -175,11 +175,13 @@         RedrivePolicy                         -> "RedrivePolicy"         VisibilityTimeout                     -> "VisibilityTimeout" +instance ToByteString QueueAttributeName+instance ToHeader     QueueAttributeName+instance ToQuery      QueueAttributeName+ instance FromXML QueueAttributeName where     parseXML = parseXMLText "QueueAttributeName" -instance ToQuery QueueAttributeName where-    toQuery = toQuery . toText  data DeleteMessageBatchRequestEntry = DeleteMessageBatchRequestEntry     { _dmbreId            :: Text@@ -416,7 +418,7 @@         ]  data Message = Message-    { _mAttributes             :: EMap "Attribute" "Name" "Value" Text Text+    { _mAttributes             :: EMap "Attribute" "Name" "Value" QueueAttributeName Text     , _mBody                   :: Maybe Text     , _mMD5OfBody              :: Maybe Text     , _mMD5OfMessageAttributes :: Maybe Text@@ -429,7 +431,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'mAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'mAttributes' @::@ 'HashMap' 'QueueAttributeName' 'Text' -- -- * 'mBody' @::@ 'Maybe' 'Text' --@@ -443,24 +445,22 @@ -- -- * 'mReceiptHandle' @::@ 'Maybe' 'Text' ---message :: HashMap Text Text -- ^ 'mAttributes'-        -> HashMap Text MessageAttributeValue -- ^ 'mMessageAttributes'-        -> Message-message p1 p2 = Message-    { _mAttributes             = withIso _EMap (const id) p1-    , _mMessageAttributes      = withIso _EMap (const id) p2-    , _mMessageId              = Nothing+message :: Message+message = Message+    { _mMessageId              = Nothing     , _mReceiptHandle          = Nothing     , _mMD5OfBody              = Nothing     , _mBody                   = Nothing+    , _mAttributes             = mempty     , _mMD5OfMessageAttributes = Nothing+    , _mMessageAttributes      = mempty     }  -- | SenderId, SentTimestamp, ApproximateReceiveCount, and/or -- ApproximateFirstReceiveTimestamp. SentTimestamp and -- ApproximateFirstReceiveTimestamp are each returned as an integer -- representing the epoch time in milliseconds.-mAttributes :: Lens' Message (HashMap Text Text)+mAttributes :: Lens' Message (HashMap QueueAttributeName Text) mAttributes = lens _mAttributes (\s a -> s { _mAttributes = a }) . _EMap  -- | The message's contents (not URL-encoded).@@ -540,13 +540,12 @@ -- sendMessageBatchRequestEntry :: Text -- ^ 'smbreId'                              -> Text -- ^ 'smbreMessageBody'-                             -> HashMap Text MessageAttributeValue -- ^ 'smbreMessageAttributes'                              -> SendMessageBatchRequestEntry-sendMessageBatchRequestEntry p1 p2 p3 = SendMessageBatchRequestEntry+sendMessageBatchRequestEntry p1 p2 = SendMessageBatchRequestEntry     { _smbreId                = p1     , _smbreMessageBody       = p2-    , _smbreMessageAttributes = withIso _EMap (const id) p3     , _smbreDelaySeconds      = Nothing+    , _smbreMessageAttributes = mempty     }  -- | The number of seconds for which the message has to be delayed.