{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.EC2.Types.SpotOptions where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Internal
import Amazonka.EC2.Types.FleetSpotMaintenanceStrategies
import Amazonka.EC2.Types.SpotAllocationStrategy
import Amazonka.EC2.Types.SpotInstanceInterruptionBehavior
import qualified Amazonka.Prelude as Prelude
data SpotOptions = SpotOptions'
{
SpotOptions -> Maybe SpotAllocationStrategy
allocationStrategy :: Prelude.Maybe SpotAllocationStrategy,
SpotOptions -> Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior :: Prelude.Maybe SpotInstanceInterruptionBehavior,
SpotOptions -> Maybe Int
instancePoolsToUseCount :: Prelude.Maybe Prelude.Int,
SpotOptions -> Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies :: Prelude.Maybe FleetSpotMaintenanceStrategies,
SpotOptions -> Maybe Text
maxTotalPrice :: Prelude.Maybe Prelude.Text,
SpotOptions -> Maybe Int
minTargetCapacity :: Prelude.Maybe Prelude.Int,
SpotOptions -> Maybe Bool
singleAvailabilityZone :: Prelude.Maybe Prelude.Bool,
SpotOptions -> Maybe Bool
singleInstanceType :: Prelude.Maybe Prelude.Bool
}
deriving (SpotOptions -> SpotOptions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SpotOptions -> SpotOptions -> Bool
$c/= :: SpotOptions -> SpotOptions -> Bool
== :: SpotOptions -> SpotOptions -> Bool
$c== :: SpotOptions -> SpotOptions -> Bool
Prelude.Eq, ReadPrec [SpotOptions]
ReadPrec SpotOptions
Int -> ReadS SpotOptions
ReadS [SpotOptions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SpotOptions]
$creadListPrec :: ReadPrec [SpotOptions]
readPrec :: ReadPrec SpotOptions
$creadPrec :: ReadPrec SpotOptions
readList :: ReadS [SpotOptions]
$creadList :: ReadS [SpotOptions]
readsPrec :: Int -> ReadS SpotOptions
$creadsPrec :: Int -> ReadS SpotOptions
Prelude.Read, Int -> SpotOptions -> ShowS
[SpotOptions] -> ShowS
SpotOptions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SpotOptions] -> ShowS
$cshowList :: [SpotOptions] -> ShowS
show :: SpotOptions -> String
$cshow :: SpotOptions -> String
showsPrec :: Int -> SpotOptions -> ShowS
$cshowsPrec :: Int -> SpotOptions -> ShowS
Prelude.Show, forall x. Rep SpotOptions x -> SpotOptions
forall x. SpotOptions -> Rep SpotOptions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SpotOptions x -> SpotOptions
$cfrom :: forall x. SpotOptions -> Rep SpotOptions x
Prelude.Generic)
newSpotOptions ::
SpotOptions
newSpotOptions :: SpotOptions
newSpotOptions =
SpotOptions'
{ $sel:allocationStrategy:SpotOptions' :: Maybe SpotAllocationStrategy
allocationStrategy = forall a. Maybe a
Prelude.Nothing,
$sel:instanceInterruptionBehavior:SpotOptions' :: Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior = forall a. Maybe a
Prelude.Nothing,
$sel:instancePoolsToUseCount:SpotOptions' :: Maybe Int
instancePoolsToUseCount = forall a. Maybe a
Prelude.Nothing,
$sel:maintenanceStrategies:SpotOptions' :: Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies = forall a. Maybe a
Prelude.Nothing,
$sel:maxTotalPrice:SpotOptions' :: Maybe Text
maxTotalPrice = forall a. Maybe a
Prelude.Nothing,
$sel:minTargetCapacity:SpotOptions' :: Maybe Int
minTargetCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:singleAvailabilityZone:SpotOptions' :: Maybe Bool
singleAvailabilityZone = forall a. Maybe a
Prelude.Nothing,
$sel:singleInstanceType:SpotOptions' :: Maybe Bool
singleInstanceType = forall a. Maybe a
Prelude.Nothing
}
spotOptions_allocationStrategy :: Lens.Lens' SpotOptions (Prelude.Maybe SpotAllocationStrategy)
spotOptions_allocationStrategy :: Lens' SpotOptions (Maybe SpotAllocationStrategy)
spotOptions_allocationStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe SpotAllocationStrategy
allocationStrategy :: Maybe SpotAllocationStrategy
$sel:allocationStrategy:SpotOptions' :: SpotOptions -> Maybe SpotAllocationStrategy
allocationStrategy} -> Maybe SpotAllocationStrategy
allocationStrategy) (\s :: SpotOptions
s@SpotOptions' {} Maybe SpotAllocationStrategy
a -> SpotOptions
s {$sel:allocationStrategy:SpotOptions' :: Maybe SpotAllocationStrategy
allocationStrategy = Maybe SpotAllocationStrategy
a} :: SpotOptions)
spotOptions_instanceInterruptionBehavior :: Lens.Lens' SpotOptions (Prelude.Maybe SpotInstanceInterruptionBehavior)
spotOptions_instanceInterruptionBehavior :: Lens' SpotOptions (Maybe SpotInstanceInterruptionBehavior)
spotOptions_instanceInterruptionBehavior = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior :: Maybe SpotInstanceInterruptionBehavior
$sel:instanceInterruptionBehavior:SpotOptions' :: SpotOptions -> Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior} -> Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior) (\s :: SpotOptions
s@SpotOptions' {} Maybe SpotInstanceInterruptionBehavior
a -> SpotOptions
s {$sel:instanceInterruptionBehavior:SpotOptions' :: Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior = Maybe SpotInstanceInterruptionBehavior
a} :: SpotOptions)
spotOptions_instancePoolsToUseCount :: Lens.Lens' SpotOptions (Prelude.Maybe Prelude.Int)
spotOptions_instancePoolsToUseCount :: Lens' SpotOptions (Maybe Int)
spotOptions_instancePoolsToUseCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe Int
instancePoolsToUseCount :: Maybe Int
$sel:instancePoolsToUseCount:SpotOptions' :: SpotOptions -> Maybe Int
instancePoolsToUseCount} -> Maybe Int
instancePoolsToUseCount) (\s :: SpotOptions
s@SpotOptions' {} Maybe Int
a -> SpotOptions
s {$sel:instancePoolsToUseCount:SpotOptions' :: Maybe Int
instancePoolsToUseCount = Maybe Int
a} :: SpotOptions)
spotOptions_maintenanceStrategies :: Lens.Lens' SpotOptions (Prelude.Maybe FleetSpotMaintenanceStrategies)
spotOptions_maintenanceStrategies :: Lens' SpotOptions (Maybe FleetSpotMaintenanceStrategies)
spotOptions_maintenanceStrategies = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies :: Maybe FleetSpotMaintenanceStrategies
$sel:maintenanceStrategies:SpotOptions' :: SpotOptions -> Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies} -> Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies) (\s :: SpotOptions
s@SpotOptions' {} Maybe FleetSpotMaintenanceStrategies
a -> SpotOptions
s {$sel:maintenanceStrategies:SpotOptions' :: Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies = Maybe FleetSpotMaintenanceStrategies
a} :: SpotOptions)
spotOptions_maxTotalPrice :: Lens.Lens' SpotOptions (Prelude.Maybe Prelude.Text)
spotOptions_maxTotalPrice :: Lens' SpotOptions (Maybe Text)
spotOptions_maxTotalPrice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe Text
maxTotalPrice :: Maybe Text
$sel:maxTotalPrice:SpotOptions' :: SpotOptions -> Maybe Text
maxTotalPrice} -> Maybe Text
maxTotalPrice) (\s :: SpotOptions
s@SpotOptions' {} Maybe Text
a -> SpotOptions
s {$sel:maxTotalPrice:SpotOptions' :: Maybe Text
maxTotalPrice = Maybe Text
a} :: SpotOptions)
spotOptions_minTargetCapacity :: Lens.Lens' SpotOptions (Prelude.Maybe Prelude.Int)
spotOptions_minTargetCapacity :: Lens' SpotOptions (Maybe Int)
spotOptions_minTargetCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe Int
minTargetCapacity :: Maybe Int
$sel:minTargetCapacity:SpotOptions' :: SpotOptions -> Maybe Int
minTargetCapacity} -> Maybe Int
minTargetCapacity) (\s :: SpotOptions
s@SpotOptions' {} Maybe Int
a -> SpotOptions
s {$sel:minTargetCapacity:SpotOptions' :: Maybe Int
minTargetCapacity = Maybe Int
a} :: SpotOptions)
spotOptions_singleAvailabilityZone :: Lens.Lens' SpotOptions (Prelude.Maybe Prelude.Bool)
spotOptions_singleAvailabilityZone :: Lens' SpotOptions (Maybe Bool)
spotOptions_singleAvailabilityZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe Bool
singleAvailabilityZone :: Maybe Bool
$sel:singleAvailabilityZone:SpotOptions' :: SpotOptions -> Maybe Bool
singleAvailabilityZone} -> Maybe Bool
singleAvailabilityZone) (\s :: SpotOptions
s@SpotOptions' {} Maybe Bool
a -> SpotOptions
s {$sel:singleAvailabilityZone:SpotOptions' :: Maybe Bool
singleAvailabilityZone = Maybe Bool
a} :: SpotOptions)
spotOptions_singleInstanceType :: Lens.Lens' SpotOptions (Prelude.Maybe Prelude.Bool)
spotOptions_singleInstanceType :: Lens' SpotOptions (Maybe Bool)
spotOptions_singleInstanceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SpotOptions' {Maybe Bool
singleInstanceType :: Maybe Bool
$sel:singleInstanceType:SpotOptions' :: SpotOptions -> Maybe Bool
singleInstanceType} -> Maybe Bool
singleInstanceType) (\s :: SpotOptions
s@SpotOptions' {} Maybe Bool
a -> SpotOptions
s {$sel:singleInstanceType:SpotOptions' :: Maybe Bool
singleInstanceType = Maybe Bool
a} :: SpotOptions)
instance Data.FromXML SpotOptions where
parseXML :: [Node] -> Either String SpotOptions
parseXML [Node]
x =
Maybe SpotAllocationStrategy
-> Maybe SpotInstanceInterruptionBehavior
-> Maybe Int
-> Maybe FleetSpotMaintenanceStrategies
-> Maybe Text
-> Maybe Int
-> Maybe Bool
-> Maybe Bool
-> SpotOptions
SpotOptions'
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
"allocationStrategy")
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
"instanceInterruptionBehavior")
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
"instancePoolsToUseCount")
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
"maintenanceStrategies")
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
"maxTotalPrice")
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
"minTargetCapacity")
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
"singleAvailabilityZone")
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
"singleInstanceType")
instance Prelude.Hashable SpotOptions where
hashWithSalt :: Int -> SpotOptions -> Int
hashWithSalt Int
_salt SpotOptions' {Maybe Bool
Maybe Int
Maybe Text
Maybe FleetSpotMaintenanceStrategies
Maybe SpotAllocationStrategy
Maybe SpotInstanceInterruptionBehavior
singleInstanceType :: Maybe Bool
singleAvailabilityZone :: Maybe Bool
minTargetCapacity :: Maybe Int
maxTotalPrice :: Maybe Text
maintenanceStrategies :: Maybe FleetSpotMaintenanceStrategies
instancePoolsToUseCount :: Maybe Int
instanceInterruptionBehavior :: Maybe SpotInstanceInterruptionBehavior
allocationStrategy :: Maybe SpotAllocationStrategy
$sel:singleInstanceType:SpotOptions' :: SpotOptions -> Maybe Bool
$sel:singleAvailabilityZone:SpotOptions' :: SpotOptions -> Maybe Bool
$sel:minTargetCapacity:SpotOptions' :: SpotOptions -> Maybe Int
$sel:maxTotalPrice:SpotOptions' :: SpotOptions -> Maybe Text
$sel:maintenanceStrategies:SpotOptions' :: SpotOptions -> Maybe FleetSpotMaintenanceStrategies
$sel:instancePoolsToUseCount:SpotOptions' :: SpotOptions -> Maybe Int
$sel:instanceInterruptionBehavior:SpotOptions' :: SpotOptions -> Maybe SpotInstanceInterruptionBehavior
$sel:allocationStrategy:SpotOptions' :: SpotOptions -> Maybe SpotAllocationStrategy
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SpotAllocationStrategy
allocationStrategy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
instancePoolsToUseCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maxTotalPrice
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
minTargetCapacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
singleAvailabilityZone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
singleInstanceType
instance Prelude.NFData SpotOptions where
rnf :: SpotOptions -> ()
rnf SpotOptions' {Maybe Bool
Maybe Int
Maybe Text
Maybe FleetSpotMaintenanceStrategies
Maybe SpotAllocationStrategy
Maybe SpotInstanceInterruptionBehavior
singleInstanceType :: Maybe Bool
singleAvailabilityZone :: Maybe Bool
minTargetCapacity :: Maybe Int
maxTotalPrice :: Maybe Text
maintenanceStrategies :: Maybe FleetSpotMaintenanceStrategies
instancePoolsToUseCount :: Maybe Int
instanceInterruptionBehavior :: Maybe SpotInstanceInterruptionBehavior
allocationStrategy :: Maybe SpotAllocationStrategy
$sel:singleInstanceType:SpotOptions' :: SpotOptions -> Maybe Bool
$sel:singleAvailabilityZone:SpotOptions' :: SpotOptions -> Maybe Bool
$sel:minTargetCapacity:SpotOptions' :: SpotOptions -> Maybe Int
$sel:maxTotalPrice:SpotOptions' :: SpotOptions -> Maybe Text
$sel:maintenanceStrategies:SpotOptions' :: SpotOptions -> Maybe FleetSpotMaintenanceStrategies
$sel:instancePoolsToUseCount:SpotOptions' :: SpotOptions -> Maybe Int
$sel:instanceInterruptionBehavior:SpotOptions' :: SpotOptions -> Maybe SpotInstanceInterruptionBehavior
$sel:allocationStrategy:SpotOptions' :: SpotOptions -> Maybe SpotAllocationStrategy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe SpotAllocationStrategy
allocationStrategy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SpotInstanceInterruptionBehavior
instanceInterruptionBehavior
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
instancePoolsToUseCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FleetSpotMaintenanceStrategies
maintenanceStrategies
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
maxTotalPrice
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
minTargetCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
singleAvailabilityZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
singleInstanceType