{-# 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.DrS.Types.LifeCycle
-- 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.DrS.Types.LifeCycle where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DrS.Types.LifeCycleLastLaunch
import qualified Amazonka.Prelude as Prelude

-- | An object representing the Source Server Lifecycle.
--
-- /See:/ 'newLifeCycle' smart constructor.
data LifeCycle = LifeCycle'
  { -- | The date and time of when the Source Server was added to the service.
    LifeCycle -> Maybe Text
addedToServiceDateTime :: Prelude.Maybe Prelude.Text,
    -- | The amount of time that the Source Server has been replicating for.
    LifeCycle -> Maybe Text
elapsedReplicationDuration :: Prelude.Maybe Prelude.Text,
    -- | The date and time of the first byte that was replicated from the Source
    -- Server.
    LifeCycle -> Maybe Text
firstByteDateTime :: Prelude.Maybe Prelude.Text,
    -- | An object containing information regarding the last launch of the Source
    -- Server.
    LifeCycle -> Maybe LifeCycleLastLaunch
lastLaunch :: Prelude.Maybe LifeCycleLastLaunch,
    -- | The date and time this Source Server was last seen by the service.
    LifeCycle -> Maybe Text
lastSeenByServiceDateTime :: Prelude.Maybe Prelude.Text
  }
  deriving (LifeCycle -> LifeCycle -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LifeCycle -> LifeCycle -> Bool
$c/= :: LifeCycle -> LifeCycle -> Bool
== :: LifeCycle -> LifeCycle -> Bool
$c== :: LifeCycle -> LifeCycle -> Bool
Prelude.Eq, ReadPrec [LifeCycle]
ReadPrec LifeCycle
Int -> ReadS LifeCycle
ReadS [LifeCycle]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LifeCycle]
$creadListPrec :: ReadPrec [LifeCycle]
readPrec :: ReadPrec LifeCycle
$creadPrec :: ReadPrec LifeCycle
readList :: ReadS [LifeCycle]
$creadList :: ReadS [LifeCycle]
readsPrec :: Int -> ReadS LifeCycle
$creadsPrec :: Int -> ReadS LifeCycle
Prelude.Read, Int -> LifeCycle -> ShowS
[LifeCycle] -> ShowS
LifeCycle -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LifeCycle] -> ShowS
$cshowList :: [LifeCycle] -> ShowS
show :: LifeCycle -> String
$cshow :: LifeCycle -> String
showsPrec :: Int -> LifeCycle -> ShowS
$cshowsPrec :: Int -> LifeCycle -> ShowS
Prelude.Show, forall x. Rep LifeCycle x -> LifeCycle
forall x. LifeCycle -> Rep LifeCycle x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep LifeCycle x -> LifeCycle
$cfrom :: forall x. LifeCycle -> Rep LifeCycle x
Prelude.Generic)

-- |
-- Create a value of 'LifeCycle' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'addedToServiceDateTime', 'lifeCycle_addedToServiceDateTime' - The date and time of when the Source Server was added to the service.
--
-- 'elapsedReplicationDuration', 'lifeCycle_elapsedReplicationDuration' - The amount of time that the Source Server has been replicating for.
--
-- 'firstByteDateTime', 'lifeCycle_firstByteDateTime' - The date and time of the first byte that was replicated from the Source
-- Server.
--
-- 'lastLaunch', 'lifeCycle_lastLaunch' - An object containing information regarding the last launch of the Source
-- Server.
--
-- 'lastSeenByServiceDateTime', 'lifeCycle_lastSeenByServiceDateTime' - The date and time this Source Server was last seen by the service.
newLifeCycle ::
  LifeCycle
