{-# 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.EC2.CancelCapacityReservationFleets
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Cancels one or more Capacity Reservation Fleets. When you cancel a
-- Capacity Reservation Fleet, the following happens:
--
-- -   The Capacity Reservation Fleet\'s status changes to @cancelled@.
--
-- -   The individual Capacity Reservations in the Fleet are cancelled.
--     Instances running in the Capacity Reservations at the time of
--     cancelling the Fleet continue to run in shared capacity.
--
-- -   The Fleet stops creating new Capacity Reservations.
module Amazonka.EC2.CancelCapacityReservationFleets
  ( -- * Creating a Request
    CancelCapacityReservationFleets (..),
    newCancelCapacityReservationFleets,

    -- * Request Lenses
    cancelCapacityReservationFleets_dryRun,
    cancelCapacityReservationFleets_capacityReservationFleetIds,

    -- * Destructuring the Response
    CancelCapacityReservationFleetsResponse (..),
    newCancelCapacityReservationFleetsResponse,

    -- * Response Lenses
    cancelCapacityReservationFleetsResponse_failedFleetCancellations,
    cancelCapacityReservationFleetsResponse_successfulFleetCancellations,
    cancelCapacityReservationFleetsResponse_httpStatus,
  )
where

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

-- | /See:/ 'newCancelCapacityReservationFleets' smart constructor.
data CancelCapacityReservationFleets = CancelCapacityReservationFleets'
  { -- | Checks whether you have the required permissions for the action, without
    -- actually making the request, and provides an error response. If you have
    -- the required permissions, the error response is @DryRunOperation@.
    -- Otherwise, it is @UnauthorizedOperation@.
    CancelCapacityReservationFleets -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
    -- | The IDs of the Capacity Reservation Fleets to cancel.
    CancelCapacityReservationFleets -> [Text]
capacityReservationFleetIds :: [Prelude.Text]
  }
  deriving (CancelCapacityReservationFleets
-> CancelCapacityReservationFleets -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelCapacityReservationFleets
-> CancelCapacityReservationFleets -> Bool
$c/= :: CancelCapacityReservationFleets
-> CancelCapacityReservationFleets -> Bool
== :: CancelCapacityReservationFleets
-> CancelCapacityReservationFleets -> Bool
$c== :: CancelCapacityReservationFleets
-> CancelCapacityReservationFleets -> Bool
Prelude.Eq, ReadPrec [CancelCapacityReservationFleets]
ReadPrec CancelCapacityReservationFleets
Int -> ReadS CancelCapacityReservationFleets
ReadS [CancelCapacityReservationFleets]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelCapacityReservationFleets]
$creadListPrec :: ReadPrec [CancelCapacityReservationFleets]
readPrec :: ReadPrec CancelCapacityReservationFleets
$creadPrec :: ReadPrec CancelCapacityReservationFleets
readList :: ReadS [CancelCapacityReservationFleets]
$creadList :: ReadS [CancelCapacityReservationFleets]
readsPrec :: Int -> ReadS CancelCapacityReservationFleets
$creadsPrec :: Int -> ReadS CancelCapacityReservationFleets
Prelude.Read, Int -> CancelCapacityReservationFleets -> ShowS
[CancelCapacityReservationFleets] -> ShowS
CancelCapacityReservationFleets -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelCapacityReservationFleets] -> ShowS
$cshowList :: [CancelCapacityReservationFleets] -> ShowS
show :: CancelCapacityReservationFleets -> String
$cshow :: CancelCapacityReservationFleets -> String
showsPrec :: Int -> CancelCapacityReservationFleets -> ShowS
$cshowsPrec :: Int -> CancelCapacityReservationFleets -> ShowS
Prelude.Show, forall x.
Rep CancelCapacityReservationFleets x
-> CancelCapacityReservationFleets
forall x.
CancelCapacityReservationFleets
-> Rep CancelCapacityReservationFleets x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CancelCapacityReservationFleets x
-> CancelCapacityReservationFleets
$cfrom :: forall x.
CancelCapacityReservationFleets
-> Rep CancelCapacityReservationFleets x
Prelude.Generic)

-- |
-- Create a value of 'CancelCapacityReservationFleets' 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:
--
-- 'dryRun', 'cancelCapacityReservationFleets_dryRun' - Checks whether you have the required permissions for the action, without
-- actually making the request, and provides an error response. If you have
-- the required permissions, the error response is @DryRunOperation@.
-- Otherwise, it is @UnauthorizedOperation@.
--
-- 'capacityReservationFleetIds', 'cancelCapacityReservationFleets_capacityReservationFleetIds' - The IDs of the Capacity Reservation Fleets to cancel.
newCancelCapacityReservationFleets ::
  CancelCapacityReservationFleets
