{-# 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.RobOMaker.SyncDeploymentJob
(
SyncDeploymentJob (..),
newSyncDeploymentJob,
syncDeploymentJob_clientRequestToken,
syncDeploymentJob_fleet,
SyncDeploymentJobResponse (..),
newSyncDeploymentJobResponse,
syncDeploymentJobResponse_failureReason,
syncDeploymentJobResponse_status,
syncDeploymentJobResponse_deploymentApplicationConfigs,
syncDeploymentJobResponse_arn,
syncDeploymentJobResponse_createdAt,
syncDeploymentJobResponse_failureCode,
syncDeploymentJobResponse_deploymentConfig,
syncDeploymentJobResponse_fleet,
syncDeploymentJobResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.RobOMaker.Types
data SyncDeploymentJob = SyncDeploymentJob'
{
SyncDeploymentJob -> Text
clientRequestToken :: Prelude.Text,
SyncDeploymentJob -> Text
fleet :: Prelude.Text
}
deriving (SyncDeploymentJob -> SyncDeploymentJob -> Bool
(SyncDeploymentJob -> SyncDeploymentJob -> Bool)
-> (SyncDeploymentJob -> SyncDeploymentJob -> Bool)
-> Eq SyncDeploymentJob
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SyncDeploymentJob -> SyncDeploymentJob -> Bool
$c/= :: SyncDeploymentJob -> SyncDeploymentJob -> Bool
== :: SyncDeploymentJob -> SyncDeploymentJob -> Bool
$c== :: SyncDeploymentJob -> SyncDeploymentJob -> Bool
Prelude.Eq, ReadPrec [SyncDeploymentJob]
ReadPrec SyncDeploymentJob
Int -> ReadS SyncDeploymentJob
ReadS [SyncDeploymentJob]
(Int -> ReadS SyncDeploymentJob)
-> ReadS [SyncDeploymentJob]
-> ReadPrec SyncDeploymentJob
-> ReadPrec [SyncDeploymentJob]
-> Read SyncDeploymentJob
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SyncDeploymentJob]
$creadListPrec :: ReadPrec [SyncDeploymentJob]
readPrec :: ReadPrec SyncDeploymentJob
$creadPrec :: ReadPrec SyncDeploymentJob
readList :: ReadS [SyncDeploymentJob]
$creadList :: ReadS [SyncDeploymentJob]
readsPrec :: Int -> ReadS SyncDeploymentJob
$creadsPrec :: Int -> ReadS SyncDeploymentJob
Prelude.Read, Int -> SyncDeploymentJob -> ShowS
[SyncDeploymentJob] -> ShowS
SyncDeploymentJob -> String
(Int -> SyncDeploymentJob -> ShowS)
-> (SyncDeploymentJob -> String)
-> ([SyncDeploymentJob] -> ShowS)
-> Show SyncDeploymentJob
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SyncDeploymentJob] -> ShowS
$cshowList :: [SyncDeploymentJob] -> ShowS
show :: SyncDeploymentJob -> String
$cshow :: SyncDeploymentJob -> String
showsPrec :: Int -> SyncDeploymentJob -> ShowS
$cshowsPrec :: Int -> SyncDeploymentJob -> ShowS
Prelude.Show, (forall x. SyncDeploymentJob -> Rep SyncDeploymentJob x)
-> (forall x. Rep SyncDeploymentJob x -> SyncDeploymentJob)
-> Generic SyncDeploymentJob
forall x. Rep SyncDeploymentJob x -> SyncDeploymentJob
forall x. SyncDeploymentJob -> Rep SyncDeploymentJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SyncDeploymentJob x -> SyncDeploymentJob
$cfrom :: forall x. SyncDeploymentJob -> Rep SyncDeploymentJob x
Prelude.Generic)
newSyncDeploymentJob ::
Prelude.Text ->
Prelude.Text ->
SyncDeploymentJob
newSyncDeploymentJob :: Text -> Text -> SyncDeploymentJob
newSyncDeploymentJob Text
pClientRequestToken_ Text
pFleet_ =
SyncDeploymentJob' :: Text -> Text -> SyncDeploymentJob
SyncDeploymentJob'
{ $sel:clientRequestToken:SyncDeploymentJob' :: Text
clientRequestToken =
Text
pClientRequestToken_,
$sel:fleet:SyncDeploymentJob' :: Text
fleet = Text
pFleet_
}
syncDeploymentJob_clientRequestToken :: Lens.Lens' SyncDeploymentJob Prelude.Text
syncDeploymentJob_clientRequestToken :: (Text -> f Text) -> SyncDeploymentJob -> f SyncDeploymentJob
syncDeploymentJob_clientRequestToken = (SyncDeploymentJob -> Text)
-> (SyncDeploymentJob -> Text -> SyncDeploymentJob)
-> Lens SyncDeploymentJob SyncDeploymentJob Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJob' {Text
clientRequestToken :: Text
$sel:clientRequestToken:SyncDeploymentJob' :: SyncDeploymentJob -> Text
clientRequestToken} -> Text
clientRequestToken) (\s :: SyncDeploymentJob
s@SyncDeploymentJob' {} Text
a -> SyncDeploymentJob
s {$sel:clientRequestToken:SyncDeploymentJob' :: Text
clientRequestToken = Text
a} :: SyncDeploymentJob)
syncDeploymentJob_fleet :: Lens.Lens' SyncDeploymentJob Prelude.Text
syncDeploymentJob_fleet :: (Text -> f Text) -> SyncDeploymentJob -> f SyncDeploymentJob
syncDeploymentJob_fleet = (SyncDeploymentJob -> Text)
-> (SyncDeploymentJob -> Text -> SyncDeploymentJob)
-> Lens SyncDeploymentJob SyncDeploymentJob Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJob' {Text
fleet :: Text
$sel:fleet:SyncDeploymentJob' :: SyncDeploymentJob -> Text
fleet} -> Text
fleet) (\s :: SyncDeploymentJob
s@SyncDeploymentJob' {} Text
a -> SyncDeploymentJob
s {$sel:fleet:SyncDeploymentJob' :: Text
fleet = Text
a} :: SyncDeploymentJob)
instance Core.AWSRequest SyncDeploymentJob where
type
AWSResponse SyncDeploymentJob =
SyncDeploymentJobResponse
request :: SyncDeploymentJob -> Request SyncDeploymentJob
request = Service -> SyncDeploymentJob -> Request SyncDeploymentJob
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy SyncDeploymentJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SyncDeploymentJob)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse SyncDeploymentJob))
-> Logger
-> Service
-> Proxy SyncDeploymentJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SyncDeploymentJob)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe DeploymentStatus
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse
SyncDeploymentJobResponse'
(Maybe Text
-> Maybe DeploymentStatus
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe DeploymentStatus
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"failureReason")
Either
String
(Maybe DeploymentStatus
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
-> Either String (Maybe DeploymentStatus)
-> Either
String
(Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe DeploymentStatus)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"status")
Either
String
(Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
-> Either String (Maybe (NonEmpty DeploymentApplicationConfig))
-> Either
String
(Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object
-> Text
-> Either String (Maybe (NonEmpty DeploymentApplicationConfig))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"deploymentApplicationConfigs")
Either
String
(Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"arn")
Either
String
(Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
-> Either String (Maybe POSIX)
-> Either
String
(Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"createdAt")
Either
String
(Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse)
-> Either String (Maybe DeploymentJobErrorCode)
-> Either
String
(Maybe DeploymentConfig
-> Maybe Text -> Int -> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe DeploymentJobErrorCode)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"failureCode")
Either
String
(Maybe DeploymentConfig
-> Maybe Text -> Int -> SyncDeploymentJobResponse)
-> Either String (Maybe DeploymentConfig)
-> Either String (Maybe Text -> Int -> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe DeploymentConfig)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"deploymentConfig")
Either String (Maybe Text -> Int -> SyncDeploymentJobResponse)
-> Either String (Maybe Text)
-> Either String (Int -> SyncDeploymentJobResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"fleet")
Either String (Int -> SyncDeploymentJobResponse)
-> Either String Int -> Either String SyncDeploymentJobResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable SyncDeploymentJob
instance Prelude.NFData SyncDeploymentJob
instance Core.ToHeaders SyncDeploymentJob where
toHeaders :: SyncDeploymentJob -> ResponseHeaders
toHeaders =
ResponseHeaders -> SyncDeploymentJob -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Core.ToJSON SyncDeploymentJob where
toJSON :: SyncDeploymentJob -> Value
toJSON SyncDeploymentJob' {Text
fleet :: Text
clientRequestToken :: Text
$sel:fleet:SyncDeploymentJob' :: SyncDeploymentJob -> Text
$sel:clientRequestToken:SyncDeploymentJob' :: SyncDeploymentJob -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
(Text
"clientRequestToken" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
clientRequestToken),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"fleet" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
fleet)
]
)
instance Core.ToPath SyncDeploymentJob where
toPath :: SyncDeploymentJob -> ByteString
toPath = ByteString -> SyncDeploymentJob -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/syncDeploymentJob"
instance Core.ToQuery SyncDeploymentJob where
toQuery :: SyncDeploymentJob -> QueryString
toQuery = QueryString -> SyncDeploymentJob -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data SyncDeploymentJobResponse = SyncDeploymentJobResponse'
{
SyncDeploymentJobResponse -> Maybe Text
failureReason :: Prelude.Maybe Prelude.Text,
SyncDeploymentJobResponse -> Maybe DeploymentStatus
status :: Prelude.Maybe DeploymentStatus,
SyncDeploymentJobResponse
-> Maybe (NonEmpty DeploymentApplicationConfig)
deploymentApplicationConfigs :: Prelude.Maybe (Prelude.NonEmpty DeploymentApplicationConfig),
SyncDeploymentJobResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
SyncDeploymentJobResponse -> Maybe POSIX
createdAt :: Prelude.Maybe Core.POSIX,
SyncDeploymentJobResponse -> Maybe DeploymentJobErrorCode
failureCode :: Prelude.Maybe DeploymentJobErrorCode,
SyncDeploymentJobResponse -> Maybe DeploymentConfig
deploymentConfig :: Prelude.Maybe DeploymentConfig,
SyncDeploymentJobResponse -> Maybe Text
fleet :: Prelude.Maybe Prelude.Text,
SyncDeploymentJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool
(SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool)
-> (SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool)
-> Eq SyncDeploymentJobResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool
$c/= :: SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool
== :: SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool
$c== :: SyncDeploymentJobResponse -> SyncDeploymentJobResponse -> Bool
Prelude.Eq, ReadPrec [SyncDeploymentJobResponse]
ReadPrec SyncDeploymentJobResponse
Int -> ReadS SyncDeploymentJobResponse
ReadS [SyncDeploymentJobResponse]
(Int -> ReadS SyncDeploymentJobResponse)
-> ReadS [SyncDeploymentJobResponse]
-> ReadPrec SyncDeploymentJobResponse
-> ReadPrec [SyncDeploymentJobResponse]
-> Read SyncDeploymentJobResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SyncDeploymentJobResponse]
$creadListPrec :: ReadPrec [SyncDeploymentJobResponse]
readPrec :: ReadPrec SyncDeploymentJobResponse
$creadPrec :: ReadPrec SyncDeploymentJobResponse
readList :: ReadS [SyncDeploymentJobResponse]
$creadList :: ReadS [SyncDeploymentJobResponse]
readsPrec :: Int -> ReadS SyncDeploymentJobResponse
$creadsPrec :: Int -> ReadS SyncDeploymentJobResponse
Prelude.Read, Int -> SyncDeploymentJobResponse -> ShowS
[SyncDeploymentJobResponse] -> ShowS
SyncDeploymentJobResponse -> String
(Int -> SyncDeploymentJobResponse -> ShowS)
-> (SyncDeploymentJobResponse -> String)
-> ([SyncDeploymentJobResponse] -> ShowS)
-> Show SyncDeploymentJobResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SyncDeploymentJobResponse] -> ShowS
$cshowList :: [SyncDeploymentJobResponse] -> ShowS
show :: SyncDeploymentJobResponse -> String
$cshow :: SyncDeploymentJobResponse -> String
showsPrec :: Int -> SyncDeploymentJobResponse -> ShowS
$cshowsPrec :: Int -> SyncDeploymentJobResponse -> ShowS
Prelude.Show, (forall x.
SyncDeploymentJobResponse -> Rep SyncDeploymentJobResponse x)
-> (forall x.
Rep SyncDeploymentJobResponse x -> SyncDeploymentJobResponse)
-> Generic SyncDeploymentJobResponse
forall x.
Rep SyncDeploymentJobResponse x -> SyncDeploymentJobResponse
forall x.
SyncDeploymentJobResponse -> Rep SyncDeploymentJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SyncDeploymentJobResponse x -> SyncDeploymentJobResponse
$cfrom :: forall x.
SyncDeploymentJobResponse -> Rep SyncDeploymentJobResponse x
Prelude.Generic)
newSyncDeploymentJobResponse ::
Prelude.Int ->
SyncDeploymentJobResponse
newSyncDeploymentJobResponse :: Int -> SyncDeploymentJobResponse
newSyncDeploymentJobResponse Int
pHttpStatus_ =
SyncDeploymentJobResponse' :: Maybe Text
-> Maybe DeploymentStatus
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> Maybe Text
-> Maybe POSIX
-> Maybe DeploymentJobErrorCode
-> Maybe DeploymentConfig
-> Maybe Text
-> Int
-> SyncDeploymentJobResponse
SyncDeploymentJobResponse'
{ $sel:failureReason:SyncDeploymentJobResponse' :: Maybe Text
failureReason =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:status:SyncDeploymentJobResponse' :: Maybe DeploymentStatus
status = Maybe DeploymentStatus
forall a. Maybe a
Prelude.Nothing,
$sel:deploymentApplicationConfigs:SyncDeploymentJobResponse' :: Maybe (NonEmpty DeploymentApplicationConfig)
deploymentApplicationConfigs = Maybe (NonEmpty DeploymentApplicationConfig)
forall a. Maybe a
Prelude.Nothing,
$sel:arn:SyncDeploymentJobResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:SyncDeploymentJobResponse' :: Maybe POSIX
createdAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:failureCode:SyncDeploymentJobResponse' :: Maybe DeploymentJobErrorCode
failureCode = Maybe DeploymentJobErrorCode
forall a. Maybe a
Prelude.Nothing,
$sel:deploymentConfig:SyncDeploymentJobResponse' :: Maybe DeploymentConfig
deploymentConfig = Maybe DeploymentConfig
forall a. Maybe a
Prelude.Nothing,
$sel:fleet:SyncDeploymentJobResponse' :: Maybe Text
fleet = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SyncDeploymentJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
syncDeploymentJobResponse_failureReason :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe Prelude.Text)
syncDeploymentJobResponse_failureReason :: (Maybe Text -> f (Maybe Text))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_failureReason = (SyncDeploymentJobResponse -> Maybe Text)
-> (SyncDeploymentJobResponse
-> Maybe Text -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe Text
failureReason :: Maybe Text
$sel:failureReason:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe Text
failureReason} -> Maybe Text
failureReason) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe Text
a -> SyncDeploymentJobResponse
s {$sel:failureReason:SyncDeploymentJobResponse' :: Maybe Text
failureReason = Maybe Text
a} :: SyncDeploymentJobResponse)
syncDeploymentJobResponse_status :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe DeploymentStatus)
syncDeploymentJobResponse_status :: (Maybe DeploymentStatus -> f (Maybe DeploymentStatus))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_status = (SyncDeploymentJobResponse -> Maybe DeploymentStatus)
-> (SyncDeploymentJobResponse
-> Maybe DeploymentStatus -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe DeploymentStatus)
(Maybe DeploymentStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe DeploymentStatus
status :: Maybe DeploymentStatus
$sel:status:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe DeploymentStatus
status} -> Maybe DeploymentStatus
status) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe DeploymentStatus
a -> SyncDeploymentJobResponse
s {$sel:status:SyncDeploymentJobResponse' :: Maybe DeploymentStatus
status = Maybe DeploymentStatus
a} :: SyncDeploymentJobResponse)
syncDeploymentJobResponse_deploymentApplicationConfigs :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe (Prelude.NonEmpty DeploymentApplicationConfig))
syncDeploymentJobResponse_deploymentApplicationConfigs :: (Maybe (NonEmpty DeploymentApplicationConfig)
-> f (Maybe (NonEmpty DeploymentApplicationConfig)))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_deploymentApplicationConfigs = (SyncDeploymentJobResponse
-> Maybe (NonEmpty DeploymentApplicationConfig))
-> (SyncDeploymentJobResponse
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe (NonEmpty DeploymentApplicationConfig))
(Maybe (NonEmpty DeploymentApplicationConfig))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe (NonEmpty DeploymentApplicationConfig)
deploymentApplicationConfigs :: Maybe (NonEmpty DeploymentApplicationConfig)
$sel:deploymentApplicationConfigs:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse
-> Maybe (NonEmpty DeploymentApplicationConfig)
deploymentApplicationConfigs} -> Maybe (NonEmpty DeploymentApplicationConfig)
deploymentApplicationConfigs) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe (NonEmpty DeploymentApplicationConfig)
a -> SyncDeploymentJobResponse
s {$sel:deploymentApplicationConfigs:SyncDeploymentJobResponse' :: Maybe (NonEmpty DeploymentApplicationConfig)
deploymentApplicationConfigs = Maybe (NonEmpty DeploymentApplicationConfig)
a} :: SyncDeploymentJobResponse) ((Maybe (NonEmpty DeploymentApplicationConfig)
-> f (Maybe (NonEmpty DeploymentApplicationConfig)))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse)
-> ((Maybe (NonEmpty DeploymentApplicationConfig)
-> f (Maybe (NonEmpty DeploymentApplicationConfig)))
-> Maybe (NonEmpty DeploymentApplicationConfig)
-> f (Maybe (NonEmpty DeploymentApplicationConfig)))
-> (Maybe (NonEmpty DeploymentApplicationConfig)
-> f (Maybe (NonEmpty DeploymentApplicationConfig)))
-> SyncDeploymentJobResponse
-> f SyncDeploymentJobResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
(NonEmpty DeploymentApplicationConfig)
(NonEmpty DeploymentApplicationConfig)
(NonEmpty DeploymentApplicationConfig)
(NonEmpty DeploymentApplicationConfig)
-> Iso
(Maybe (NonEmpty DeploymentApplicationConfig))
(Maybe (NonEmpty DeploymentApplicationConfig))
(Maybe (NonEmpty DeploymentApplicationConfig))
(Maybe (NonEmpty DeploymentApplicationConfig))
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
(NonEmpty DeploymentApplicationConfig)
(NonEmpty DeploymentApplicationConfig)
(NonEmpty DeploymentApplicationConfig)
(NonEmpty DeploymentApplicationConfig)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
syncDeploymentJobResponse_arn :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe Prelude.Text)
syncDeploymentJobResponse_arn :: (Maybe Text -> f (Maybe Text))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_arn = (SyncDeploymentJobResponse -> Maybe Text)
-> (SyncDeploymentJobResponse
-> Maybe Text -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe Text
a -> SyncDeploymentJobResponse
s {$sel:arn:SyncDeploymentJobResponse' :: Maybe Text
arn = Maybe Text
a} :: SyncDeploymentJobResponse)
syncDeploymentJobResponse_createdAt :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe Prelude.UTCTime)
syncDeploymentJobResponse_createdAt :: (Maybe UTCTime -> f (Maybe UTCTime))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_createdAt = (SyncDeploymentJobResponse -> Maybe POSIX)
-> (SyncDeploymentJobResponse
-> Maybe POSIX -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe POSIX)
(Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe POSIX
a -> SyncDeploymentJobResponse
s {$sel:createdAt:SyncDeploymentJobResponse' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: SyncDeploymentJobResponse) ((Maybe POSIX -> f (Maybe POSIX))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> SyncDeploymentJobResponse
-> f SyncDeploymentJobResponse
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
syncDeploymentJobResponse_failureCode :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe DeploymentJobErrorCode)
syncDeploymentJobResponse_failureCode :: (Maybe DeploymentJobErrorCode -> f (Maybe DeploymentJobErrorCode))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_failureCode = (SyncDeploymentJobResponse -> Maybe DeploymentJobErrorCode)
-> (SyncDeploymentJobResponse
-> Maybe DeploymentJobErrorCode -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe DeploymentJobErrorCode)
(Maybe DeploymentJobErrorCode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe DeploymentJobErrorCode
failureCode :: Maybe DeploymentJobErrorCode
$sel:failureCode:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe DeploymentJobErrorCode
failureCode} -> Maybe DeploymentJobErrorCode
failureCode) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe DeploymentJobErrorCode
a -> SyncDeploymentJobResponse
s {$sel:failureCode:SyncDeploymentJobResponse' :: Maybe DeploymentJobErrorCode
failureCode = Maybe DeploymentJobErrorCode
a} :: SyncDeploymentJobResponse)
syncDeploymentJobResponse_deploymentConfig :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe DeploymentConfig)
syncDeploymentJobResponse_deploymentConfig :: (Maybe DeploymentConfig -> f (Maybe DeploymentConfig))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_deploymentConfig = (SyncDeploymentJobResponse -> Maybe DeploymentConfig)
-> (SyncDeploymentJobResponse
-> Maybe DeploymentConfig -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe DeploymentConfig)
(Maybe DeploymentConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe DeploymentConfig
deploymentConfig :: Maybe DeploymentConfig
$sel:deploymentConfig:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe DeploymentConfig
deploymentConfig} -> Maybe DeploymentConfig
deploymentConfig) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe DeploymentConfig
a -> SyncDeploymentJobResponse
s {$sel:deploymentConfig:SyncDeploymentJobResponse' :: Maybe DeploymentConfig
deploymentConfig = Maybe DeploymentConfig
a} :: SyncDeploymentJobResponse)
syncDeploymentJobResponse_fleet :: Lens.Lens' SyncDeploymentJobResponse (Prelude.Maybe Prelude.Text)
syncDeploymentJobResponse_fleet :: (Maybe Text -> f (Maybe Text))
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_fleet = (SyncDeploymentJobResponse -> Maybe Text)
-> (SyncDeploymentJobResponse
-> Maybe Text -> SyncDeploymentJobResponse)
-> Lens
SyncDeploymentJobResponse
SyncDeploymentJobResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Maybe Text
fleet :: Maybe Text
$sel:fleet:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Maybe Text
fleet} -> Maybe Text
fleet) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Maybe Text
a -> SyncDeploymentJobResponse
s {$sel:fleet:SyncDeploymentJobResponse' :: Maybe Text
fleet = Maybe Text
a} :: SyncDeploymentJobResponse)
syncDeploymentJobResponse_httpStatus :: Lens.Lens' SyncDeploymentJobResponse Prelude.Int
syncDeploymentJobResponse_httpStatus :: (Int -> f Int)
-> SyncDeploymentJobResponse -> f SyncDeploymentJobResponse
syncDeploymentJobResponse_httpStatus = (SyncDeploymentJobResponse -> Int)
-> (SyncDeploymentJobResponse -> Int -> SyncDeploymentJobResponse)
-> Lens SyncDeploymentJobResponse SyncDeploymentJobResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SyncDeploymentJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:SyncDeploymentJobResponse' :: SyncDeploymentJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SyncDeploymentJobResponse
s@SyncDeploymentJobResponse' {} Int
a -> SyncDeploymentJobResponse
s {$sel:httpStatus:SyncDeploymentJobResponse' :: Int
httpStatus = Int
a} :: SyncDeploymentJobResponse)
instance Prelude.NFData SyncDeploymentJobResponse