newLifeCycle :: LifeCycle
newLifeCycle =
  LifeCycle'
    { $sel:addedToServiceDateTime:LifeCycle' :: Maybe Text
addedToServiceDateTime =
        forall a. Maybe a
Prelude.Nothing,
      $sel:elapsedReplicationDuration:LifeCycle' :: Maybe Text
elapsedReplicationDuration = forall a. Maybe a
Prelude.Nothing,
      $sel:firstByteDateTime:LifeCycle' :: Maybe Text
firstByteDateTime = forall a. Maybe a
Prelude.Nothing,
      $sel:lastLaunch:LifeCycle' :: Maybe LifeCycleLastLaunch
lastLaunch = forall a. Maybe a
Prelude.Nothing,
      $sel:lastSeenByServiceDateTime:LifeCycle' :: Maybe Text
lastSeenByServiceDateTime = forall a. Maybe a
Prelude.Nothing
    }

-- | The date and time of when the Source Server was added to the service.
lifeCycle_addedToServiceDateTime :: Lens.Lens' LifeCycle (Prelude.Maybe Prelude.Text)
lifeCycle_addedToServiceDateTime :: Lens' LifeCycle (Maybe Text)
lifeCycle_addedToServiceDateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LifeCycle' {Maybe Text
addedToServiceDateTime :: Maybe Text
$sel:addedToServiceDateTime:LifeCycle' :: LifeCycle -> Maybe Text
addedToServiceDateTime} -> Maybe Text
addedToServiceDateTime) (\s :: LifeCycle
s@LifeCycle' {} Maybe Text
a -> LifeCycle
s {$sel:addedToServiceDateTime:LifeCycle' :: Maybe Text
addedToServiceDateTime = Maybe Text
a} :: LifeCycle)

-- | The amount of time that the Source Server has been replicating for.
lifeCycle_elapsedReplicationDuration :: Lens.Lens' LifeCycle (Prelude.Maybe Prelude.Text)
lifeCycle_elapsedReplicationDuration :: Lens' LifeCycle (Maybe Text)
lifeCycle_elapsedReplicationDuration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LifeCycle' {Maybe Text
elapsedReplicationDuration :: Maybe Text
$sel:elapsedReplicationDuration:LifeCycle' :: LifeCycle -> Maybe Text
elapsedReplicationDuration} -> Maybe Text
elapsedReplicationDuration) (\s :: LifeCycle
s@LifeCycle' {} Maybe Text
a -> LifeCycle
s {$sel:elapsedReplicationDuration:LifeCycle' :: Maybe Text
elapsedReplicationDuration = Maybe Text
a} :: LifeCycle)

-- | The date and time of the first byte that was replicated from the Source
-- Server.
lifeCycle_firstByteDateTime :: Lens.Lens' LifeCycle (Prelude.Maybe Prelude.Text)
lifeCycle_firstByteDateTime :: Lens' LifeCycle (Maybe Text)
lifeCycle_firstByteDateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LifeCycle' {Maybe Text
firstByteDateTime :: Maybe Text
$sel:firstByteDateTime:LifeCycle' :: LifeCycle -> Maybe Text
firstByteDateTime} -> Maybe Text
firstByteDateTime) (\s :: LifeCycle
s@LifeCycle' {} Maybe Text
a -> LifeCycle
s {$sel:firstByteDateTime:LifeCycle' :: Maybe Text
firstByteDateTime = Maybe Text
a} :: LifeCycle)

-- | An object containing information regarding the last launch of the Source
-- Server.
lifeCycle_lastLaunch :: Lens.Lens' LifeCycle (Prelude.Maybe LifeCycleLastLaunch)
lifeCycle_lastLaunch :: Lens' LifeCycle (Maybe LifeCycleLastLaunch)
lifeCycle_lastLaunch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LifeCycle' {Maybe LifeCycleLastLaunch
lastLaunch :: Maybe LifeCycleLastLaunch
$sel:lastLaunch:LifeCycle' :: LifeCycle -> Maybe LifeCycleLastLaunch
lastLaunch} -> Maybe LifeCycleLastLaunch
lastLaunch) (\s :: LifeCycle
s@LifeCycle' {} Maybe LifeCycleLastLaunch
a -> LifeCycle
s {$sel:lastLaunch:LifeCycle' :: Maybe LifeCycleLastLaunch
lastLaunch = Maybe LifeCycleLastLaunch
a} :: LifeCycle)

-- | The date and time this Source Server was last seen by the service.
lifeCycle_lastSeenByServiceDateTime :: Lens.Lens' LifeCycle (Prelude.Maybe Prelude.Text)
lifeCycle_lastSeenByServiceDateTime :: Lens' LifeCycle (Maybe Text)
lifeCycle_lastSeenByServiceDateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LifeCycle' {Maybe Text
lastSeenByServiceDateTime :: Maybe Text
$sel:lastSeenByServiceDateTime:LifeCycle' :: LifeCycle -> Maybe Text
lastSeenByServiceDateTime} -> Maybe Text
lastSeenByServiceDateTime) (\s :: LifeCycle
s@LifeCycle' {} Maybe Text
a -> LifeCycle
s {$sel:lastSeenByServiceDateTime:LifeCycle' :: Maybe Text
lastSeenByServiceDateTime = Maybe Text
a} :: LifeCycle)

instance Data.FromJSON LifeCycle where
  parseJSON :: Value -> Parser LifeCycle
parseJSON =
    forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
      String
"LifeCycle"
      ( \Object
x ->
          Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe LifeCycleLastLaunch
-> Maybe Text
-> LifeCycle
LifeCycle'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"addedToServiceDateTime")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"elapsedReplicationDuration")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"firstByteDateTime")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"lastLaunch")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"lastSeenByServiceDateTime")
      )

instance Prelude.Hashable LifeCycle where
  hashWithSalt :: Int -> LifeCycle -> Int
hashWithSalt Int
_salt LifeCycle' {Maybe Text
Maybe LifeCycleLastLaunch
lastSeenByServiceDateTime :: Maybe Text
lastLaunch :: Maybe LifeCycleLastLaunch
firstByteDateTime :: Maybe Text
elapsedReplicationDuration :: Maybe Text
addedToServiceDateTime :: Maybe Text
$sel:lastSeenByServiceDateTime:LifeCycle' :: LifeCycle -> Maybe Text
$sel:lastLaunch:LifeCycle' :: LifeCycle -> Maybe LifeCycleLastLaunch
$sel:firstByteDateTime:LifeCycle' :: LifeCycle -> Maybe Text
$sel:elapsedReplicationDuration:LifeCycle' :: LifeCycle -> Maybe Text
$sel:addedToServiceDateTime:LifeCycle' :: LifeCycle -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
addedToServiceDateTime
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
elapsedReplicationDuration
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
firstByteDateTime
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LifeCycleLastLaunch
lastLaunch
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
lastSeenByServiceDateTime

instance Prelude.NFData LifeCycle where
  rnf :: LifeCycle -> ()
rnf LifeCycle' {Maybe Text
Maybe LifeCycleLastLaunch
lastSeenByServiceDateTime :: Maybe Text
lastLaunch :: Maybe LifeCycleLastLaunch
firstByteDateTime :: Maybe Text
elapsedReplicationDuration :: Maybe Text
addedToServiceDateTime :: Maybe Text
$sel:lastSeenByServiceDateTime:LifeCycle' :: LifeCycle -> Maybe Text
$sel:lastLaunch:LifeCycle' :: LifeCycle -> Maybe LifeCycleLastLaunch
$sel:firstByteDateTime:LifeCycle' :: LifeCycle -> Maybe Text
$sel:elapsedReplicationDuration:LifeCycle' :: LifeCycle -> Maybe Text
$sel:addedToServiceDateTime:LifeCycle' :: LifeCycle -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
addedToServiceDateTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
elapsedReplicationDuration
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
firstByteDateTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LifeCycleLastLaunch
lastLaunch
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
lastSeenByServiceDateTime