{-# 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.RequestSpotFleet
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a Spot Fleet request.
--
-- The Spot Fleet request specifies the total target capacity and the
-- On-Demand target capacity. Amazon EC2 calculates the difference between
-- the total capacity and On-Demand capacity, and launches the difference
-- as Spot capacity.
--
-- You can submit a single request that includes multiple launch
-- specifications that vary by instance type, AMI, Availability Zone, or
-- subnet.
--
-- By default, the Spot Fleet requests Spot Instances in the Spot Instance
-- pool where the price per unit is the lowest. Each launch specification
-- can include its own instance weighting that reflects the value of the
-- instance type to your application workload.
--
-- Alternatively, you can specify that the Spot Fleet distribute the target
-- capacity across the Spot pools included in its launch specifications. By
-- ensuring that the Spot Instances in your Spot Fleet are in different
-- Spot pools, you can improve the availability of your fleet.
--
-- You can specify tags for the Spot Fleet request and instances launched
-- by the fleet. You cannot tag other resource types in a Spot Fleet
-- request because only the @spot-fleet-request@ and @instance@ resource
-- types are supported.
--
-- For more information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-fleet-requests.html Spot Fleet requests>
-- in the /Amazon EC2 User Guide/.
--
-- We strongly discourage using the RequestSpotFleet API because it is a
-- legacy API with no planned investment. For options for requesting Spot
-- Instances, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-best-practices.html#which-spot-request-method-to-use Which is the best Spot request method to use?>
-- in the /Amazon EC2 User Guide/.
module Amazonka.EC2.RequestSpotFleet
  ( -- * Creating a Request
    RequestSpotFleet (..),
    newRequestSpotFleet,

    -- * Request Lenses
    requestSpotFleet_dryRun,
    requestSpotFleet_spotFleetRequestConfig,

    -- * Destructuring the Response
    RequestSpotFleetResponse (..),
    newRequestSpotFleetResponse,

    -- * Response Lenses
    requestSpotFleetResponse_spotFleetRequestId,
    requestSpotFleetResponse_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

-- | Contains the parameters for RequestSpotFleet.
--
-- /See:/ 'newRequestSpotFleet' smart constructor.
data RequestSpotFleet = RequestSpotFleet'
  { -- | 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@.
    RequestSpotFleet -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
    -- | The configuration for the Spot Fleet request.
    RequestSpotFleet -> SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
  }
  deriving (RequestSpotFleet -> RequestSpotFleet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestSpotFleet -> RequestSpotFleet -> Bool
$c/= :: RequestSpotFleet -> RequestSpotFleet -> Bool
== :: RequestSpotFleet -> RequestSpotFleet -> Bool
$c== :: RequestSpotFleet -> RequestSpotFleet -> Bool
Prelude.Eq, ReadPrec [RequestSpotFleet]
ReadPrec RequestSpotFleet
Int -> ReadS RequestSpotFleet
ReadS [RequestSpotFleet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RequestSpotFleet]
$creadListPrec :: ReadPrec [RequestSpotFleet]
readPrec :: ReadPrec RequestSpotFleet
$creadPrec :: ReadPrec RequestSpotFleet
readList :: ReadS [RequestSpotFleet]
$creadList :: ReadS [RequestSpotFleet]
readsPrec :: Int -> ReadS RequestSpotFleet
$creadsPrec :: Int -> ReadS RequestSpotFleet
Prelude.Read, Int -> RequestSpotFleet -> ShowS
[RequestSpotFleet] -> ShowS
RequestSpotFleet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequestSpotFleet] -> ShowS
$cshowList :: [RequestSpotFleet] -> ShowS
show :: RequestSpotFleet -> String
$cshow :: RequestSpotFleet -> String
showsPrec :: Int -> RequestSpotFleet -> ShowS
$cshowsPrec :: Int -> RequestSpotFleet -> ShowS
Prelude.Show, forall x. Rep RequestSpotFleet x -> RequestSpotFleet
forall x. RequestSpotFleet -> Rep RequestSpotFleet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RequestSpotFleet x -> RequestSpotFleet
$cfrom :: forall x. RequestSpotFleet -> Rep RequestSpotFleet x
Prelude.Generic)

-- |
-- Create a value of 'RequestSpotFleet' 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', 'requestSpotFleet_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@.
--
-- 'spotFleetRequestConfig', 'requestSpotFleet_spotFleetRequestConfig' - The configuration for the Spot Fleet request.
newRequestSpotFleet ::
  -- | 'spotFleetRequestConfig'
  SpotFleetRequestConfigData ->
  RequestSpotFleet
newRequestSpotFleet :: SpotFleetRequestConfigData -> RequestSpotFleet
newRequestSpotFleet SpotFleetRequestConfigData
pSpotFleetRequestConfig_ =
  RequestSpotFleet'
    { $sel:dryRun:RequestSpotFleet' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
      $sel:spotFleetRequestConfig:RequestSpotFleet' :: SpotFleetRequestConfigData
spotFleetRequestConfig = SpotFleetRequestConfigData
pSpotFleetRequestConfig_
    }

-- | 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@.
requestSpotFleet_dryRun :: Lens.Lens' RequestSpotFleet (Prelude.Maybe Prelude.Bool)
requestSpotFleet_dryRun :: Lens' RequestSpotFleet (Maybe Bool)
requestSpotFleet_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleet' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: RequestSpotFleet
s@RequestSpotFleet' {} Maybe Bool
a -> RequestSpotFleet
s {$sel:dryRun:RequestSpotFleet' :: Maybe Bool
dryRun = Maybe Bool
a} :: RequestSpotFleet)

-- | The configuration for the Spot Fleet request.
requestSpotFleet_spotFleetRequestConfig :: Lens.Lens' RequestSpotFleet SpotFleetRequestConfigData
requestSpotFleet_spotFleetRequestConfig :: Lens' RequestSpotFleet SpotFleetRequestConfigData
requestSpotFleet_spotFleetRequestConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleet' {SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
spotFleetRequestConfig} -> SpotFleetRequestConfigData
spotFleetRequestConfig) (\s :: RequestSpotFleet
s@RequestSpotFleet' {} SpotFleetRequestConfigData
a -> RequestSpotFleet
s {$sel:spotFleetRequestConfig:RequestSpotFleet' :: SpotFleetRequestConfigData
spotFleetRequestConfig = SpotFleetRequestConfigData
a} :: RequestSpotFleet)

instance Core.AWSRequest RequestSpotFleet where
  type
    AWSResponse RequestSpotFleet =
      RequestSpotFleetResponse
  request :: (Service -> Service)
-> RequestSpotFleet -> Request RequestSpotFleet
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 RequestSpotFleet
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RequestSpotFleet)))
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 Text -> Int -> RequestSpotFleetResponse
RequestSpotFleetResponse'
            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
"spotFleetRequestId")
            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 RequestSpotFleet where
  hashWithSalt :: Int -> RequestSpotFleet -> Int
hashWithSalt Int
_salt RequestSpotFleet' {Maybe Bool
SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
dryRun :: Maybe Bool
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> 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` SpotFleetRequestConfigData
spotFleetRequestConfig

instance Prelude.NFData RequestSpotFleet where
  rnf :: RequestSpotFleet -> ()
rnf RequestSpotFleet' {Maybe Bool
SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
dryRun :: Maybe Bool
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> 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 SpotFleetRequestConfigData
spotFleetRequestConfig

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

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

instance Data.ToQuery RequestSpotFleet where
  toQuery :: RequestSpotFleet -> QueryString
toQuery RequestSpotFleet' {Maybe Bool
SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
dryRun :: Maybe Bool
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> Maybe Bool
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"RequestSpotFleet" :: 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,
        ByteString
"SpotFleetRequestConfig"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: SpotFleetRequestConfigData
spotFleetRequestConfig
      ]

-- | Contains the output of RequestSpotFleet.
--
-- /See:/ 'newRequestSpotFleetResponse' smart constructor.
data RequestSpotFleetResponse = RequestSpotFleetResponse'
  { -- | The ID of the Spot Fleet request.
    RequestSpotFleetResponse -> Maybe Text
spotFleetRequestId :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    RequestSpotFleetResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
$c/= :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
== :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
$c== :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
Prelude.Eq, ReadPrec [RequestSpotFleetResponse]
ReadPrec RequestSpotFleetResponse
Int -> ReadS RequestSpotFleetResponse
ReadS [RequestSpotFleetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RequestSpotFleetResponse]
$creadListPrec :: ReadPrec [RequestSpotFleetResponse]
readPrec :: ReadPrec RequestSpotFleetResponse
$creadPrec :: ReadPrec RequestSpotFleetResponse
readList :: ReadS [RequestSpotFleetResponse]
$creadList :: ReadS [RequestSpotFleetResponse]
readsPrec :: Int -> ReadS RequestSpotFleetResponse
$creadsPrec :: Int -> ReadS RequestSpotFleetResponse
Prelude.Read, Int -> RequestSpotFleetResponse -> ShowS
[RequestSpotFleetResponse] -> ShowS
RequestSpotFleetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequestSpotFleetResponse] -> ShowS
$cshowList :: [RequestSpotFleetResponse] -> ShowS
show :: RequestSpotFleetResponse -> String
$cshow :: RequestSpotFleetResponse -> String
showsPrec :: Int -> RequestSpotFleetResponse -> ShowS
$cshowsPrec :: Int -> RequestSpotFleetResponse -> ShowS
Prelude.Show, forall x.
Rep RequestSpotFleetResponse x -> RequestSpotFleetResponse
forall x.
RequestSpotFleetResponse -> Rep RequestSpotFleetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RequestSpotFleetResponse x -> RequestSpotFleetResponse
$cfrom :: forall x.
RequestSpotFleetResponse -> Rep RequestSpotFleetResponse x
Prelude.Generic)

-- |
-- Create a value of 'RequestSpotFleetResponse' 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:
--
-- 'spotFleetRequestId', 'requestSpotFleetResponse_spotFleetRequestId' - The ID of the Spot Fleet request.
--
-- 'httpStatus', 'requestSpotFleetResponse_httpStatus' - The response's http status code.
newRequestSpotFleetResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  RequestSpotFleetResponse
newRequestSpotFleetResponse :: Int -> RequestSpotFleetResponse
newRequestSpotFleetResponse Int
pHttpStatus_ =
  RequestSpotFleetResponse'
    { $sel:spotFleetRequestId:RequestSpotFleetResponse' :: Maybe Text
spotFleetRequestId =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:RequestSpotFleetResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The ID of the Spot Fleet request.
requestSpotFleetResponse_spotFleetRequestId :: Lens.Lens' RequestSpotFleetResponse (Prelude.Maybe Prelude.Text)
requestSpotFleetResponse_spotFleetRequestId :: Lens' RequestSpotFleetResponse (Maybe Text)
requestSpotFleetResponse_spotFleetRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleetResponse' {Maybe Text
spotFleetRequestId :: Maybe Text
$sel:spotFleetRequestId:RequestSpotFleetResponse' :: RequestSpotFleetResponse -> Maybe Text
spotFleetRequestId} -> Maybe Text
spotFleetRequestId) (\s :: RequestSpotFleetResponse
s@RequestSpotFleetResponse' {} Maybe Text
a -> RequestSpotFleetResponse
s {$sel:spotFleetRequestId:RequestSpotFleetResponse' :: Maybe Text
spotFleetRequestId = Maybe Text
a} :: RequestSpotFleetResponse)

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

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