{-# 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.ApiGatewayV2.UpdateDeployment
(
UpdateDeployment (..),
newUpdateDeployment,
updateDeployment_description,
updateDeployment_apiId,
updateDeployment_deploymentId,
UpdateDeploymentResponse (..),
newUpdateDeploymentResponse,
updateDeploymentResponse_autoDeployed,
updateDeploymentResponse_createdDate,
updateDeploymentResponse_deploymentId,
updateDeploymentResponse_deploymentStatus,
updateDeploymentResponse_deploymentStatusMessage,
updateDeploymentResponse_description,
updateDeploymentResponse_httpStatus,
)
where
import Amazonka.ApiGatewayV2.Types
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
data UpdateDeployment = UpdateDeployment'
{
UpdateDeployment -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
UpdateDeployment -> Text
apiId :: Prelude.Text,
UpdateDeployment -> Text
deploymentId :: Prelude.Text
}
deriving (UpdateDeployment -> UpdateDeployment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDeployment -> UpdateDeployment -> Bool
$c/= :: UpdateDeployment -> UpdateDeployment -> Bool
== :: UpdateDeployment -> UpdateDeployment -> Bool
$c== :: UpdateDeployment -> UpdateDeployment -> Bool
Prelude.Eq, ReadPrec [UpdateDeployment]
ReadPrec UpdateDeployment
Int -> ReadS UpdateDeployment
ReadS [UpdateDeployment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDeployment]
$creadListPrec :: ReadPrec [UpdateDeployment]
readPrec :: ReadPrec UpdateDeployment
$creadPrec :: ReadPrec UpdateDeployment
readList :: ReadS [UpdateDeployment]
$creadList :: ReadS [UpdateDeployment]
readsPrec :: Int -> ReadS UpdateDeployment
$creadsPrec :: Int -> ReadS UpdateDeployment
Prelude.Read, Int -> UpdateDeployment -> ShowS
[UpdateDeployment] -> ShowS
UpdateDeployment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDeployment] -> ShowS
$cshowList :: [UpdateDeployment] -> ShowS
show :: UpdateDeployment -> String
$cshow :: UpdateDeployment -> String
showsPrec :: Int -> UpdateDeployment -> ShowS
$cshowsPrec :: Int -> UpdateDeployment -> ShowS
Prelude.Show, forall x. Rep UpdateDeployment x -> UpdateDeployment
forall x. UpdateDeployment -> Rep UpdateDeployment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateDeployment x -> UpdateDeployment
$cfrom :: forall x. UpdateDeployment -> Rep UpdateDeployment x
Prelude.Generic)
newUpdateDeployment ::
Prelude.Text ->
Prelude.Text ->
UpdateDeployment
newUpdateDeployment :: Text -> Text -> UpdateDeployment
newUpdateDeployment Text
pApiId_ Text
pDeploymentId_ =
UpdateDeployment'
{ $sel:description:UpdateDeployment' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:apiId:UpdateDeployment' :: Text
apiId = Text
pApiId_,
$sel:deploymentId:UpdateDeployment' :: Text
deploymentId = Text
pDeploymentId_
}
updateDeployment_description :: Lens.Lens' UpdateDeployment (Prelude.Maybe Prelude.Text)
updateDeployment_description :: Lens' UpdateDeployment (Maybe Text)
updateDeployment_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeployment' {Maybe Text
description :: Maybe Text
$sel:description:UpdateDeployment' :: UpdateDeployment -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateDeployment
s@UpdateDeployment' {} Maybe Text
a -> UpdateDeployment
s {$sel:description:UpdateDeployment' :: Maybe Text
description = Maybe Text
a} :: UpdateDeployment)
updateDeployment_apiId :: Lens.Lens' UpdateDeployment Prelude.Text
updateDeployment_apiId :: Lens' UpdateDeployment Text
updateDeployment_apiId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeployment' {Text
apiId :: Text
$sel:apiId:UpdateDeployment' :: UpdateDeployment -> Text
apiId} -> Text
apiId) (\s :: UpdateDeployment
s@UpdateDeployment' {} Text
a -> UpdateDeployment
s {$sel:apiId:UpdateDeployment' :: Text
apiId = Text
a} :: UpdateDeployment)
updateDeployment_deploymentId :: Lens.Lens' UpdateDeployment Prelude.Text
updateDeployment_deploymentId :: Lens' UpdateDeployment Text
updateDeployment_deploymentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeployment' {Text
deploymentId :: Text
$sel:deploymentId:UpdateDeployment' :: UpdateDeployment -> Text
deploymentId} -> Text
deploymentId) (\s :: UpdateDeployment
s@UpdateDeployment' {} Text
a -> UpdateDeployment
s {$sel:deploymentId:UpdateDeployment' :: Text
deploymentId = Text
a} :: UpdateDeployment)
instance Core.AWSRequest UpdateDeployment where
type
AWSResponse UpdateDeployment =
UpdateDeploymentResponse
request :: (Service -> Service)
-> UpdateDeployment -> Request UpdateDeployment
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.patchJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateDeployment
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateDeployment)))
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 ->
Maybe Bool
-> Maybe ISO8601
-> Maybe Text
-> Maybe DeploymentStatus
-> Maybe Text
-> Maybe Text
-> Int
-> UpdateDeploymentResponse
UpdateDeploymentResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"autoDeployed")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"createdDate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"deploymentId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"deploymentStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"deploymentStatusMessage")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"description")
forall (f :: * -> *) a b. Applicative f => 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))
)
instance Prelude.Hashable UpdateDeployment where
hashWithSalt :: Int -> UpdateDeployment -> Int
hashWithSalt Int
_salt UpdateDeployment' {Maybe Text
Text
deploymentId :: Text
apiId :: Text
description :: Maybe Text
$sel:deploymentId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:apiId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:description:UpdateDeployment' :: UpdateDeployment -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
apiId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
deploymentId
instance Prelude.NFData UpdateDeployment where
rnf :: UpdateDeployment -> ()
rnf UpdateDeployment' {Maybe Text
Text
deploymentId :: Text
apiId :: Text
description :: Maybe Text
$sel:deploymentId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:apiId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:description:UpdateDeployment' :: UpdateDeployment -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
apiId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
deploymentId
instance Data.ToHeaders UpdateDeployment where
toHeaders :: UpdateDeployment -> 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 UpdateDeployment where
toJSON :: UpdateDeployment -> Value
toJSON UpdateDeployment' {Maybe Text
Text
deploymentId :: Text
apiId :: Text
description :: Maybe Text
$sel:deploymentId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:apiId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:description:UpdateDeployment' :: UpdateDeployment -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(Key
"description" 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
description]
)
instance Data.ToPath UpdateDeployment where
toPath :: UpdateDeployment -> ByteString
toPath UpdateDeployment' {Maybe Text
Text
deploymentId :: Text
apiId :: Text
description :: Maybe Text
$sel:deploymentId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:apiId:UpdateDeployment' :: UpdateDeployment -> Text
$sel:description:UpdateDeployment' :: UpdateDeployment -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v2/apis/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
apiId,
ByteString
"/deployments/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
deploymentId
]
instance Data.ToQuery UpdateDeployment where
toQuery :: UpdateDeployment -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateDeploymentResponse = UpdateDeploymentResponse'
{
UpdateDeploymentResponse -> Maybe Bool
autoDeployed :: Prelude.Maybe Prelude.Bool,
UpdateDeploymentResponse -> Maybe ISO8601
createdDate :: Prelude.Maybe Data.ISO8601,
UpdateDeploymentResponse -> Maybe Text
deploymentId :: Prelude.Maybe Prelude.Text,
UpdateDeploymentResponse -> Maybe DeploymentStatus
deploymentStatus :: Prelude.Maybe DeploymentStatus,
UpdateDeploymentResponse -> Maybe Text
deploymentStatusMessage :: Prelude.Maybe Prelude.Text,
UpdateDeploymentResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
UpdateDeploymentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateDeploymentResponse -> UpdateDeploymentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDeploymentResponse -> UpdateDeploymentResponse -> Bool
$c/= :: UpdateDeploymentResponse -> UpdateDeploymentResponse -> Bool
== :: UpdateDeploymentResponse -> UpdateDeploymentResponse -> Bool
$c== :: UpdateDeploymentResponse -> UpdateDeploymentResponse -> Bool
Prelude.Eq, ReadPrec [UpdateDeploymentResponse]
ReadPrec UpdateDeploymentResponse
Int -> ReadS UpdateDeploymentResponse
ReadS [UpdateDeploymentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDeploymentResponse]
$creadListPrec :: ReadPrec [UpdateDeploymentResponse]
readPrec :: ReadPrec UpdateDeploymentResponse
$creadPrec :: ReadPrec UpdateDeploymentResponse
readList :: ReadS [UpdateDeploymentResponse]
$creadList :: ReadS [UpdateDeploymentResponse]
readsPrec :: Int -> ReadS UpdateDeploymentResponse
$creadsPrec :: Int -> ReadS UpdateDeploymentResponse
Prelude.Read, Int -> UpdateDeploymentResponse -> ShowS
[UpdateDeploymentResponse] -> ShowS
UpdateDeploymentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDeploymentResponse] -> ShowS
$cshowList :: [UpdateDeploymentResponse] -> ShowS
show :: UpdateDeploymentResponse -> String
$cshow :: UpdateDeploymentResponse -> String
showsPrec :: Int -> UpdateDeploymentResponse -> ShowS
$cshowsPrec :: Int -> UpdateDeploymentResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateDeploymentResponse x -> UpdateDeploymentResponse
forall x.
UpdateDeploymentResponse -> Rep UpdateDeploymentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDeploymentResponse x -> UpdateDeploymentResponse
$cfrom :: forall x.
UpdateDeploymentResponse -> Rep UpdateDeploymentResponse x
Prelude.Generic)
newUpdateDeploymentResponse ::
Prelude.Int ->
UpdateDeploymentResponse
newUpdateDeploymentResponse :: Int -> UpdateDeploymentResponse
newUpdateDeploymentResponse Int
pHttpStatus_ =
UpdateDeploymentResponse'
{ $sel:autoDeployed:UpdateDeploymentResponse' :: Maybe Bool
autoDeployed =
forall a. Maybe a
Prelude.Nothing,
$sel:createdDate:UpdateDeploymentResponse' :: Maybe ISO8601
createdDate = forall a. Maybe a
Prelude.Nothing,
$sel:deploymentId:UpdateDeploymentResponse' :: Maybe Text
deploymentId = forall a. Maybe a
Prelude.Nothing,
$sel:deploymentStatus:UpdateDeploymentResponse' :: Maybe DeploymentStatus
deploymentStatus = forall a. Maybe a
Prelude.Nothing,
$sel:deploymentStatusMessage:UpdateDeploymentResponse' :: Maybe Text
deploymentStatusMessage = forall a. Maybe a
Prelude.Nothing,
$sel:description:UpdateDeploymentResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateDeploymentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateDeploymentResponse_autoDeployed :: Lens.Lens' UpdateDeploymentResponse (Prelude.Maybe Prelude.Bool)
updateDeploymentResponse_autoDeployed :: Lens' UpdateDeploymentResponse (Maybe Bool)
updateDeploymentResponse_autoDeployed = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Maybe Bool
autoDeployed :: Maybe Bool
$sel:autoDeployed:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Bool
autoDeployed} -> Maybe Bool
autoDeployed) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Maybe Bool
a -> UpdateDeploymentResponse
s {$sel:autoDeployed:UpdateDeploymentResponse' :: Maybe Bool
autoDeployed = Maybe Bool
a} :: UpdateDeploymentResponse)
updateDeploymentResponse_createdDate :: Lens.Lens' UpdateDeploymentResponse (Prelude.Maybe Prelude.UTCTime)
updateDeploymentResponse_createdDate :: Lens' UpdateDeploymentResponse (Maybe UTCTime)
updateDeploymentResponse_createdDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Maybe ISO8601
createdDate :: Maybe ISO8601
$sel:createdDate:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe ISO8601
createdDate} -> Maybe ISO8601
createdDate) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Maybe ISO8601
a -> UpdateDeploymentResponse
s {$sel:createdDate:UpdateDeploymentResponse' :: Maybe ISO8601
createdDate = Maybe ISO8601
a} :: UpdateDeploymentResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateDeploymentResponse_deploymentId :: Lens.Lens' UpdateDeploymentResponse (Prelude.Maybe Prelude.Text)
updateDeploymentResponse_deploymentId :: Lens' UpdateDeploymentResponse (Maybe Text)
updateDeploymentResponse_deploymentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Maybe Text
deploymentId :: Maybe Text
$sel:deploymentId:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Text
deploymentId} -> Maybe Text
deploymentId) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Maybe Text
a -> UpdateDeploymentResponse
s {$sel:deploymentId:UpdateDeploymentResponse' :: Maybe Text
deploymentId = Maybe Text
a} :: UpdateDeploymentResponse)
updateDeploymentResponse_deploymentStatus :: Lens.Lens' UpdateDeploymentResponse (Prelude.Maybe DeploymentStatus)
updateDeploymentResponse_deploymentStatus :: Lens' UpdateDeploymentResponse (Maybe DeploymentStatus)
updateDeploymentResponse_deploymentStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Maybe DeploymentStatus
deploymentStatus :: Maybe DeploymentStatus
$sel:deploymentStatus:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe DeploymentStatus
deploymentStatus} -> Maybe DeploymentStatus
deploymentStatus) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Maybe DeploymentStatus
a -> UpdateDeploymentResponse
s {$sel:deploymentStatus:UpdateDeploymentResponse' :: Maybe DeploymentStatus
deploymentStatus = Maybe DeploymentStatus
a} :: UpdateDeploymentResponse)
updateDeploymentResponse_deploymentStatusMessage :: Lens.Lens' UpdateDeploymentResponse (Prelude.Maybe Prelude.Text)
updateDeploymentResponse_deploymentStatusMessage :: Lens' UpdateDeploymentResponse (Maybe Text)
updateDeploymentResponse_deploymentStatusMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Maybe Text
deploymentStatusMessage :: Maybe Text
$sel:deploymentStatusMessage:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Text
deploymentStatusMessage} -> Maybe Text
deploymentStatusMessage) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Maybe Text
a -> UpdateDeploymentResponse
s {$sel:deploymentStatusMessage:UpdateDeploymentResponse' :: Maybe Text
deploymentStatusMessage = Maybe Text
a} :: UpdateDeploymentResponse)
updateDeploymentResponse_description :: Lens.Lens' UpdateDeploymentResponse (Prelude.Maybe Prelude.Text)
updateDeploymentResponse_description :: Lens' UpdateDeploymentResponse (Maybe Text)
updateDeploymentResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Maybe Text
description :: Maybe Text
$sel:description:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Maybe Text
a -> UpdateDeploymentResponse
s {$sel:description:UpdateDeploymentResponse' :: Maybe Text
description = Maybe Text
a} :: UpdateDeploymentResponse)
updateDeploymentResponse_httpStatus :: Lens.Lens' UpdateDeploymentResponse Prelude.Int
updateDeploymentResponse_httpStatus :: Lens' UpdateDeploymentResponse Int
updateDeploymentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDeploymentResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateDeploymentResponse
s@UpdateDeploymentResponse' {} Int
a -> UpdateDeploymentResponse
s {$sel:httpStatus:UpdateDeploymentResponse' :: Int
httpStatus = Int
a} :: UpdateDeploymentResponse)
instance Prelude.NFData UpdateDeploymentResponse where
rnf :: UpdateDeploymentResponse -> ()
rnf UpdateDeploymentResponse' {Int
Maybe Bool
Maybe Text
Maybe ISO8601
Maybe DeploymentStatus
httpStatus :: Int
description :: Maybe Text
deploymentStatusMessage :: Maybe Text
deploymentStatus :: Maybe DeploymentStatus
deploymentId :: Maybe Text
createdDate :: Maybe ISO8601
autoDeployed :: Maybe Bool
$sel:httpStatus:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Int
$sel:description:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Text
$sel:deploymentStatusMessage:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Text
$sel:deploymentStatus:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe DeploymentStatus
$sel:deploymentId:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Text
$sel:createdDate:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe ISO8601
$sel:autoDeployed:UpdateDeploymentResponse' :: UpdateDeploymentResponse -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
autoDeployed
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
createdDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
deploymentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeploymentStatus
deploymentStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
deploymentStatusMessage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus