{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.ECS.DeregisterContainerInstance
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deregisters an Amazon ECS container instance from the specified cluster.
-- This instance is no longer available to run tasks.
--
-- If you intend to use the container instance for some other purpose after
-- deregistration, we recommend that you stop all of the tasks running on
-- the container instance before deregistration. That prevents any orphaned
-- tasks from consuming resources.
--
-- Deregistering a container instance removes the instance from a cluster,
-- but it doesn\'t terminate the EC2 instance. If you are finished using
-- the instance, be sure to terminate it in the Amazon EC2 console to stop
-- billing.
--
-- If you terminate a running container instance, Amazon ECS automatically
-- deregisters the instance from your cluster (stopped container instances
-- or instances with disconnected agents aren\'t automatically deregistered
-- when terminated).
module Amazonka.ECS.DeregisterContainerInstance
  ( -- * Creating a Request
    DeregisterContainerInstance (..),
    newDeregisterContainerInstance,

    -- * Request Lenses
    deregisterContainerInstance_cluster,
    deregisterContainerInstance_force,
    deregisterContainerInstance_containerInstance,

    -- * Destructuring the Response
    DeregisterContainerInstanceResponse (..),
    newDeregisterContainerInstanceResponse,

    -- * Response Lenses
    deregisterContainerInstanceResponse_containerInstance,
    deregisterContainerInstanceResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ECS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newDeregisterContainerInstance' smart constructor.
data DeregisterContainerInstance = DeregisterContainerInstance'
  { -- | The short name or full Amazon Resource Name (ARN) of the cluster that
    -- hosts the container instance to deregister. If you do not specify a
    -- cluster, the default cluster is assumed.
    DeregisterContainerInstance -> Maybe Text
cluster :: Prelude.Maybe Prelude.Text,
    -- | Forces the container instance to be deregistered. If you have tasks
    -- running on the container instance when you deregister it with the
    -- @force@ option, these tasks remain running until you terminate the
    -- instance or the tasks stop through some other means, but they\'re
    -- orphaned (no longer monitored or accounted for by Amazon ECS). If an
    -- orphaned task on your container instance is part of an Amazon ECS
    -- service, then the service scheduler starts another copy of that task, on
    -- a different container instance if possible.
    --
    -- Any containers in orphaned service tasks that are registered with a
    -- Classic Load Balancer or an Application Load Balancer target group are
    -- deregistered. They begin connection draining according to the settings
    -- on the load balancer or target group.
    DeregisterContainerInstance -> Maybe Bool
force :: Prelude.Maybe Prelude.Bool,
    -- | The container instance ID or full ARN of the container instance to
    -- deregister. For more information about the ARN format, see
    -- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/ecs-account-settings.html#ecs-resource-ids Amazon Resource Name (ARN)>
    -- in the /Amazon ECS Developer Guide/.
    DeregisterContainerInstance -> Text
containerInstance :: Prelude.Text
  }
  deriving (DeregisterContainerInstance -> DeregisterContainerInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterContainerInstance -> DeregisterContainerInstance -> Bool
$c/= :: DeregisterContainerInstance -> DeregisterContainerInstance -> Bool
== :: DeregisterContainerInstance -> DeregisterContainerInstance -> Bool
$c== :: DeregisterContainerInstance -> DeregisterContainerInstance -> Bool
Prelude.Eq, ReadPrec [DeregisterContainerInstance]
ReadPrec DeregisterContainerInstance
Int -> ReadS DeregisterContainerInstance
ReadS [DeregisterContainerInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterContainerInstance]
$creadListPrec :: ReadPrec [DeregisterContainerInstance]
readPrec :: ReadPrec DeregisterContainerInstance
$creadPrec :: ReadPrec DeregisterContainerInstance
readList :: ReadS [DeregisterContainerInstance]
$creadList :: ReadS [DeregisterContainerInstance]
readsPrec :: Int -> ReadS DeregisterContainerInstance
$creadsPrec :: Int -> ReadS DeregisterContainerInstance
Prelude.Read, Int -> DeregisterContainerInstance -> ShowS
[DeregisterContainerInstance] -> ShowS
DeregisterContainerInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterContainerInstance] -> ShowS
$cshowList :: [DeregisterContainerInstance] -> ShowS
show :: DeregisterContainerInstance -> String
$cshow :: DeregisterContainerInstance -> String
showsPrec :: Int -> DeregisterContainerInstance -> ShowS
$cshowsPrec :: Int -> DeregisterContainerInstance -> ShowS
Prelude.Show, forall x.
Rep DeregisterContainerInstance x -> DeregisterContainerInstance
forall x.
DeregisterContainerInstance -> Rep DeregisterContainerInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterContainerInstance x -> DeregisterContainerInstance
$cfrom :: forall x.
DeregisterContainerInstance -> Rep DeregisterContainerInstance x
Prelude.Generic)

-- |
-- Create a value of 'DeregisterContainerInstance' 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:
--
-- 'cluster', 'deregisterContainerInstance_cluster' - The short name or full Amazon Resource Name (ARN) of the cluster that
-- hosts the container instance to deregister. If you do not specify a
-- cluster, the default cluster is assumed.
--
-- 'force', 'deregisterContainerInstance_force' - Forces the container instance to be deregistered. If you have tasks
-- running on the container instance when you deregister it with the
-- @force@ option, these tasks remain running until you terminate the
-- instance or the tasks stop through some other means, but they\'re
-- orphaned (no longer monitored or accounted for by Amazon ECS). If an
-- orphaned task on your container instance is part of an Amazon ECS
-- service, then the service scheduler starts another copy of that task, on
-- a different container instance if possible.
--
-- Any containers in orphaned service tasks that are registered with a
-- Classic Load Balancer or an Application Load Balancer target group are
-- deregistered. They begin connection draining according to the settings
-- on the load balancer or target group.
--
-- 'containerInstance', 'deregisterContainerInstance_containerInstance' - The container instance ID or full ARN of the container instance to
-- deregister. For more information about the ARN format, see
-- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/ecs-account-settings.html#ecs-resource-ids Amazon Resource Name (ARN)>
-- in the /Amazon ECS Developer Guide/.
newDeregisterContainerInstance ::
  -- | 'containerInstance'
  Prelude.Text ->
  DeregisterContainerInstance
newDeregisterContainerInstance :: Text -> DeregisterContainerInstance
newDeregisterContainerInstance Text
pContainerInstance_ =
  DeregisterContainerInstance'
    { $sel:cluster:DeregisterContainerInstance' :: Maybe Text
cluster =
        forall a. Maybe a
Prelude.Nothing,
      $sel:force:DeregisterContainerInstance' :: Maybe Bool
force = forall a. Maybe a
Prelude.Nothing,
      $sel:containerInstance:DeregisterContainerInstance' :: Text
containerInstance = Text
pContainerInstance_
    }

-- | The short name or full Amazon Resource Name (ARN) of the cluster that
-- hosts the container instance to deregister. If you do not specify a
-- cluster, the default cluster is assumed.
deregisterContainerInstance_cluster :: Lens.Lens' DeregisterContainerInstance (Prelude.Maybe Prelude.Text)
deregisterContainerInstance_cluster :: Lens' DeregisterContainerInstance (Maybe Text)
deregisterContainerInstance_cluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterContainerInstance' {Maybe Text
cluster :: Maybe Text
$sel:cluster:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Text
cluster} -> Maybe Text
cluster) (\s :: DeregisterContainerInstance
s@DeregisterContainerInstance' {} Maybe Text
a -> DeregisterContainerInstance
s {$sel:cluster:DeregisterContainerInstance' :: Maybe Text
cluster = Maybe Text
a} :: DeregisterContainerInstance)

-- | Forces the container instance to be deregistered. If you have tasks
-- running on the container instance when you deregister it with the
-- @force@ option, these tasks remain running until you terminate the
-- instance or the tasks stop through some other means, but they\'re
-- orphaned (no longer monitored or accounted for by Amazon ECS). If an
-- orphaned task on your container instance is part of an Amazon ECS
-- service, then the service scheduler starts another copy of that task, on
-- a different container instance if possible.
--
-- Any containers in orphaned service tasks that are registered with a
-- Classic Load Balancer or an Application Load Balancer target group are
-- deregistered. They begin connection draining according to the settings
-- on the load balancer or target group.
deregisterContainerInstance_force :: Lens.Lens' DeregisterContainerInstance (Prelude.Maybe Prelude.Bool)
deregisterContainerInstance_force :: Lens' DeregisterContainerInstance (Maybe Bool)
deregisterContainerInstance_force = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterContainerInstance' {Maybe Bool
force :: Maybe Bool
$sel:force:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Bool
force} -> Maybe Bool
force) (\s :: DeregisterContainerInstance
s@DeregisterContainerInstance' {} Maybe Bool
a -> DeregisterContainerInstance
s {$sel:force:DeregisterContainerInstance' :: Maybe Bool
force = Maybe Bool
a} :: DeregisterContainerInstance)

-- | The container instance ID or full ARN of the container instance to
-- deregister. For more information about the ARN format, see
-- <https://docs.aws.amazon.com/AmazonECS/latest/developerguide/ecs-account-settings.html#ecs-resource-ids Amazon Resource Name (ARN)>
-- in the /Amazon ECS Developer Guide/.
deregisterContainerInstance_containerInstance :: Lens.Lens' DeregisterContainerInstance Prelude.Text
deregisterContainerInstance_containerInstance :: Lens' DeregisterContainerInstance Text
deregisterContainerInstance_containerInstance = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterContainerInstance' {Text
containerInstance :: Text
$sel:containerInstance:DeregisterContainerInstance' :: DeregisterContainerInstance -> Text
containerInstance} -> Text
containerInstance) (\s :: DeregisterContainerInstance
s@DeregisterContainerInstance' {} Text
a -> DeregisterContainerInstance
s {$sel:containerInstance:DeregisterContainerInstance' :: Text
containerInstance = Text
a} :: DeregisterContainerInstance)

instance Core.AWSRequest DeregisterContainerInstance where
  type
    AWSResponse DeregisterContainerInstance =
      DeregisterContainerInstanceResponse
  request :: (Service -> Service)
-> DeregisterContainerInstance
-> Request DeregisterContainerInstance
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeregisterContainerInstance
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeregisterContainerInstance)))
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 ContainerInstance
-> Int -> DeregisterContainerInstanceResponse
DeregisterContainerInstanceResponse'
            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
"containerInstance")
            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 DeregisterContainerInstance where
  hashWithSalt :: Int -> DeregisterContainerInstance -> Int
hashWithSalt Int
_salt DeregisterContainerInstance' {Maybe Bool
Maybe Text
Text
containerInstance :: Text
force :: Maybe Bool
cluster :: Maybe Text
$sel:containerInstance:DeregisterContainerInstance' :: DeregisterContainerInstance -> Text
$sel:force:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Bool
$sel:cluster:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cluster
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
force
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
containerInstance

instance Prelude.NFData DeregisterContainerInstance where
  rnf :: DeregisterContainerInstance -> ()
rnf DeregisterContainerInstance' {Maybe Bool
Maybe Text
Text
containerInstance :: Text
force :: Maybe Bool
cluster :: Maybe Text
$sel:containerInstance:DeregisterContainerInstance' :: DeregisterContainerInstance -> Text
$sel:force:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Bool
$sel:cluster:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cluster
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
force
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
containerInstance

instance Data.ToHeaders DeregisterContainerInstance where
  toHeaders :: DeregisterContainerInstance -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AmazonEC2ContainerServiceV20141113.DeregisterContainerInstance" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON DeregisterContainerInstance where
  toJSON :: DeregisterContainerInstance -> Value
toJSON DeregisterContainerInstance' {Maybe Bool
Maybe Text
Text
containerInstance :: Text
force :: Maybe Bool
cluster :: Maybe Text
$sel:containerInstance:DeregisterContainerInstance' :: DeregisterContainerInstance -> Text
$sel:force:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Bool
$sel:cluster:DeregisterContainerInstance' :: DeregisterContainerInstance -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"cluster" 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
cluster,
            (Key
"force" 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 Bool
force,
            forall a. a -> Maybe a
Prelude.Just
              (Key
"containerInstance" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
containerInstance)
          ]
      )

instance Data.ToPath DeregisterContainerInstance where
  toPath :: DeregisterContainerInstance -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery DeregisterContainerInstance where
  toQuery :: DeregisterContainerInstance -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newDeregisterContainerInstanceResponse' smart constructor.