newCancelCapacityReservationFleets :: CancelCapacityReservationFleets
newCancelCapacityReservationFleets =
  CancelCapacityReservationFleets'
    { $sel:dryRun:CancelCapacityReservationFleets' :: Maybe Bool
dryRun =
        forall a. Maybe a
Prelude.Nothing,
      $sel:capacityReservationFleetIds:CancelCapacityReservationFleets' :: [Text]
capacityReservationFleetIds =
        forall a. Monoid a => a
Prelude.mempty
    }

-- | Checks whether you have the required permissions for the action, without
-- actually making the request, and provides an error response. If you have
-- the required permissions, the error response is @DryRunOperation@.
-- Otherwise, it is @UnauthorizedOperation@.
cancelCapacityReservationFleets_dryRun :: Lens.Lens' CancelCapacityReservationFleets (Prelude.Maybe Prelude.Bool)
cancelCapacityReservationFleets_dryRun :: Lens' CancelCapacityReservationFleets (Maybe Bool)
cancelCapacityReservationFleets_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelCapacityReservationFleets' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: CancelCapacityReservationFleets
s@CancelCapacityReservationFleets' {} Maybe Bool
a -> CancelCapacityReservationFleets
s {$sel:dryRun:CancelCapacityReservationFleets' :: Maybe Bool
dryRun = Maybe Bool
a} :: CancelCapacityReservationFleets)

-- | The IDs of the Capacity Reservation Fleets to cancel.
cancelCapacityReservationFleets_capacityReservationFleetIds :: Lens.Lens' CancelCapacityReservationFleets [Prelude.Text]
cancelCapacityReservationFleets_capacityReservationFleetIds :: Lens' CancelCapacityReservationFleets [Text]
cancelCapacityReservationFleets_capacityReservationFleetIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelCapacityReservationFleets' {[Text]
capacityReservationFleetIds :: [Text]
$sel:capacityReservationFleetIds:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> [Text]
capacityReservationFleetIds} -> [Text]
capacityReservationFleetIds) (\s :: CancelCapacityReservationFleets
s@CancelCapacityReservationFleets' {} [Text]
a -> CancelCapacityReservationFleets
s {$sel:capacityReservationFleetIds:CancelCapacityReservationFleets' :: [Text]
capacityReservationFleetIds = [Text]
a} :: CancelCapacityReservationFleets) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance
  Core.AWSRequest
    CancelCapacityReservationFleets
  where
  type
    AWSResponse CancelCapacityReservationFleets =
      CancelCapacityReservationFleetsResponse
  request :: (Service -> Service)
-> CancelCapacityReservationFleets
-> Request CancelCapacityReservationFleets
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CancelCapacityReservationFleets
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse (AWSResponse CancelCapacityReservationFleets)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe [FailedCapacityReservationFleetCancellationResult]
-> Maybe [CapacityReservationFleetCancellationState]
-> Int
-> CancelCapacityReservationFleetsResponse
CancelCapacityReservationFleetsResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
                            forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"failedFleetCancellationSet"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                            forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"item")
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
                            forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"successfulFleetCancellationSet"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                            forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"item")
                        )
            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
    CancelCapacityReservationFleets
  where
  hashWithSalt :: Int -> CancelCapacityReservationFleets -> Int
hashWithSalt
    Int
_salt
    CancelCapacityReservationFleets' {[Text]
Maybe Bool
capacityReservationFleetIds :: [Text]
dryRun :: Maybe Bool
$sel:capacityReservationFleetIds:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> [Text]
$sel:dryRun:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> Maybe Bool
..} =
      Int
_salt
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
capacityReservationFleetIds

instance
  Prelude.NFData
    CancelCapacityReservationFleets
  where
  rnf :: CancelCapacityReservationFleets -> ()
rnf CancelCapacityReservationFleets' {[Text]
Maybe Bool
capacityReservationFleetIds :: [Text]
dryRun :: Maybe Bool
$sel:capacityReservationFleetIds:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> [Text]
$sel:dryRun:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> Maybe Bool
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
capacityReservationFleetIds

instance
  Data.ToHeaders
    CancelCapacityReservationFleets
  where
  toHeaders :: CancelCapacityReservationFleets -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

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

instance Data.ToQuery CancelCapacityReservationFleets where
  toQuery :: CancelCapacityReservationFleets -> QueryString
