{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.CloudWatchEvents.Types.Replay -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) module Amazonka.CloudWatchEvents.Types.Replay where import Amazonka.CloudWatchEvents.Types.ReplayState 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 -- | A @Replay@ object that contains details about a replay. -- -- /See:/ 'newReplay' smart constructor. data Replay = Replay' { -- | A time stamp for the time to start replaying events. Any event with a -- creation time prior to the @EventEndTime@ specified is replayed. eventEndTime :: Prelude.Maybe Data.POSIX, -- | A time stamp for the time that the last event was replayed. eventLastReplayedTime :: Prelude.Maybe Data.POSIX, -- | The ARN of the archive to replay event from. eventSourceArn :: Prelude.Maybe Prelude.Text, -- | A time stamp for the time to start replaying events. This is determined -- by the time in the event as described in -- . eventStartTime :: Prelude.Maybe Data.POSIX, -- | A time stamp for the time that the replay completed. replayEndTime :: Prelude.Maybe Data.POSIX, -- | The name of the replay. replayName :: Prelude.Maybe Prelude.Text, -- | A time stamp for the time that the replay started. replayStartTime :: Prelude.Maybe Data.POSIX, -- | The current state of the replay. state :: Prelude.Maybe ReplayState, -- | A description of why the replay is in the current state. stateReason :: Prelude.Maybe Prelude.Text } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'Replay' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'eventEndTime', 'replay_eventEndTime' - A time stamp for the time to start replaying events. Any event with a -- creation time prior to the @EventEndTime@ specified is replayed. -- -- 'eventLastReplayedTime', 'replay_eventLastReplayedTime' - A time stamp for the time that the last event was replayed. -- -- 'eventSourceArn', 'replay_eventSourceArn' - The ARN of the archive to replay event from. -- -- 'eventStartTime', 'replay_eventStartTime' - A time stamp for the time to start replaying events. This is determined -- by the time in the event as described in -- . -- -- 'replayEndTime', 'replay_replayEndTime' - A time stamp for the time that the replay completed. -- -- 'replayName', 'replay_replayName' - The name of the replay. -- -- 'replayStartTime', 'replay_replayStartTime' - A time stamp for the time that the replay started. -- -- 'state', 'replay_state' - The current state of the replay. -- -- 'stateReason', 'replay_stateReason' - A description of why the replay is in the current state. newReplay :: Replay newReplay = Replay' { eventEndTime = Prelude.Nothing, eventLastReplayedTime = Prelude.Nothing, eventSourceArn = Prelude.Nothing, eventStartTime = Prelude.Nothing, replayEndTime = Prelude.Nothing, replayName = Prelude.Nothing, replayStartTime = Prelude.Nothing, state = Prelude.Nothing, stateReason = Prelude.Nothing } -- | A time stamp for the time to start replaying events. Any event with a -- creation time prior to the @EventEndTime@ specified is replayed. replay_eventEndTime :: Lens.Lens' Replay (Prelude.Maybe Prelude.UTCTime) replay_eventEndTime = Lens.lens (\Replay' {eventEndTime} -> eventEndTime) (\s@Replay' {} a -> s {eventEndTime = a} :: Replay) Prelude.. Lens.mapping Data._Time -- | A time stamp for the time that the last event was replayed. replay_eventLastReplayedTime :: Lens.Lens' Replay (Prelude.Maybe Prelude.UTCTime) replay_eventLastReplayedTime = Lens.lens (\Replay' {eventLastReplayedTime} -> eventLastReplayedTime) (\s@Replay' {} a -> s {eventLastReplayedTime = a} :: Replay) Prelude.. Lens.mapping Data._Time -- | The ARN of the archive to replay event from. replay_eventSourceArn :: Lens.Lens' Replay (Prelude.Maybe Prelude.Text) replay_eventSourceArn = Lens.lens (\Replay' {eventSourceArn} -> eventSourceArn) (\s@Replay' {} a -> s {eventSourceArn = a} :: Replay) -- | A time stamp for the time to start replaying events. This is determined -- by the time in the event as described in -- . replay_eventStartTime :: Lens.Lens' Replay (Prelude.Maybe Prelude.UTCTime) replay_eventStartTime = Lens.lens (\Replay' {eventStartTime} -> eventStartTime) (\s@Replay' {} a -> s {eventStartTime = a} :: Replay) Prelude.. Lens.mapping Data._Time -- | A time stamp for the time that the replay completed. replay_replayEndTime :: Lens.Lens' Replay (Prelude.Maybe Prelude.UTCTime) replay_replayEndTime = Lens.lens (\Replay' {replayEndTime} -> replayEndTime) (\s@Replay' {} a -> s {replayEndTime = a} :: Replay) Prelude.. Lens.mapping Data._Time -- | The name of the replay. replay_replayName :: Lens.Lens' Replay (Prelude.Maybe Prelude.Text) replay_replayName = Lens.lens (\Replay' {replayName} -> replayName) (\s@Replay' {} a -> s {replayName = a} :: Replay) -- | A time stamp for the time that the replay started. replay_replayStartTime :: Lens.Lens' Replay (Prelude.Maybe Prelude.UTCTime) replay_replayStartTime = Lens.lens (\Replay' {replayStartTime} -> replayStartTime) (\s@Replay' {} a -> s {replayStartTime = a} :: Replay) Prelude.. Lens.mapping Data._Time -- | The current state of the replay. replay_state :: Lens.Lens' Replay (Prelude.Maybe ReplayState) replay_state = Lens.lens (\Replay' {state} -> state) (\s@Replay' {} a -> s {state = a} :: Replay) -- | A description of why the replay is in the current state. replay_stateReason :: Lens.Lens' Replay (Prelude.Maybe Prelude.Text) replay_stateReason = Lens.lens (\Replay' {stateReason} -> stateReason) (\s@Replay' {} a -> s {stateReason = a} :: Replay) instance Data.FromJSON Replay where parseJSON = Data.withObject "Replay" ( \x -> Replay' Prelude.<$> (x Data..:? "EventEndTime") Prelude.<*> (x Data..:? "EventLastReplayedTime") Prelude.<*> (x Data..:? "EventSourceArn") Prelude.<*> (x Data..:? "EventStartTime") Prelude.<*> (x Data..:? "ReplayEndTime") Prelude.<*> (x Data..:? "ReplayName") Prelude.<*> (x Data..:? "ReplayStartTime") Prelude.<*> (x Data..:? "State") Prelude.<*> (x Data..:? "StateReason") ) instance Prelude.Hashable Replay where hashWithSalt _salt Replay' {..} = _salt `Prelude.hashWithSalt` eventEndTime `Prelude.hashWithSalt` eventLastReplayedTime `Prelude.hashWithSalt` eventSourceArn `Prelude.hashWithSalt` eventStartTime `Prelude.hashWithSalt` replayEndTime `Prelude.hashWithSalt` replayName `Prelude.hashWithSalt` replayStartTime `Prelude.hashWithSalt` state `Prelude.hashWithSalt` stateReason instance Prelude.NFData Replay where rnf Replay' {..} = Prelude.rnf eventEndTime `Prelude.seq` Prelude.rnf eventLastReplayedTime `Prelude.seq` Prelude.rnf eventSourceArn `Prelude.seq` Prelude.rnf eventStartTime `Prelude.seq` Prelude.rnf replayEndTime `Prelude.seq` Prelude.rnf replayName `Prelude.seq` Prelude.rnf replayStartTime `Prelude.seq` Prelude.rnf state `Prelude.seq` Prelude.rnf stateReason