{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SSMContacts.StartEngagement
(
StartEngagement (..),
newStartEngagement,
startEngagement_idempotencyToken,
startEngagement_incidentId,
startEngagement_publicContent,
startEngagement_publicSubject,
startEngagement_contactId,
startEngagement_sender,
startEngagement_subject,
startEngagement_content,
StartEngagementResponse (..),
newStartEngagementResponse,
startEngagementResponse_httpStatus,
startEngagementResponse_engagementArn,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SSMContacts.Types
data StartEngagement = StartEngagement'
{
StartEngagement -> Maybe Text
idempotencyToken :: Prelude.Maybe Prelude.Text,
StartEngagement -> Maybe Text
incidentId :: Prelude.Maybe Prelude.Text,
StartEngagement -> Maybe Text
publicContent :: Prelude.Maybe Prelude.Text,
StartEngagement -> Maybe Text
publicSubject :: Prelude.Maybe Prelude.Text,
StartEngagement -> Text
contactId :: Prelude.Text,
StartEngagement -> Text
sender :: Prelude.Text,
StartEngagement -> Text
subject :: Prelude.Text,
StartEngagement -> Text
content :: Prelude.Text
}
deriving (StartEngagement -> StartEngagement -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartEngagement -> StartEngagement -> Bool
$c/= :: StartEngagement -> StartEngagement -> Bool
== :: StartEngagement -> StartEngagement -> Bool
$c== :: StartEngagement -> StartEngagement -> Bool
Prelude.Eq, ReadPrec [StartEngagement]
ReadPrec StartEngagement
Int -> ReadS StartEngagement
ReadS [StartEngagement]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartEngagement]
$creadListPrec :: ReadPrec [StartEngagement]
readPrec :: ReadPrec StartEngagement
$creadPrec :: ReadPrec StartEngagement
readList :: ReadS [StartEngagement]
$creadList :: ReadS [StartEngagement]
readsPrec :: Int -> ReadS StartEngagement
$creadsPrec :: Int -> ReadS StartEngagement
Prelude.Read, Int -> StartEngagement -> ShowS
[StartEngagement] -> ShowS
StartEngagement -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartEngagement] -> ShowS
$cshowList :: [StartEngagement] -> ShowS
show :: StartEngagement -> String
$cshow :: StartEngagement -> String
showsPrec :: Int -> StartEngagement -> ShowS
$cshowsPrec :: Int -> StartEngagement -> ShowS
Prelude.Show, forall x. Rep StartEngagement x -> StartEngagement
forall x. StartEngagement -> Rep StartEngagement x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartEngagement x -> StartEngagement
$cfrom :: forall x. StartEngagement -> Rep StartEngagement x
Prelude.Generic)
newStartEngagement ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
StartEngagement
newStartEngagement :: Text -> Text -> Text -> Text -> StartEngagement
newStartEngagement
Text
pContactId_
Text
pSender_
Text
pSubject_
Text
pContent_ =
StartEngagement'
{ $sel:idempotencyToken:StartEngagement' :: Maybe Text
idempotencyToken =
forall a. Maybe a
Prelude.Nothing,
$sel:incidentId:StartEngagement' :: Maybe Text
incidentId = forall a. Maybe a
Prelude.Nothing,
$sel:publicContent:StartEngagement' :: Maybe Text
publicContent = forall a. Maybe a
Prelude.Nothing,
$sel:publicSubject:StartEngagement' :: Maybe Text
publicSubject = forall a. Maybe a
Prelude.Nothing,
$sel:contactId:StartEngagement' :: Text
contactId = Text
pContactId_,
$sel:sender:StartEngagement' :: Text
sender = Text
pSender_,
$sel:subject:StartEngagement' :: Text
subject = Text
pSubject_,
$sel:content:StartEngagement' :: Text
content = Text
pContent_
}
startEngagement_idempotencyToken :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)
startEngagement_idempotencyToken :: Lens' StartEngagement (Maybe Text)
startEngagement_idempotencyToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Maybe Text
idempotencyToken :: Maybe Text
$sel:idempotencyToken:StartEngagement' :: StartEngagement -> Maybe Text
idempotencyToken} -> Maybe Text
idempotencyToken) (\s :: StartEngagement
s@StartEngagement' {} Maybe Text
a -> StartEngagement
s {$sel:idempotencyToken:StartEngagement' :: Maybe Text
idempotencyToken = Maybe Text
a} :: StartEngagement)
startEngagement_incidentId :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)
startEngagement_incidentId :: Lens' StartEngagement (Maybe Text)
startEngagement_incidentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Maybe Text
incidentId :: Maybe Text
$sel:incidentId:StartEngagement' :: StartEngagement -> Maybe Text
incidentId} -> Maybe Text
incidentId) (\s :: StartEngagement
s@StartEngagement' {} Maybe Text
a -> StartEngagement
s {$sel:incidentId:StartEngagement' :: Maybe Text
incidentId = Maybe Text
a} :: StartEngagement)
startEngagement_publicContent :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)
startEngagement_publicContent :: Lens' StartEngagement (Maybe Text)
startEngagement_publicContent = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Maybe Text
publicContent :: Maybe Text
$sel:publicContent:StartEngagement' :: StartEngagement -> Maybe Text
publicContent} -> Maybe Text
publicContent) (\s :: StartEngagement
s@StartEngagement' {} Maybe Text
a -> StartEngagement
s {$sel:publicContent:StartEngagement' :: Maybe Text
publicContent = Maybe Text
a} :: StartEngagement)
startEngagement_publicSubject :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)
startEngagement_publicSubject :: Lens' StartEngagement (Maybe Text)
startEngagement_publicSubject = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Maybe Text
publicSubject :: Maybe Text
$sel:publicSubject:StartEngagement' :: StartEngagement -> Maybe Text
publicSubject} -> Maybe Text
publicSubject) (\s :: StartEngagement
s@StartEngagement' {} Maybe Text
a -> StartEngagement
s {$sel:publicSubject:StartEngagement' :: Maybe Text
publicSubject = Maybe Text
a} :: StartEngagement)
startEngagement_contactId :: Lens.Lens' StartEngagement Prelude.Text
startEngagement_contactId :: Lens' StartEngagement Text
startEngagement_contactId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Text
contactId :: Text
$sel:contactId:StartEngagement' :: StartEngagement -> Text
contactId} -> Text
contactId) (\s :: StartEngagement
s@StartEngagement' {} Text
a -> StartEngagement
s {$sel:contactId:StartEngagement' :: Text
contactId = Text
a} :: StartEngagement)
startEngagement_sender :: Lens.Lens' StartEngagement Prelude.Text
startEngagement_sender :: Lens' StartEngagement Text
startEngagement_sender = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Text
sender :: Text
$sel:sender:StartEngagement' :: StartEngagement -> Text
sender} -> Text
sender) (\s :: StartEngagement
s@StartEngagement' {} Text
a -> StartEngagement
s {$sel:sender:StartEngagement' :: Text
sender = Text
a} :: StartEngagement)
startEngagement_subject :: Lens.Lens' StartEngagement Prelude.Text
startEngagement_subject :: Lens' StartEngagement Text
startEngagement_subject = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Text
subject :: Text
$sel:subject:StartEngagement' :: StartEngagement -> Text
subject} -> Text
subject) (\s :: StartEngagement
s@StartEngagement' {} Text
a -> StartEngagement
s {$sel:subject:StartEngagement' :: Text
subject = Text
a} :: StartEngagement)
startEngagement_content :: Lens.Lens' StartEngagement Prelude.Text
startEngagement_content :: Lens' StartEngagement Text
startEngagement_content = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagement' {Text
content :: Text
$sel:content:StartEngagement' :: StartEngagement -> Text
content} -> Text
content) (\s :: StartEngagement
s@StartEngagement' {} Text
a -> StartEngagement
s {$sel:content:StartEngagement' :: Text
content = Text
a} :: StartEngagement)
instance Core.AWSRequest StartEngagement where
type
AWSResponse StartEngagement =
StartEngagementResponse
request :: (Service -> Service) -> StartEngagement -> Request StartEngagement
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy StartEngagement
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse StartEngagement)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int -> Text -> StartEngagementResponse
StartEngagementResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"EngagementArn")
)
instance Prelude.Hashable StartEngagement where
hashWithSalt :: Int -> StartEngagement -> Int
hashWithSalt Int
_salt StartEngagement' {Maybe Text
Text
content :: Text
subject :: Text
sender :: Text
contactId :: Text
publicSubject :: Maybe Text
publicContent :: Maybe Text
incidentId :: Maybe Text
idempotencyToken :: Maybe Text
$sel:content:StartEngagement' :: StartEngagement -> Text
$sel:subject:StartEngagement' :: StartEngagement -> Text
$sel:sender:StartEngagement' :: StartEngagement -> Text
$sel:contactId:StartEngagement' :: StartEngagement -> Text
$sel:publicSubject:StartEngagement' :: StartEngagement -> Maybe Text
$sel:publicContent:StartEngagement' :: StartEngagement -> Maybe Text
$sel:incidentId:StartEngagement' :: StartEngagement -> Maybe Text
$sel:idempotencyToken:StartEngagement' :: StartEngagement -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
idempotencyToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
incidentId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
publicContent
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
publicSubject
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
contactId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sender
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
subject
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
content
instance Prelude.NFData StartEngagement where
rnf :: StartEngagement -> ()
rnf StartEngagement' {Maybe Text
Text
content :: Text
subject :: Text
sender :: Text
contactId :: Text
publicSubject :: Maybe Text
publicContent :: Maybe Text
incidentId :: Maybe Text
idempotencyToken :: Maybe Text
$sel:content:StartEngagement' :: StartEngagement -> Text
$sel:subject:StartEngagement' :: StartEngagement -> Text
$sel:sender:StartEngagement' :: StartEngagement -> Text
$sel:contactId:StartEngagement' :: StartEngagement -> Text
$sel:publicSubject:StartEngagement' :: StartEngagement -> Maybe Text
$sel:publicContent:StartEngagement' :: StartEngagement -> Maybe Text
$sel:incidentId:StartEngagement' :: StartEngagement -> Maybe Text
$sel:idempotencyToken:StartEngagement' :: StartEngagement -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
idempotencyToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
incidentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
publicContent
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
publicSubject
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
contactId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sender
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
subject
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
content
instance Data.ToHeaders StartEngagement where
toHeaders :: StartEngagement -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"SSMContacts.StartEngagement" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON StartEngagement where
toJSON :: StartEngagement -> Value
toJSON StartEngagement' {Maybe Text
Text
content :: Text
subject :: Text
sender :: Text
contactId :: Text
publicSubject :: Maybe Text
publicContent :: Maybe Text
incidentId :: Maybe Text
idempotencyToken :: Maybe Text
$sel:content:StartEngagement' :: StartEngagement -> Text
$sel:subject:StartEngagement' :: StartEngagement -> Text
$sel:sender:StartEngagement' :: StartEngagement -> Text
$sel:contactId:StartEngagement' :: StartEngagement -> Text
$sel:publicSubject:StartEngagement' :: StartEngagement -> Maybe Text
$sel:publicContent:StartEngagement' :: StartEngagement -> Maybe Text
$sel:incidentId:StartEngagement' :: StartEngagement -> Maybe Text
$sel:idempotencyToken:StartEngagement' :: StartEngagement -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"IdempotencyToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
idempotencyToken,
(Key
"IncidentId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
incidentId,
(Key
"PublicContent" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
publicContent,
(Key
"PublicSubject" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
publicSubject,
forall a. a -> Maybe a
Prelude.Just (Key
"ContactId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
contactId),
forall a. a -> Maybe a
Prelude.Just (Key
"Sender" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sender),
forall a. a -> Maybe a
Prelude.Just (Key
"Subject" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
subject),
forall a. a -> Maybe a
Prelude.Just (Key
"Content" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
content)
]
)
instance Data.ToPath StartEngagement where
toPath :: StartEngagement -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StartEngagement where
toQuery :: StartEngagement -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartEngagementResponse = StartEngagementResponse'
{
StartEngagementResponse -> Int
httpStatus :: Prelude.Int,
StartEngagementResponse -> Text
engagementArn :: Prelude.Text
}
deriving (StartEngagementResponse -> StartEngagementResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartEngagementResponse -> StartEngagementResponse -> Bool
$c/= :: StartEngagementResponse -> StartEngagementResponse -> Bool
== :: StartEngagementResponse -> StartEngagementResponse -> Bool
$c== :: StartEngagementResponse -> StartEngagementResponse -> Bool
Prelude.Eq, ReadPrec [StartEngagementResponse]
ReadPrec StartEngagementResponse
Int -> ReadS StartEngagementResponse
ReadS [StartEngagementResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartEngagementResponse]
$creadListPrec :: ReadPrec [StartEngagementResponse]
readPrec :: ReadPrec StartEngagementResponse
$creadPrec :: ReadPrec StartEngagementResponse
readList :: ReadS [StartEngagementResponse]
$creadList :: ReadS [StartEngagementResponse]
readsPrec :: Int -> ReadS StartEngagementResponse
$creadsPrec :: Int -> ReadS StartEngagementResponse
Prelude.Read, Int -> StartEngagementResponse -> ShowS
[StartEngagementResponse] -> ShowS
StartEngagementResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartEngagementResponse] -> ShowS
$cshowList :: [StartEngagementResponse] -> ShowS
show :: StartEngagementResponse -> String
$cshow :: StartEngagementResponse -> String
showsPrec :: Int -> StartEngagementResponse -> ShowS
$cshowsPrec :: Int -> StartEngagementResponse -> ShowS
Prelude.Show, forall x. Rep StartEngagementResponse x -> StartEngagementResponse
forall x. StartEngagementResponse -> Rep StartEngagementResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartEngagementResponse x -> StartEngagementResponse
$cfrom :: forall x. StartEngagementResponse -> Rep StartEngagementResponse x
Prelude.Generic)
newStartEngagementResponse ::
Prelude.Int ->
Prelude.Text ->
StartEngagementResponse
newStartEngagementResponse :: Int -> Text -> StartEngagementResponse
newStartEngagementResponse
Int
pHttpStatus_
Text
pEngagementArn_ =
StartEngagementResponse'
{ $sel:httpStatus:StartEngagementResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:engagementArn:StartEngagementResponse' :: Text
engagementArn = Text
pEngagementArn_
}
startEngagementResponse_httpStatus :: Lens.Lens' StartEngagementResponse Prelude.Int
startEngagementResponse_httpStatus :: Lens' StartEngagementResponse Int
startEngagementResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagementResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartEngagementResponse' :: StartEngagementResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartEngagementResponse
s@StartEngagementResponse' {} Int
a -> StartEngagementResponse
s {$sel:httpStatus:StartEngagementResponse' :: Int
httpStatus = Int
a} :: StartEngagementResponse)
startEngagementResponse_engagementArn :: Lens.Lens' StartEngagementResponse Prelude.Text
startEngagementResponse_engagementArn :: Lens' StartEngagementResponse Text
startEngagementResponse_engagementArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartEngagementResponse' {Text
engagementArn :: Text
$sel:engagementArn:StartEngagementResponse' :: StartEngagementResponse -> Text
engagementArn} -> Text
engagementArn) (\s :: StartEngagementResponse
s@StartEngagementResponse' {} Text
a -> StartEngagementResponse
s {$sel:engagementArn:StartEngagementResponse' :: Text
engagementArn = Text
a} :: StartEngagementResponse)
instance Prelude.NFData StartEngagementResponse where
rnf :: StartEngagementResponse -> ()
rnf StartEngagementResponse' {Int
Text
engagementArn :: Text
httpStatus :: Int
$sel:engagementArn:StartEngagementResponse' :: StartEngagementResponse -> Text
$sel:httpStatus:StartEngagementResponse' :: StartEngagementResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
engagementArn