data DeregisterContainerInstanceResponse = DeregisterContainerInstanceResponse'
  { -- | The container instance that was deregistered.
    DeregisterContainerInstanceResponse -> Maybe ContainerInstance
containerInstance :: Prelude.Maybe ContainerInstance,
    -- | The response's http status code.
    DeregisterContainerInstanceResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DeregisterContainerInstanceResponse
-> DeregisterContainerInstanceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterContainerInstanceResponse
-> DeregisterContainerInstanceResponse -> Bool
$c/= :: DeregisterContainerInstanceResponse
-> DeregisterContainerInstanceResponse -> Bool
== :: DeregisterContainerInstanceResponse
-> DeregisterContainerInstanceResponse -> Bool
$c== :: DeregisterContainerInstanceResponse
-> DeregisterContainerInstanceResponse -> Bool
Prelude.Eq, ReadPrec [DeregisterContainerInstanceResponse]
ReadPrec DeregisterContainerInstanceResponse
Int -> ReadS DeregisterContainerInstanceResponse
ReadS [DeregisterContainerInstanceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterContainerInstanceResponse]
$creadListPrec :: ReadPrec [DeregisterContainerInstanceResponse]
readPrec :: ReadPrec DeregisterContainerInstanceResponse
$creadPrec :: ReadPrec DeregisterContainerInstanceResponse
readList :: ReadS [DeregisterContainerInstanceResponse]
$creadList :: ReadS [DeregisterContainerInstanceResponse]
readsPrec :: Int -> ReadS DeregisterContainerInstanceResponse
$creadsPrec :: Int -> ReadS DeregisterContainerInstanceResponse
Prelude.Read, Int -> DeregisterContainerInstanceResponse -> ShowS
[DeregisterContainerInstanceResponse] -> ShowS
DeregisterContainerInstanceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterContainerInstanceResponse] -> ShowS
$cshowList :: [DeregisterContainerInstanceResponse] -> ShowS
show :: DeregisterContainerInstanceResponse -> String
$cshow :: DeregisterContainerInstanceResponse -> String
showsPrec :: Int -> DeregisterContainerInstanceResponse -> ShowS
$cshowsPrec :: Int -> DeregisterContainerInstanceResponse -> ShowS
Prelude.Show, forall x.
Rep DeregisterContainerInstanceResponse x
-> DeregisterContainerInstanceResponse
forall x.
DeregisterContainerInstanceResponse
-> Rep DeregisterContainerInstanceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterContainerInstanceResponse x
-> DeregisterContainerInstanceResponse
$cfrom :: forall x.
DeregisterContainerInstanceResponse
-> Rep DeregisterContainerInstanceResponse x
Prelude.Generic)

-- |
-- Create a value of 'DeregisterContainerInstanceResponse' 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:
--
-- 'containerInstance', 'deregisterContainerInstanceResponse_containerInstance' - The container instance that was deregistered.
--
-- 'httpStatus', 'deregisterContainerInstanceResponse_httpStatus' - The response's http status code.
newDeregisterContainerInstanceResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DeregisterContainerInstanceResponse
newDeregisterContainerInstanceResponse :: Int -> DeregisterContainerInstanceResponse
newDeregisterContainerInstanceResponse Int
pHttpStatus_ =
  DeregisterContainerInstanceResponse'
    { $sel:containerInstance:DeregisterContainerInstanceResponse' :: Maybe ContainerInstance
containerInstance =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:DeregisterContainerInstanceResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The container instance that was deregistered.
deregisterContainerInstanceResponse_containerInstance :: Lens.Lens' DeregisterContainerInstanceResponse (Prelude.Maybe ContainerInstance)
deregisterContainerInstanceResponse_containerInstance :: Lens' DeregisterContainerInstanceResponse (Maybe ContainerInstance)
deregisterContainerInstanceResponse_containerInstance = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterContainerInstanceResponse' {Maybe ContainerInstance
containerInstance :: Maybe ContainerInstance
$sel:containerInstance:DeregisterContainerInstanceResponse' :: DeregisterContainerInstanceResponse -> Maybe ContainerInstance
containerInstance} -> Maybe ContainerInstance
containerInstance) (\s :: DeregisterContainerInstanceResponse
s@DeregisterContainerInstanceResponse' {} Maybe ContainerInstance
a -> DeregisterContainerInstanceResponse
s {$sel:containerInstance:DeregisterContainerInstanceResponse' :: Maybe ContainerInstance
containerInstance = Maybe ContainerInstance
a} :: DeregisterContainerInstanceResponse)

-- | The response's http status code.
deregisterContainerInstanceResponse_httpStatus :: Lens.Lens' DeregisterContainerInstanceResponse Prelude.Int
deregisterContainerInstanceResponse_httpStatus :: Lens' DeregisterContainerInstanceResponse Int
deregisterContainerInstanceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterContainerInstanceResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeregisterContainerInstanceResponse' :: DeregisterContainerInstanceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeregisterContainerInstanceResponse
s@DeregisterContainerInstanceResponse' {} Int
a -> DeregisterContainerInstanceResponse
s {$sel:httpStatus:DeregisterContainerInstanceResponse' :: Int
httpStatus = Int
a} :: DeregisterContainerInstanceResponse)

instance
  Prelude.NFData
    DeregisterContainerInstanceResponse
  where
  rnf :: DeregisterContainerInstanceResponse -> ()
rnf DeregisterContainerInstanceResponse' {Int
Maybe ContainerInstance
httpStatus :: Int
containerInstance :: Maybe ContainerInstance
$sel:httpStatus:DeregisterContainerInstanceResponse' :: DeregisterContainerInstanceResponse -> Int
$sel:containerInstance:DeregisterContainerInstanceResponse' :: DeregisterContainerInstanceResponse -> Maybe ContainerInstance
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe ContainerInstance
containerInstance
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus