{-# 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.SSMIncidents.CreateTimelineEvent
(
CreateTimelineEvent (..),
newCreateTimelineEvent,
createTimelineEvent_clientToken,
createTimelineEvent_eventReferences,
createTimelineEvent_eventData,
createTimelineEvent_eventTime,
createTimelineEvent_eventType,
createTimelineEvent_incidentRecordArn,
CreateTimelineEventResponse (..),
newCreateTimelineEventResponse,
createTimelineEventResponse_httpStatus,
createTimelineEventResponse_eventId,
createTimelineEventResponse_incidentRecordArn,
)
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.SSMIncidents.Types
data CreateTimelineEvent = CreateTimelineEvent'
{
CreateTimelineEvent -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateTimelineEvent -> Maybe [EventReference]
eventReferences :: Prelude.Maybe [EventReference],
CreateTimelineEvent -> Text
eventData :: Prelude.Text,
CreateTimelineEvent -> POSIX
eventTime :: Data.POSIX,
CreateTimelineEvent -> Text
eventType :: Prelude.Text,
CreateTimelineEvent -> Text
incidentRecordArn :: Prelude.Text
}
deriving (CreateTimelineEvent -> CreateTimelineEvent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTimelineEvent -> CreateTimelineEvent -> Bool
$c/= :: CreateTimelineEvent -> CreateTimelineEvent -> Bool
== :: CreateTimelineEvent -> CreateTimelineEvent -> Bool
$c== :: CreateTimelineEvent -> CreateTimelineEvent -> Bool
Prelude.Eq, ReadPrec [CreateTimelineEvent]
ReadPrec CreateTimelineEvent
Int -> ReadS CreateTimelineEvent
ReadS [CreateTimelineEvent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTimelineEvent]
$creadListPrec :: ReadPrec [CreateTimelineEvent]
readPrec :: ReadPrec CreateTimelineEvent
$creadPrec :: ReadPrec CreateTimelineEvent
readList :: ReadS [CreateTimelineEvent]
$creadList :: ReadS [CreateTimelineEvent]
readsPrec :: Int -> ReadS CreateTimelineEvent
$creadsPrec :: Int -> ReadS CreateTimelineEvent
Prelude.Read, Int -> CreateTimelineEvent -> ShowS
[CreateTimelineEvent] -> ShowS
CreateTimelineEvent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTimelineEvent] -> ShowS
$cshowList :: [CreateTimelineEvent] -> ShowS
show :: CreateTimelineEvent -> String
$cshow :: CreateTimelineEvent -> String
showsPrec :: Int -> CreateTimelineEvent -> ShowS
$cshowsPrec :: Int -> CreateTimelineEvent -> ShowS
Prelude.Show, forall x. Rep CreateTimelineEvent x -> CreateTimelineEvent
forall x. CreateTimelineEvent -> Rep CreateTimelineEvent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTimelineEvent x -> CreateTimelineEvent
$cfrom :: forall x. CreateTimelineEvent -> Rep CreateTimelineEvent x
Prelude.Generic)
newCreateTimelineEvent ::
Prelude.Text ->
Prelude.UTCTime ->
Prelude.Text ->
Prelude.Text ->
CreateTimelineEvent
newCreateTimelineEvent :: Text -> UTCTime -> Text -> Text -> CreateTimelineEvent
newCreateTimelineEvent
Text
pEventData_
UTCTime
pEventTime_
Text
pEventType_
Text
pIncidentRecordArn_ =
CreateTimelineEvent'
{ $sel:clientToken:CreateTimelineEvent' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:eventReferences:CreateTimelineEvent' :: Maybe [EventReference]
eventReferences = forall a. Maybe a
Prelude.Nothing,
$sel:eventData:CreateTimelineEvent' :: Text
eventData = Text
pEventData_,
$sel:eventTime:CreateTimelineEvent' :: POSIX
eventTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pEventTime_,
$sel:eventType:CreateTimelineEvent' :: Text
eventType = Text
pEventType_,
$sel:incidentRecordArn:CreateTimelineEvent' :: Text
incidentRecordArn = Text
pIncidentRecordArn_
}
createTimelineEvent_clientToken :: Lens.Lens' CreateTimelineEvent (Prelude.Maybe Prelude.Text)
createTimelineEvent_clientToken :: Lens' CreateTimelineEvent (Maybe Text)
createTimelineEvent_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEvent' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateTimelineEvent
s@CreateTimelineEvent' {} Maybe Text
a -> CreateTimelineEvent
s {$sel:clientToken:CreateTimelineEvent' :: Maybe Text
clientToken = Maybe Text
a} :: CreateTimelineEvent)
createTimelineEvent_eventReferences :: Lens.Lens' CreateTimelineEvent (Prelude.Maybe [EventReference])
createTimelineEvent_eventReferences :: Lens' CreateTimelineEvent (Maybe [EventReference])
createTimelineEvent_eventReferences = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEvent' {Maybe [EventReference]
eventReferences :: Maybe [EventReference]
$sel:eventReferences:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe [EventReference]
eventReferences} -> Maybe [EventReference]
eventReferences) (\s :: CreateTimelineEvent
s@CreateTimelineEvent' {} Maybe [EventReference]
a -> CreateTimelineEvent
s {$sel:eventReferences:CreateTimelineEvent' :: Maybe [EventReference]
eventReferences = Maybe [EventReference]
a} :: CreateTimelineEvent) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createTimelineEvent_eventData :: Lens.Lens' CreateTimelineEvent Prelude.Text
createTimelineEvent_eventData :: Lens' CreateTimelineEvent Text
createTimelineEvent_eventData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEvent' {Text
eventData :: Text
$sel:eventData:CreateTimelineEvent' :: CreateTimelineEvent -> Text
eventData} -> Text
eventData) (\s :: CreateTimelineEvent
s@CreateTimelineEvent' {} Text
a -> CreateTimelineEvent
s {$sel:eventData:CreateTimelineEvent' :: Text
eventData = Text
a} :: CreateTimelineEvent)
createTimelineEvent_eventTime :: Lens.Lens' CreateTimelineEvent Prelude.UTCTime
createTimelineEvent_eventTime :: Lens' CreateTimelineEvent UTCTime
createTimelineEvent_eventTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEvent' {POSIX
eventTime :: POSIX
$sel:eventTime:CreateTimelineEvent' :: CreateTimelineEvent -> POSIX
eventTime} -> POSIX
eventTime) (\s :: CreateTimelineEvent
s@CreateTimelineEvent' {} POSIX
a -> CreateTimelineEvent
s {$sel:eventTime:CreateTimelineEvent' :: POSIX
eventTime = POSIX
a} :: CreateTimelineEvent) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
createTimelineEvent_eventType :: Lens.Lens' CreateTimelineEvent Prelude.Text
createTimelineEvent_eventType :: Lens' CreateTimelineEvent Text
createTimelineEvent_eventType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEvent' {Text
eventType :: Text
$sel:eventType:CreateTimelineEvent' :: CreateTimelineEvent -> Text
eventType} -> Text
eventType) (\s :: CreateTimelineEvent
s@CreateTimelineEvent' {} Text
a -> CreateTimelineEvent
s {$sel:eventType:CreateTimelineEvent' :: Text
eventType = Text
a} :: CreateTimelineEvent)
createTimelineEvent_incidentRecordArn :: Lens.Lens' CreateTimelineEvent Prelude.Text
createTimelineEvent_incidentRecordArn :: Lens' CreateTimelineEvent Text
createTimelineEvent_incidentRecordArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEvent' {Text
incidentRecordArn :: Text
$sel:incidentRecordArn:CreateTimelineEvent' :: CreateTimelineEvent -> Text
incidentRecordArn} -> Text
incidentRecordArn) (\s :: CreateTimelineEvent
s@CreateTimelineEvent' {} Text
a -> CreateTimelineEvent
s {$sel:incidentRecordArn:CreateTimelineEvent' :: Text
incidentRecordArn = Text
a} :: CreateTimelineEvent)
instance Core.AWSRequest CreateTimelineEvent where
type
AWSResponse CreateTimelineEvent =
CreateTimelineEventResponse
request :: (Service -> Service)
-> CreateTimelineEvent -> Request CreateTimelineEvent
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 CreateTimelineEvent
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateTimelineEvent)))
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 -> Text -> CreateTimelineEventResponse
CreateTimelineEventResponse'
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
"eventId")
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
"incidentRecordArn")
)
instance Prelude.Hashable CreateTimelineEvent where
hashWithSalt :: Int -> CreateTimelineEvent -> Int
hashWithSalt Int
_salt CreateTimelineEvent' {Maybe [EventReference]
Maybe Text
Text
POSIX
incidentRecordArn :: Text
eventType :: Text
eventTime :: POSIX
eventData :: Text
eventReferences :: Maybe [EventReference]
clientToken :: Maybe Text
$sel:incidentRecordArn:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventType:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventTime:CreateTimelineEvent' :: CreateTimelineEvent -> POSIX
$sel:eventData:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventReferences:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe [EventReference]
$sel:clientToken:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [EventReference]
eventReferences
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
eventData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
eventTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
eventType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
incidentRecordArn
instance Prelude.NFData CreateTimelineEvent where
rnf :: CreateTimelineEvent -> ()
rnf CreateTimelineEvent' {Maybe [EventReference]
Maybe Text
Text
POSIX
incidentRecordArn :: Text
eventType :: Text
eventTime :: POSIX
eventData :: Text
eventReferences :: Maybe [EventReference]
clientToken :: Maybe Text
$sel:incidentRecordArn:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventType:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventTime:CreateTimelineEvent' :: CreateTimelineEvent -> POSIX
$sel:eventData:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventReferences:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe [EventReference]
$sel:clientToken:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [EventReference]
eventReferences
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
eventData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
eventTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
eventType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
incidentRecordArn
instance Data.ToHeaders CreateTimelineEvent where
toHeaders :: CreateTimelineEvent -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateTimelineEvent where
toJSON :: CreateTimelineEvent -> Value
toJSON CreateTimelineEvent' {Maybe [EventReference]
Maybe Text
Text
POSIX
incidentRecordArn :: Text
eventType :: Text
eventTime :: POSIX
eventData :: Text
eventReferences :: Maybe [EventReference]
clientToken :: Maybe Text
$sel:incidentRecordArn:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventType:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventTime:CreateTimelineEvent' :: CreateTimelineEvent -> POSIX
$sel:eventData:CreateTimelineEvent' :: CreateTimelineEvent -> Text
$sel:eventReferences:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe [EventReference]
$sel:clientToken:CreateTimelineEvent' :: CreateTimelineEvent -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"clientToken" 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
clientToken,
(Key
"eventReferences" 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 [EventReference]
eventReferences,
forall a. a -> Maybe a
Prelude.Just (Key
"eventData" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
eventData),
forall a. a -> Maybe a
Prelude.Just (Key
"eventTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= POSIX
eventTime),
forall a. a -> Maybe a
Prelude.Just (Key
"eventType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
eventType),
forall a. a -> Maybe a
Prelude.Just
(Key
"incidentRecordArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
incidentRecordArn)
]
)
instance Data.ToPath CreateTimelineEvent where
toPath :: CreateTimelineEvent -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/createTimelineEvent"
instance Data.ToQuery CreateTimelineEvent where
toQuery :: CreateTimelineEvent -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateTimelineEventResponse = CreateTimelineEventResponse'
{
CreateTimelineEventResponse -> Int
httpStatus :: Prelude.Int,
CreateTimelineEventResponse -> Text
eventId :: Prelude.Text,
CreateTimelineEventResponse -> Text
incidentRecordArn :: Prelude.Text
}
deriving (CreateTimelineEventResponse -> CreateTimelineEventResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTimelineEventResponse -> CreateTimelineEventResponse -> Bool
$c/= :: CreateTimelineEventResponse -> CreateTimelineEventResponse -> Bool
== :: CreateTimelineEventResponse -> CreateTimelineEventResponse -> Bool
$c== :: CreateTimelineEventResponse -> CreateTimelineEventResponse -> Bool
Prelude.Eq, ReadPrec [CreateTimelineEventResponse]
ReadPrec CreateTimelineEventResponse
Int -> ReadS CreateTimelineEventResponse
ReadS [CreateTimelineEventResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTimelineEventResponse]
$creadListPrec :: ReadPrec [CreateTimelineEventResponse]
readPrec :: ReadPrec CreateTimelineEventResponse
$creadPrec :: ReadPrec CreateTimelineEventResponse
readList :: ReadS [CreateTimelineEventResponse]
$creadList :: ReadS [CreateTimelineEventResponse]
readsPrec :: Int -> ReadS CreateTimelineEventResponse
$creadsPrec :: Int -> ReadS CreateTimelineEventResponse
Prelude.Read, Int -> CreateTimelineEventResponse -> ShowS
[CreateTimelineEventResponse] -> ShowS
CreateTimelineEventResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTimelineEventResponse] -> ShowS
$cshowList :: [CreateTimelineEventResponse] -> ShowS
show :: CreateTimelineEventResponse -> String
$cshow :: CreateTimelineEventResponse -> String
showsPrec :: Int -> CreateTimelineEventResponse -> ShowS
$cshowsPrec :: Int -> CreateTimelineEventResponse -> ShowS
Prelude.Show, forall x.
Rep CreateTimelineEventResponse x -> CreateTimelineEventResponse
forall x.
CreateTimelineEventResponse -> Rep CreateTimelineEventResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTimelineEventResponse x -> CreateTimelineEventResponse
$cfrom :: forall x.
CreateTimelineEventResponse -> Rep CreateTimelineEventResponse x
Prelude.Generic)
newCreateTimelineEventResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
CreateTimelineEventResponse
newCreateTimelineEventResponse :: Int -> Text -> Text -> CreateTimelineEventResponse
newCreateTimelineEventResponse
Int
pHttpStatus_
Text
pEventId_
Text
pIncidentRecordArn_ =
CreateTimelineEventResponse'
{ $sel:httpStatus:CreateTimelineEventResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:eventId:CreateTimelineEventResponse' :: Text
eventId = Text
pEventId_,
$sel:incidentRecordArn:CreateTimelineEventResponse' :: Text
incidentRecordArn = Text
pIncidentRecordArn_
}
createTimelineEventResponse_httpStatus :: Lens.Lens' CreateTimelineEventResponse Prelude.Int
createTimelineEventResponse_httpStatus :: Lens' CreateTimelineEventResponse Int
createTimelineEventResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEventResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTimelineEventResponse' :: CreateTimelineEventResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTimelineEventResponse
s@CreateTimelineEventResponse' {} Int
a -> CreateTimelineEventResponse
s {$sel:httpStatus:CreateTimelineEventResponse' :: Int
httpStatus = Int
a} :: CreateTimelineEventResponse)
createTimelineEventResponse_eventId :: Lens.Lens' CreateTimelineEventResponse Prelude.Text
createTimelineEventResponse_eventId :: Lens' CreateTimelineEventResponse Text
createTimelineEventResponse_eventId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEventResponse' {Text
eventId :: Text
$sel:eventId:CreateTimelineEventResponse' :: CreateTimelineEventResponse -> Text
eventId} -> Text
eventId) (\s :: CreateTimelineEventResponse
s@CreateTimelineEventResponse' {} Text
a -> CreateTimelineEventResponse
s {$sel:eventId:CreateTimelineEventResponse' :: Text
eventId = Text
a} :: CreateTimelineEventResponse)
createTimelineEventResponse_incidentRecordArn :: Lens.Lens' CreateTimelineEventResponse Prelude.Text
createTimelineEventResponse_incidentRecordArn :: Lens' CreateTimelineEventResponse Text
createTimelineEventResponse_incidentRecordArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTimelineEventResponse' {Text
incidentRecordArn :: Text
$sel:incidentRecordArn:CreateTimelineEventResponse' :: CreateTimelineEventResponse -> Text
incidentRecordArn} -> Text
incidentRecordArn) (\s :: CreateTimelineEventResponse
s@CreateTimelineEventResponse' {} Text
a -> CreateTimelineEventResponse
s {$sel:incidentRecordArn:CreateTimelineEventResponse' :: Text
incidentRecordArn = Text
a} :: CreateTimelineEventResponse)
instance Prelude.NFData CreateTimelineEventResponse where
rnf :: CreateTimelineEventResponse -> ()
rnf CreateTimelineEventResponse' {Int
Text
incidentRecordArn :: Text
eventId :: Text
httpStatus :: Int
$sel:incidentRecordArn:CreateTimelineEventResponse' :: CreateTimelineEventResponse -> Text
$sel:eventId:CreateTimelineEventResponse' :: CreateTimelineEventResponse -> Text
$sel:httpStatus:CreateTimelineEventResponse' :: CreateTimelineEventResponse -> 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
eventId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
incidentRecordArn