Safe Haskell | None |
---|---|
Language | Haskell2010 |
- data MessageAttribute = MessageAttribute {}
- maValue :: Lens' MessageAttribute Text
- maType :: Lens' MessageAttribute Text
- data SNSMessage message = SNSMessage {
- _smMessage :: !(TextValue message)
- _smMessageAttributes :: !(HashMap Text MessageAttribute)
- _smMessageId :: !Text
- _smSignature :: !Text
- _smSignatureVersion :: !Text
- _smSigningCertUrl :: !Text
- _smSubject :: !Text
- _smTimestamp :: !UTCTime
- _smTopicArn :: !Text
- _smType :: !Text
- _smUnsubscribeUrl :: !Text
- smUnsubscribeUrl :: forall message. Lens' (SNSMessage message) Text
- smType :: forall message. Lens' (SNSMessage message) Text
- smTopicArn :: forall message. Lens' (SNSMessage message) Text
- smTimestamp :: forall message. Lens' (SNSMessage message) UTCTime
- smSubject :: forall message. Lens' (SNSMessage message) Text
- smSigningCertUrl :: forall message. Lens' (SNSMessage message) Text
- smSignatureVersion :: forall message. Lens' (SNSMessage message) Text
- smSignature :: forall message. Lens' (SNSMessage message) Text
- smMessageId :: forall message. Lens' (SNSMessage message) Text
- smMessageAttributes :: forall message. Lens' (SNSMessage message) (HashMap Text MessageAttribute)
- smMessage :: forall message message. Lens (SNSMessage message) (SNSMessage message) (TextValue message) (TextValue message)
- data SNSRecord message = SNSRecord {
- _srEventVersion :: !Text
- _srEventSubscriptionArn :: !Text
- _srEventSource :: !Text
- _srSns :: !(SNSMessage message)
- srSns :: forall message message. Lens (SNSRecord message) (SNSRecord message) (SNSMessage message) (SNSMessage message)
- srEventVersion :: forall message. Lens' (SNSRecord message) Text
- srEventSubscriptionArn :: forall message. Lens' (SNSRecord message) Text
- srEventSource :: forall message. Lens' (SNSRecord message) Text
- type SNSEvent message = RecordsEvent (SNSRecord message)
- messages :: Traversal (SNSEvent message) (SNSEvent message') message message'
- embedded :: Traversal (SNSEvent (Embedded v)) (SNSEvent (Embedded v')) v v'
- binary :: Traversal' (SNSEvent Base64) ByteString
Documentation
data SNSMessage message Source #
SNSMessage | |
|
Eq message => Eq (SNSMessage message) Source # | |
Show message => Show (SNSMessage message) Source # | |
Generic (SNSMessage message) Source # | |
FromText message => FromJSON (SNSMessage message) Source # | |
type Rep (SNSMessage message) Source # | |
smUnsubscribeUrl :: forall message. Lens' (SNSMessage message) Text Source #
smTopicArn :: forall message. Lens' (SNSMessage message) Text Source #
smTimestamp :: forall message. Lens' (SNSMessage message) UTCTime Source #
smSigningCertUrl :: forall message. Lens' (SNSMessage message) Text Source #
smSignatureVersion :: forall message. Lens' (SNSMessage message) Text Source #
smSignature :: forall message. Lens' (SNSMessage message) Text Source #
smMessageId :: forall message. Lens' (SNSMessage message) Text Source #
smMessageAttributes :: forall message. Lens' (SNSMessage message) (HashMap Text MessageAttribute) Source #
smMessage :: forall message message. Lens (SNSMessage message) (SNSMessage message) (TextValue message) (TextValue message) Source #
data SNSRecord message Source #
SNSRecord | |
|
srSns :: forall message message. Lens (SNSRecord message) (SNSRecord message) (SNSMessage message) (SNSMessage message) Source #
type SNSEvent message = RecordsEvent (SNSRecord message) Source #
SNSEvent.
The message
type is parameterised. To treat it as a text value
use SNSEvent Text
.
To extract an embedded event object use the Embedded
type.
E.g. SNSEvent (Embedded S3Event)
will treat the message
as an embedded S3Event.
To extract embedded Base64 encoded binary use
SNSEvent Base64
messages :: Traversal (SNSEvent message) (SNSEvent message') message message' Source #
A Traversal to get messages from an SNSEvent