toQuery CancelCapacityReservationFleets' {[Text]
Maybe Bool
capacityReservationFleetIds :: [Text]
dryRun :: Maybe Bool
$sel:capacityReservationFleetIds:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> [Text]
$sel:dryRun:CancelCapacityReservationFleets' :: CancelCapacityReservationFleets -> Maybe Bool
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"CancelCapacityReservationFleets" ::
                      Prelude.ByteString
                  ),
        ByteString
"Version"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
        ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
        forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList
          ByteString
"CapacityReservationFleetId"
          [Text]
capacityReservationFleetIds
      ]

-- | /See:/ 'newCancelCapacityReservationFleetsResponse' smart constructor.
data CancelCapacityReservationFleetsResponse = CancelCapacityReservationFleetsResponse'
  { -- | Information about the Capacity Reservation Fleets that could not be
    -- cancelled.
    CancelCapacityReservationFleetsResponse
-> Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations :: Prelude.Maybe [FailedCapacityReservationFleetCancellationResult],
    -- | Information about the Capacity Reservation Fleets that were successfully
    -- cancelled.
    CancelCapacityReservationFleetsResponse
-> Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations :: Prelude.Maybe [CapacityReservationFleetCancellationState],
    -- | The response's http status code.
    CancelCapacityReservationFleetsResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CancelCapacityReservationFleetsResponse
-> CancelCapacityReservationFleetsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelCapacityReservationFleetsResponse
-> CancelCapacityReservationFleetsResponse -> Bool
$c/= :: CancelCapacityReservationFleetsResponse
-> CancelCapacityReservationFleetsResponse -> Bool
== :: CancelCapacityReservationFleetsResponse
-> CancelCapacityReservationFleetsResponse -> Bool
$c== :: CancelCapacityReservationFleetsResponse
-> CancelCapacityReservationFleetsResponse -> Bool
Prelude.Eq, ReadPrec [CancelCapacityReservationFleetsResponse]
ReadPrec CancelCapacityReservationFleetsResponse
Int -> ReadS CancelCapacityReservationFleetsResponse
ReadS [CancelCapacityReservationFleetsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelCapacityReservationFleetsResponse]
$creadListPrec :: ReadPrec [CancelCapacityReservationFleetsResponse]
readPrec :: ReadPrec CancelCapacityReservationFleetsResponse
$creadPrec :: ReadPrec CancelCapacityReservationFleetsResponse
readList :: ReadS [CancelCapacityReservationFleetsResponse]
$creadList :: ReadS [CancelCapacityReservationFleetsResponse]
readsPrec :: Int -> ReadS CancelCapacityReservationFleetsResponse
$creadsPrec :: Int -> ReadS CancelCapacityReservationFleetsResponse
Prelude.Read, Int -> CancelCapacityReservationFleetsResponse -> ShowS
[CancelCapacityReservationFleetsResponse] -> ShowS
CancelCapacityReservationFleetsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelCapacityReservationFleetsResponse] -> ShowS
$cshowList :: [CancelCapacityReservationFleetsResponse] -> ShowS
show :: CancelCapacityReservationFleetsResponse -> String
$cshow :: CancelCapacityReservationFleetsResponse -> String
showsPrec :: Int -> CancelCapacityReservationFleetsResponse -> ShowS
$cshowsPrec :: Int -> CancelCapacityReservationFleetsResponse -> ShowS
Prelude.Show, forall x.
Rep CancelCapacityReservationFleetsResponse x
-> CancelCapacityReservationFleetsResponse
forall x.
CancelCapacityReservationFleetsResponse
-> Rep CancelCapacityReservationFleetsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CancelCapacityReservationFleetsResponse x
-> CancelCapacityReservationFleetsResponse
$cfrom :: forall x.
CancelCapacityReservationFleetsResponse
-> Rep CancelCapacityReservationFleetsResponse x
Prelude.Generic)

-- |
-- Create a value of 'CancelCapacityReservationFleetsResponse' 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:
--
-- 'failedFleetCancellations', 'cancelCapacityReservationFleetsResponse_failedFleetCancellations' - Information about the Capacity Reservation Fleets that could not be
-- cancelled.
--
-- 'successfulFleetCancellations', 'cancelCapacityReservationFleetsResponse_successfulFleetCancellations' - Information about the Capacity Reservation Fleets that were successfully
-- cancelled.
--
-- 'httpStatus', 'cancelCapacityReservationFleetsResponse_httpStatus' - The response's http status code.
newCancelCapacityReservationFleetsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CancelCapacityReservationFleetsResponse
newCancelCapacityReservationFleetsResponse :: Int -> CancelCapacityReservationFleetsResponse
newCancelCapacityReservationFleetsResponse
  Int
