{-# 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 #-}
module Amazonka.CodeDeploy.Types.ECSTarget where
import Amazonka.CodeDeploy.Types.ECSTaskSet
import Amazonka.CodeDeploy.Types.LifecycleEvent
import Amazonka.CodeDeploy.Types.TargetStatus
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
data ECSTarget = ECSTarget'
{
ECSTarget -> Maybe Text
targetArn :: Prelude.Maybe Prelude.Text,
ECSTarget -> Maybe Text
targetId :: Prelude.Maybe Prelude.Text,
ECSTarget -> Maybe TargetStatus
status :: Prelude.Maybe TargetStatus,
ECSTarget -> Maybe Text
deploymentId :: Prelude.Maybe Prelude.Text,
ECSTarget -> Maybe POSIX
lastUpdatedAt :: Prelude.Maybe Core.POSIX,
ECSTarget -> Maybe [ECSTaskSet]
taskSetsInfo :: Prelude.Maybe [ECSTaskSet],
ECSTarget -> Maybe [LifecycleEvent]
lifecycleEvents :: Prelude.Maybe [LifecycleEvent]
}
deriving (ECSTarget -> ECSTarget -> Bool
(ECSTarget -> ECSTarget -> Bool)
-> (ECSTarget -> ECSTarget -> Bool) -> Eq ECSTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ECSTarget -> ECSTarget -> Bool
$c/= :: ECSTarget -> ECSTarget -> Bool
== :: ECSTarget -> ECSTarget -> Bool
$c== :: ECSTarget -> ECSTarget -> Bool
Prelude.Eq, ReadPrec [ECSTarget]
ReadPrec ECSTarget
Int -> ReadS ECSTarget
ReadS [ECSTarget]
(Int -> ReadS ECSTarget)
-> ReadS [ECSTarget]
-> ReadPrec ECSTarget
-> ReadPrec [ECSTarget]
-> Read ECSTarget
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ECSTarget]
$creadListPrec :: ReadPrec [ECSTarget]
readPrec :: ReadPrec ECSTarget
$creadPrec :: ReadPrec ECSTarget
readList :: ReadS [ECSTarget]
$creadList :: ReadS [ECSTarget]
readsPrec :: Int -> ReadS ECSTarget
$creadsPrec :: Int -> ReadS ECSTarget
Prelude.Read, Int -> ECSTarget -> ShowS
[ECSTarget] -> ShowS
ECSTarget -> String
(Int -> ECSTarget -> ShowS)
-> (ECSTarget -> String)
-> ([ECSTarget] -> ShowS)
-> Show ECSTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ECSTarget] -> ShowS
$cshowList :: [ECSTarget] -> ShowS
show :: ECSTarget -> String
$cshow :: ECSTarget -> String
showsPrec :: Int -> ECSTarget -> ShowS
$cshowsPrec :: Int -> ECSTarget -> ShowS
Prelude.Show, (forall x. ECSTarget -> Rep ECSTarget x)
-> (forall x. Rep ECSTarget x -> ECSTarget) -> Generic ECSTarget
forall x. Rep ECSTarget x -> ECSTarget
forall x. ECSTarget -> Rep ECSTarget x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ECSTarget x -> ECSTarget
$cfrom :: forall x. ECSTarget -> Rep ECSTarget x
Prelude.Generic)
newECSTarget ::
ECSTarget
newECSTarget :: ECSTarget
newECSTarget =
ECSTarget' :: Maybe Text
-> Maybe Text
-> Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget
ECSTarget'
{ $sel:targetArn:ECSTarget' :: Maybe Text
targetArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:targetId:ECSTarget' :: Maybe Text
targetId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:status:ECSTarget' :: Maybe TargetStatus
status = Maybe TargetStatus
forall a. Maybe a
Prelude.Nothing,
$sel:deploymentId:ECSTarget' :: Maybe Text
deploymentId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedAt:ECSTarget' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:taskSetsInfo:ECSTarget' :: Maybe [ECSTaskSet]
taskSetsInfo = Maybe [ECSTaskSet]
forall a. Maybe a
Prelude.Nothing,
$sel:lifecycleEvents:ECSTarget' :: Maybe [LifecycleEvent]
lifecycleEvents = Maybe [LifecycleEvent]
forall a. Maybe a
Prelude.Nothing
}
eCSTarget_targetArn :: Lens.Lens' ECSTarget (Prelude.Maybe Prelude.Text)
eCSTarget_targetArn :: (Maybe Text -> f (Maybe Text)) -> ECSTarget -> f ECSTarget
eCSTarget_targetArn = (ECSTarget -> Maybe Text)
-> (ECSTarget -> Maybe Text -> ECSTarget)
-> Lens ECSTarget ECSTarget (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe Text
targetArn :: Maybe Text
$sel:targetArn:ECSTarget' :: ECSTarget -> Maybe Text
targetArn} -> Maybe Text
targetArn) (\s :: ECSTarget
s@ECSTarget' {} Maybe Text
a -> ECSTarget
s {$sel:targetArn:ECSTarget' :: Maybe Text
targetArn = Maybe Text
a} :: ECSTarget)
eCSTarget_targetId :: Lens.Lens' ECSTarget (Prelude.Maybe Prelude.Text)
eCSTarget_targetId :: (Maybe Text -> f (Maybe Text)) -> ECSTarget -> f ECSTarget
eCSTarget_targetId = (ECSTarget -> Maybe Text)
-> (ECSTarget -> Maybe Text -> ECSTarget)
-> Lens ECSTarget ECSTarget (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe Text
targetId :: Maybe Text
$sel:targetId:ECSTarget' :: ECSTarget -> Maybe Text
targetId} -> Maybe Text
targetId) (\s :: ECSTarget
s@ECSTarget' {} Maybe Text
a -> ECSTarget
s {$sel:targetId:ECSTarget' :: Maybe Text
targetId = Maybe Text
a} :: ECSTarget)
eCSTarget_status :: Lens.Lens' ECSTarget (Prelude.Maybe TargetStatus)
eCSTarget_status :: (Maybe TargetStatus -> f (Maybe TargetStatus))
-> ECSTarget -> f ECSTarget
eCSTarget_status = (ECSTarget -> Maybe TargetStatus)
-> (ECSTarget -> Maybe TargetStatus -> ECSTarget)
-> Lens
ECSTarget ECSTarget (Maybe TargetStatus) (Maybe TargetStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe TargetStatus
status :: Maybe TargetStatus
$sel:status:ECSTarget' :: ECSTarget -> Maybe TargetStatus
status} -> Maybe TargetStatus
status) (\s :: ECSTarget
s@ECSTarget' {} Maybe TargetStatus
a -> ECSTarget
s {$sel:status:ECSTarget' :: Maybe TargetStatus
status = Maybe TargetStatus
a} :: ECSTarget)
eCSTarget_deploymentId :: Lens.Lens' ECSTarget (Prelude.Maybe Prelude.Text)
eCSTarget_deploymentId :: (Maybe Text -> f (Maybe Text)) -> ECSTarget -> f ECSTarget
eCSTarget_deploymentId = (ECSTarget -> Maybe Text)
-> (ECSTarget -> Maybe Text -> ECSTarget)
-> Lens ECSTarget ECSTarget (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe Text
deploymentId :: Maybe Text
$sel:deploymentId:ECSTarget' :: ECSTarget -> Maybe Text
deploymentId} -> Maybe Text
deploymentId) (\s :: ECSTarget
s@ECSTarget' {} Maybe Text
a -> ECSTarget
s {$sel:deploymentId:ECSTarget' :: Maybe Text
deploymentId = Maybe Text
a} :: ECSTarget)
eCSTarget_lastUpdatedAt :: Lens.Lens' ECSTarget (Prelude.Maybe Prelude.UTCTime)
eCSTarget_lastUpdatedAt :: (Maybe UTCTime -> f (Maybe UTCTime)) -> ECSTarget -> f ECSTarget
eCSTarget_lastUpdatedAt = (ECSTarget -> Maybe POSIX)
-> (ECSTarget -> Maybe POSIX -> ECSTarget)
-> Lens ECSTarget ECSTarget (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe POSIX
lastUpdatedAt :: Maybe POSIX
$sel:lastUpdatedAt:ECSTarget' :: ECSTarget -> Maybe POSIX
lastUpdatedAt} -> Maybe POSIX
lastUpdatedAt) (\s :: ECSTarget
s@ECSTarget' {} Maybe POSIX
a -> ECSTarget
s {$sel:lastUpdatedAt:ECSTarget' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
a} :: ECSTarget) ((Maybe POSIX -> f (Maybe POSIX)) -> ECSTarget -> f ECSTarget)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ECSTarget
-> f ECSTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
eCSTarget_taskSetsInfo :: Lens.Lens' ECSTarget (Prelude.Maybe [ECSTaskSet])
eCSTarget_taskSetsInfo :: (Maybe [ECSTaskSet] -> f (Maybe [ECSTaskSet]))
-> ECSTarget -> f ECSTarget
eCSTarget_taskSetsInfo = (ECSTarget -> Maybe [ECSTaskSet])
-> (ECSTarget -> Maybe [ECSTaskSet] -> ECSTarget)
-> Lens
ECSTarget ECSTarget (Maybe [ECSTaskSet]) (Maybe [ECSTaskSet])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe [ECSTaskSet]
taskSetsInfo :: Maybe [ECSTaskSet]
$sel:taskSetsInfo:ECSTarget' :: ECSTarget -> Maybe [ECSTaskSet]
taskSetsInfo} -> Maybe [ECSTaskSet]
taskSetsInfo) (\s :: ECSTarget
s@ECSTarget' {} Maybe [ECSTaskSet]
a -> ECSTarget
s {$sel:taskSetsInfo:ECSTarget' :: Maybe [ECSTaskSet]
taskSetsInfo = Maybe [ECSTaskSet]
a} :: ECSTarget) ((Maybe [ECSTaskSet] -> f (Maybe [ECSTaskSet]))
-> ECSTarget -> f ECSTarget)
-> ((Maybe [ECSTaskSet] -> f (Maybe [ECSTaskSet]))
-> Maybe [ECSTaskSet] -> f (Maybe [ECSTaskSet]))
-> (Maybe [ECSTaskSet] -> f (Maybe [ECSTaskSet]))
-> ECSTarget
-> f ECSTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [ECSTaskSet] [ECSTaskSet] [ECSTaskSet] [ECSTaskSet]
-> Iso
(Maybe [ECSTaskSet])
(Maybe [ECSTaskSet])
(Maybe [ECSTaskSet])
(Maybe [ECSTaskSet])
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 AnIso [ECSTaskSet] [ECSTaskSet] [ECSTaskSet] [ECSTaskSet]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
eCSTarget_lifecycleEvents :: Lens.Lens' ECSTarget (Prelude.Maybe [LifecycleEvent])
eCSTarget_lifecycleEvents :: (Maybe [LifecycleEvent] -> f (Maybe [LifecycleEvent]))
-> ECSTarget -> f ECSTarget
eCSTarget_lifecycleEvents = (ECSTarget -> Maybe [LifecycleEvent])
-> (ECSTarget -> Maybe [LifecycleEvent] -> ECSTarget)
-> Lens
ECSTarget
ECSTarget
(Maybe [LifecycleEvent])
(Maybe [LifecycleEvent])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ECSTarget' {Maybe [LifecycleEvent]
lifecycleEvents :: Maybe [LifecycleEvent]
$sel:lifecycleEvents:ECSTarget' :: ECSTarget -> Maybe [LifecycleEvent]
lifecycleEvents} -> Maybe [LifecycleEvent]
lifecycleEvents) (\s :: ECSTarget
s@ECSTarget' {} Maybe [LifecycleEvent]
a -> ECSTarget
s {$sel:lifecycleEvents:ECSTarget' :: Maybe [LifecycleEvent]
lifecycleEvents = Maybe [LifecycleEvent]
a} :: ECSTarget) ((Maybe [LifecycleEvent] -> f (Maybe [LifecycleEvent]))
-> ECSTarget -> f ECSTarget)
-> ((Maybe [LifecycleEvent] -> f (Maybe [LifecycleEvent]))
-> Maybe [LifecycleEvent] -> f (Maybe [LifecycleEvent]))
-> (Maybe [LifecycleEvent] -> f (Maybe [LifecycleEvent]))
-> ECSTarget
-> f ECSTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[LifecycleEvent] [LifecycleEvent] [LifecycleEvent] [LifecycleEvent]
-> Iso
(Maybe [LifecycleEvent])
(Maybe [LifecycleEvent])
(Maybe [LifecycleEvent])
(Maybe [LifecycleEvent])
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 AnIso
[LifecycleEvent] [LifecycleEvent] [LifecycleEvent] [LifecycleEvent]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.FromJSON ECSTarget where
parseJSON :: Value -> Parser ECSTarget
parseJSON =
String -> (Object -> Parser ECSTarget) -> Value -> Parser ECSTarget
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
String
"ECSTarget"
( \Object
x ->
Maybe Text
-> Maybe Text
-> Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget
ECSTarget'
(Maybe Text
-> Maybe Text
-> Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"targetArn")
Parser
(Maybe Text
-> Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
-> Parser (Maybe Text)
-> Parser
(Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"targetId")
Parser
(Maybe TargetStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
-> Parser (Maybe TargetStatus)
-> Parser
(Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe TargetStatus)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"status")
Parser
(Maybe Text
-> Maybe POSIX
-> Maybe [ECSTaskSet]
-> Maybe [LifecycleEvent]
-> ECSTarget)
-> Parser (Maybe Text)
-> Parser
(Maybe POSIX
-> Maybe [ECSTaskSet] -> Maybe [LifecycleEvent] -> ECSTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"deploymentId")
Parser
(Maybe POSIX
-> Maybe [ECSTaskSet] -> Maybe [LifecycleEvent] -> ECSTarget)
-> Parser (Maybe POSIX)
-> Parser
(Maybe [ECSTaskSet] -> Maybe [LifecycleEvent] -> ECSTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"lastUpdatedAt")
Parser (Maybe [ECSTaskSet] -> Maybe [LifecycleEvent] -> ECSTarget)
-> Parser (Maybe [ECSTaskSet])
-> Parser (Maybe [LifecycleEvent] -> ECSTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe [ECSTaskSet]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"taskSetsInfo" Parser (Maybe (Maybe [ECSTaskSet]))
-> Maybe [ECSTaskSet] -> Parser (Maybe [ECSTaskSet])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [ECSTaskSet]
forall a. Monoid a => a
Prelude.mempty)
Parser (Maybe [LifecycleEvent] -> ECSTarget)
-> Parser (Maybe [LifecycleEvent]) -> Parser ECSTarget
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object -> Text -> Parser (Maybe (Maybe [LifecycleEvent]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"lifecycleEvents"
Parser (Maybe (Maybe [LifecycleEvent]))
-> Maybe [LifecycleEvent] -> Parser (Maybe [LifecycleEvent])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [LifecycleEvent]
forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ECSTarget
instance Prelude.NFData ECSTarget