module Network.AWS.SQS.Types.Product where
import Network.AWS.Prelude
import Network.AWS.SQS.Types.Sum
data BatchResultErrorEntry = BatchResultErrorEntry'
{ _breeMessage :: !(Maybe Text)
, _breeId :: !Text
, _breeSenderFault :: !Bool
, _breeCode :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
batchResultErrorEntry
:: Text
-> Bool
-> Text
-> BatchResultErrorEntry
batchResultErrorEntry pId_ pSenderFault_ pCode_ =
BatchResultErrorEntry'
{ _breeMessage = Nothing
, _breeId = pId_
, _breeSenderFault = pSenderFault_
, _breeCode = pCode_
}
breeMessage :: Lens' BatchResultErrorEntry (Maybe Text)
breeMessage = lens _breeMessage (\ s a -> s{_breeMessage = a});
breeId :: Lens' BatchResultErrorEntry Text
breeId = lens _breeId (\ s a -> s{_breeId = a});
breeSenderFault :: Lens' BatchResultErrorEntry Bool
breeSenderFault = lens _breeSenderFault (\ s a -> s{_breeSenderFault = a});
breeCode :: Lens' BatchResultErrorEntry Text
breeCode = lens _breeCode (\ s a -> s{_breeCode = a});
instance FromXML BatchResultErrorEntry where
parseXML x
= BatchResultErrorEntry' <$>
(x .@? "Message") <*> (x .@ "Id") <*>
(x .@ "SenderFault")
<*> (x .@ "Code")
data ChangeMessageVisibilityBatchRequestEntry = ChangeMessageVisibilityBatchRequestEntry'
{ _cVisibilityTimeout :: !(Maybe Int)
, _cId :: !Text
, _cReceiptHandle :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
changeMessageVisibilityBatchRequestEntry
:: Text
-> Text
-> ChangeMessageVisibilityBatchRequestEntry
changeMessageVisibilityBatchRequestEntry pId_ pReceiptHandle_ =
ChangeMessageVisibilityBatchRequestEntry'
{ _cVisibilityTimeout = Nothing
, _cId = pId_
, _cReceiptHandle = pReceiptHandle_
}
cVisibilityTimeout :: Lens' ChangeMessageVisibilityBatchRequestEntry (Maybe Int)
cVisibilityTimeout = lens _cVisibilityTimeout (\ s a -> s{_cVisibilityTimeout = a});
cId :: Lens' ChangeMessageVisibilityBatchRequestEntry Text
cId = lens _cId (\ s a -> s{_cId = a});
cReceiptHandle :: Lens' ChangeMessageVisibilityBatchRequestEntry Text
cReceiptHandle = lens _cReceiptHandle (\ s a -> s{_cReceiptHandle = a});
instance ToQuery
ChangeMessageVisibilityBatchRequestEntry where
toQuery ChangeMessageVisibilityBatchRequestEntry'{..}
= mconcat
["VisibilityTimeout" =: _cVisibilityTimeout,
"Id" =: _cId, "ReceiptHandle" =: _cReceiptHandle]
newtype ChangeMessageVisibilityBatchResultEntry = ChangeMessageVisibilityBatchResultEntry'
{ _cmvbreId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
changeMessageVisibilityBatchResultEntry
:: Text
-> ChangeMessageVisibilityBatchResultEntry
changeMessageVisibilityBatchResultEntry pId_ =
ChangeMessageVisibilityBatchResultEntry'
{ _cmvbreId = pId_
}
cmvbreId :: Lens' ChangeMessageVisibilityBatchResultEntry Text
cmvbreId = lens _cmvbreId (\ s a -> s{_cmvbreId = a});
instance FromXML
ChangeMessageVisibilityBatchResultEntry where
parseXML x
= ChangeMessageVisibilityBatchResultEntry' <$>
(x .@ "Id")
data DeleteMessageBatchRequestEntry = DeleteMessageBatchRequestEntry'
{ _dmbreId :: !Text
, _dmbreReceiptHandle :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteMessageBatchRequestEntry
:: Text
-> Text
-> DeleteMessageBatchRequestEntry
deleteMessageBatchRequestEntry pId_ pReceiptHandle_ =
DeleteMessageBatchRequestEntry'
{ _dmbreId = pId_
, _dmbreReceiptHandle = pReceiptHandle_
}
dmbreId :: Lens' DeleteMessageBatchRequestEntry Text
dmbreId = lens _dmbreId (\ s a -> s{_dmbreId = a});
dmbreReceiptHandle :: Lens' DeleteMessageBatchRequestEntry Text
dmbreReceiptHandle = lens _dmbreReceiptHandle (\ s a -> s{_dmbreReceiptHandle = a});
instance ToQuery DeleteMessageBatchRequestEntry where
toQuery DeleteMessageBatchRequestEntry'{..}
= mconcat
["Id" =: _dmbreId,
"ReceiptHandle" =: _dmbreReceiptHandle]
newtype DeleteMessageBatchResultEntry = DeleteMessageBatchResultEntry'
{ _dId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteMessageBatchResultEntry
:: Text
-> DeleteMessageBatchResultEntry
deleteMessageBatchResultEntry pId_ =
DeleteMessageBatchResultEntry'
{ _dId = pId_
}
dId :: Lens' DeleteMessageBatchResultEntry Text
dId = lens _dId (\ s a -> s{_dId = a});
instance FromXML DeleteMessageBatchResultEntry where
parseXML x
= DeleteMessageBatchResultEntry' <$> (x .@ "Id")
data Message = Message'
{ _mMessageAttributes :: !(Maybe (Map Text MessageAttributeValue))
, _mMD5OfBody :: !(Maybe Text)
, _mBody :: !(Maybe Text)
, _mAttributes :: !(Maybe (Map QueueAttributeName Text))
, _mMessageId :: !(Maybe Text)
, _mReceiptHandle :: !(Maybe Text)
, _mMD5OfMessageAttributes :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
message
:: Message
message =
Message'
{ _mMessageAttributes = Nothing
, _mMD5OfBody = Nothing
, _mBody = Nothing
, _mAttributes = Nothing
, _mMessageId = Nothing
, _mReceiptHandle = Nothing
, _mMD5OfMessageAttributes = Nothing
}
mMessageAttributes :: Lens' Message (HashMap Text MessageAttributeValue)
mMessageAttributes = lens _mMessageAttributes (\ s a -> s{_mMessageAttributes = a}) . _Default . _Map;
mMD5OfBody :: Lens' Message (Maybe Text)
mMD5OfBody = lens _mMD5OfBody (\ s a -> s{_mMD5OfBody = a});
mBody :: Lens' Message (Maybe Text)
mBody = lens _mBody (\ s a -> s{_mBody = a});
mAttributes :: Lens' Message (HashMap QueueAttributeName Text)
mAttributes = lens _mAttributes (\ s a -> s{_mAttributes = a}) . _Default . _Map;
mMessageId :: Lens' Message (Maybe Text)
mMessageId = lens _mMessageId (\ s a -> s{_mMessageId = a});
mReceiptHandle :: Lens' Message (Maybe Text)
mReceiptHandle = lens _mReceiptHandle (\ s a -> s{_mReceiptHandle = a});
mMD5OfMessageAttributes :: Lens' Message (Maybe Text)
mMD5OfMessageAttributes = lens _mMD5OfMessageAttributes (\ s a -> s{_mMD5OfMessageAttributes = a});
instance FromXML Message where
parseXML x
= Message' <$>
(may (parseXMLMap "MessageAttribute" "Name" "Value")
x)
<*> (x .@? "MD5OfBody")
<*> (x .@? "Body")
<*> (may (parseXMLMap "Attribute" "Name" "Value") x)
<*> (x .@? "MessageId")
<*> (x .@? "ReceiptHandle")
<*> (x .@? "MD5OfMessageAttributes")
data MessageAttributeValue = MessageAttributeValue'
{ _mavBinaryValue :: !(Maybe Base64)
, _mavStringListValues :: !(Maybe [Text])
, _mavStringValue :: !(Maybe Text)
, _mavBinaryListValues :: !(Maybe [Base64])
, _mavDataType :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
messageAttributeValue
:: Text
-> MessageAttributeValue
messageAttributeValue pDataType_ =
MessageAttributeValue'
{ _mavBinaryValue = Nothing
, _mavStringListValues = Nothing
, _mavStringValue = Nothing
, _mavBinaryListValues = Nothing
, _mavDataType = pDataType_
}
mavBinaryValue :: Lens' MessageAttributeValue (Maybe ByteString)
mavBinaryValue = lens _mavBinaryValue (\ s a -> s{_mavBinaryValue = a}) . mapping _Base64;
mavStringListValues :: Lens' MessageAttributeValue [Text]
mavStringListValues = lens _mavStringListValues (\ s a -> s{_mavStringListValues = a}) . _Default . _Coerce;
mavStringValue :: Lens' MessageAttributeValue (Maybe Text)
mavStringValue = lens _mavStringValue (\ s a -> s{_mavStringValue = a});
mavBinaryListValues :: Lens' MessageAttributeValue [ByteString]
mavBinaryListValues = lens _mavBinaryListValues (\ s a -> s{_mavBinaryListValues = a}) . _Default . _Coerce;
mavDataType :: Lens' MessageAttributeValue Text
mavDataType = lens _mavDataType (\ s a -> s{_mavDataType = a});
instance FromXML MessageAttributeValue where
parseXML x
= MessageAttributeValue' <$>
(x .@? "BinaryValue") <*>
(x .@? "StringListValue" .!@ mempty >>=
may (parseXMLList "StringListValue"))
<*> (x .@? "StringValue")
<*>
(x .@? "BinaryListValue" .!@ mempty >>=
may (parseXMLList "BinaryListValue"))
<*> (x .@ "DataType")
instance ToQuery MessageAttributeValue where
toQuery MessageAttributeValue'{..}
= mconcat
["BinaryValue" =: _mavBinaryValue,
"StringListValue" =:
toQuery
(toQueryList "StringListValue" <$>
_mavStringListValues),
"StringValue" =: _mavStringValue,
"BinaryListValue" =:
toQuery
(toQueryList "BinaryListValue" <$>
_mavBinaryListValues),
"DataType" =: _mavDataType]
data SendMessageBatchRequestEntry = SendMessageBatchRequestEntry'
{ _sMessageAttributes :: !(Maybe (Map Text MessageAttributeValue))
, _sDelaySeconds :: !(Maybe Int)
, _sId :: !Text
, _sMessageBody :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
sendMessageBatchRequestEntry
:: Text
-> Text
-> SendMessageBatchRequestEntry
sendMessageBatchRequestEntry pId_ pMessageBody_ =
SendMessageBatchRequestEntry'
{ _sMessageAttributes = Nothing
, _sDelaySeconds = Nothing
, _sId = pId_
, _sMessageBody = pMessageBody_
}
sMessageAttributes :: Lens' SendMessageBatchRequestEntry (HashMap Text MessageAttributeValue)
sMessageAttributes = lens _sMessageAttributes (\ s a -> s{_sMessageAttributes = a}) . _Default . _Map;
sDelaySeconds :: Lens' SendMessageBatchRequestEntry (Maybe Int)
sDelaySeconds = lens _sDelaySeconds (\ s a -> s{_sDelaySeconds = a});
sId :: Lens' SendMessageBatchRequestEntry Text
sId = lens _sId (\ s a -> s{_sId = a});
sMessageBody :: Lens' SendMessageBatchRequestEntry Text
sMessageBody = lens _sMessageBody (\ s a -> s{_sMessageBody = a});
instance ToQuery SendMessageBatchRequestEntry where
toQuery SendMessageBatchRequestEntry'{..}
= mconcat
[toQuery
(toQueryMap "MessageAttribute" "Name" "Value" <$>
_sMessageAttributes),
"DelaySeconds" =: _sDelaySeconds, "Id" =: _sId,
"MessageBody" =: _sMessageBody]
data SendMessageBatchResultEntry = SendMessageBatchResultEntry'
{ _smbreMD5OfMessageAttributes :: !(Maybe Text)
, _smbreId :: !Text
, _smbreMessageId :: !Text
, _smbreMD5OfMessageBody :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
sendMessageBatchResultEntry
:: Text
-> Text
-> Text
-> SendMessageBatchResultEntry
sendMessageBatchResultEntry pId_ pMessageId_ pMD5OfMessageBody_ =
SendMessageBatchResultEntry'
{ _smbreMD5OfMessageAttributes = Nothing
, _smbreId = pId_
, _smbreMessageId = pMessageId_
, _smbreMD5OfMessageBody = pMD5OfMessageBody_
}
smbreMD5OfMessageAttributes :: Lens' SendMessageBatchResultEntry (Maybe Text)
smbreMD5OfMessageAttributes = lens _smbreMD5OfMessageAttributes (\ s a -> s{_smbreMD5OfMessageAttributes = a});
smbreId :: Lens' SendMessageBatchResultEntry Text
smbreId = lens _smbreId (\ s a -> s{_smbreId = a});
smbreMessageId :: Lens' SendMessageBatchResultEntry Text
smbreMessageId = lens _smbreMessageId (\ s a -> s{_smbreMessageId = a});
smbreMD5OfMessageBody :: Lens' SendMessageBatchResultEntry Text
smbreMD5OfMessageBody = lens _smbreMD5OfMessageBody (\ s a -> s{_smbreMD5OfMessageBody = a});
instance FromXML SendMessageBatchResultEntry where
parseXML x
= SendMessageBatchResultEntry' <$>
(x .@? "MD5OfMessageAttributes") <*> (x .@ "Id") <*>
(x .@ "MessageId")
<*> (x .@ "MD5OfMessageBody")