pHttpStatus_ =
    CancelCapacityReservationFleetsResponse'
      { $sel:failedFleetCancellations:CancelCapacityReservationFleetsResponse' :: Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations =
          forall a. Maybe a
Prelude.Nothing,
        $sel:successfulFleetCancellations:CancelCapacityReservationFleetsResponse' :: Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations =
          forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:CancelCapacityReservationFleetsResponse' :: Int
httpStatus = Int
pHttpStatus_
      }

-- | Information about the Capacity Reservation Fleets that could not be
-- cancelled.
cancelCapacityReservationFleetsResponse_failedFleetCancellations :: Lens.Lens' CancelCapacityReservationFleetsResponse (Prelude.Maybe [FailedCapacityReservationFleetCancellationResult])
cancelCapacityReservationFleetsResponse_failedFleetCancellations :: Lens'
  CancelCapacityReservationFleetsResponse
  (Maybe [FailedCapacityReservationFleetCancellationResult])
cancelCapacityReservationFleetsResponse_failedFleetCancellations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelCapacityReservationFleetsResponse' {Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations :: Maybe [FailedCapacityReservationFleetCancellationResult]
$sel:failedFleetCancellations:CancelCapacityReservationFleetsResponse' :: CancelCapacityReservationFleetsResponse
-> Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations} -> Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations) (\s :: CancelCapacityReservationFleetsResponse
s@CancelCapacityReservationFleetsResponse' {} Maybe [FailedCapacityReservationFleetCancellationResult]
a -> CancelCapacityReservationFleetsResponse
s {$sel:failedFleetCancellations:CancelCapacityReservationFleetsResponse' :: Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations = Maybe [FailedCapacityReservationFleetCancellationResult]
a} :: CancelCapacityReservationFleetsResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Information about the Capacity Reservation Fleets that were successfully
-- cancelled.
cancelCapacityReservationFleetsResponse_successfulFleetCancellations :: Lens.Lens' CancelCapacityReservationFleetsResponse (Prelude.Maybe [CapacityReservationFleetCancellationState])
cancelCapacityReservationFleetsResponse_successfulFleetCancellations :: Lens'
  CancelCapacityReservationFleetsResponse
  (Maybe [CapacityReservationFleetCancellationState])
cancelCapacityReservationFleetsResponse_successfulFleetCancellations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelCapacityReservationFleetsResponse' {Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations :: Maybe [CapacityReservationFleetCancellationState]
$sel:successfulFleetCancellations:CancelCapacityReservationFleetsResponse' :: CancelCapacityReservationFleetsResponse
-> Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations} -> Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations) (\s :: CancelCapacityReservationFleetsResponse
s@CancelCapacityReservationFleetsResponse' {} Maybe [CapacityReservationFleetCancellationState]
a -> CancelCapacityReservationFleetsResponse
s {$sel:successfulFleetCancellations:CancelCapacityReservationFleetsResponse' :: Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations = Maybe [CapacityReservationFleetCancellationState]
a} :: CancelCapacityReservationFleetsResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

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

instance
  Prelude.NFData
    CancelCapacityReservationFleetsResponse
  where
  rnf :: CancelCapacityReservationFleetsResponse -> ()
rnf CancelCapacityReservationFleetsResponse' {Int
Maybe [CapacityReservationFleetCancellationState]
Maybe [FailedCapacityReservationFleetCancellationResult]
httpStatus :: Int
successfulFleetCancellations :: Maybe [CapacityReservationFleetCancellationState]
failedFleetCancellations :: Maybe [FailedCapacityReservationFleetCancellationResult]
$sel:httpStatus:CancelCapacityReservationFleetsResponse' :: CancelCapacityReservationFleetsResponse -> Int
$sel:successfulFleetCancellations:CancelCapacityReservationFleetsResponse' :: CancelCapacityReservationFleetsResponse
-> Maybe [CapacityReservationFleetCancellationState]
$sel:failedFleetCancellations:CancelCapacityReservationFleetsResponse' :: CancelCapacityReservationFleetsResponse
-> Maybe [FailedCapacityReservationFleetCancellationResult]
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe [FailedCapacityReservationFleetCancellationResult]
failedFleetCancellations
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [CapacityReservationFleetCancellationState]
successfulFleetCancellations
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus