{-# 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.TargetCapacitySpecification 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.DefaultTargetCapacityType
import Amazonka.EC2.Types.TargetCapacityUnitType
import qualified Amazonka.Prelude as Prelude
data TargetCapacitySpecification = TargetCapacitySpecification'
{
TargetCapacitySpecification -> Maybe DefaultTargetCapacityType
defaultTargetCapacityType :: Prelude.Maybe DefaultTargetCapacityType,
TargetCapacitySpecification -> Maybe Int
onDemandTargetCapacity :: Prelude.Maybe Prelude.Int,
TargetCapacitySpecification -> Maybe Int
spotTargetCapacity :: Prelude.Maybe Prelude.Int,
TargetCapacitySpecification -> Maybe TargetCapacityUnitType
targetCapacityUnitType :: Prelude.Maybe TargetCapacityUnitType,
TargetCapacitySpecification -> Maybe Int
totalTargetCapacity :: Prelude.Maybe Prelude.Int
}
deriving (TargetCapacitySpecification -> TargetCapacitySpecification -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TargetCapacitySpecification -> TargetCapacitySpecification -> Bool
$c/= :: TargetCapacitySpecification -> TargetCapacitySpecification -> Bool
== :: TargetCapacitySpecification -> TargetCapacitySpecification -> Bool
$c== :: TargetCapacitySpecification -> TargetCapacitySpecification -> Bool
Prelude.Eq, ReadPrec [TargetCapacitySpecification]
ReadPrec TargetCapacitySpecification
Int -> ReadS TargetCapacitySpecification
ReadS [TargetCapacitySpecification]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TargetCapacitySpecification]
$creadListPrec :: ReadPrec [TargetCapacitySpecification]
readPrec :: ReadPrec TargetCapacitySpecification
$creadPrec :: ReadPrec TargetCapacitySpecification
readList :: ReadS [TargetCapacitySpecification]
$creadList :: ReadS [TargetCapacitySpecification]
readsPrec :: Int -> ReadS TargetCapacitySpecification
$creadsPrec :: Int -> ReadS TargetCapacitySpecification
Prelude.Read, Int -> TargetCapacitySpecification -> ShowS
[TargetCapacitySpecification] -> ShowS
TargetCapacitySpecification -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TargetCapacitySpecification] -> ShowS
$cshowList :: [TargetCapacitySpecification] -> ShowS
show :: TargetCapacitySpecification -> String
$cshow :: TargetCapacitySpecification -> String
showsPrec :: Int -> TargetCapacitySpecification -> ShowS
$cshowsPrec :: Int -> TargetCapacitySpecification -> ShowS
Prelude.Show, forall x.
Rep TargetCapacitySpecification x -> TargetCapacitySpecification
forall x.
TargetCapacitySpecification -> Rep TargetCapacitySpecification x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep TargetCapacitySpecification x -> TargetCapacitySpecification
$cfrom :: forall x.
TargetCapacitySpecification -> Rep TargetCapacitySpecification x
Prelude.Generic)
newTargetCapacitySpecification ::
TargetCapacitySpecification
newTargetCapacitySpecification :: TargetCapacitySpecification
newTargetCapacitySpecification =
TargetCapacitySpecification'
{ $sel:defaultTargetCapacityType:TargetCapacitySpecification' :: Maybe DefaultTargetCapacityType
defaultTargetCapacityType =
forall a. Maybe a
Prelude.Nothing,
$sel:onDemandTargetCapacity:TargetCapacitySpecification' :: Maybe Int
onDemandTargetCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:spotTargetCapacity:TargetCapacitySpecification' :: Maybe Int
spotTargetCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:targetCapacityUnitType:TargetCapacitySpecification' :: Maybe TargetCapacityUnitType
targetCapacityUnitType = forall a. Maybe a
Prelude.Nothing,
$sel:totalTargetCapacity:TargetCapacitySpecification' :: Maybe Int
totalTargetCapacity = forall a. Maybe a
Prelude.Nothing
}
targetCapacitySpecification_defaultTargetCapacityType :: Lens.Lens' TargetCapacitySpecification (Prelude.Maybe DefaultTargetCapacityType)
targetCapacitySpecification_defaultTargetCapacityType :: Lens' TargetCapacitySpecification (Maybe DefaultTargetCapacityType)
targetCapacitySpecification_defaultTargetCapacityType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TargetCapacitySpecification' {Maybe DefaultTargetCapacityType
defaultTargetCapacityType :: Maybe DefaultTargetCapacityType
$sel:defaultTargetCapacityType:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe DefaultTargetCapacityType
defaultTargetCapacityType} -> Maybe DefaultTargetCapacityType
defaultTargetCapacityType) (\s :: TargetCapacitySpecification
s@TargetCapacitySpecification' {} Maybe DefaultTargetCapacityType
a -> TargetCapacitySpecification
s {$sel:defaultTargetCapacityType:TargetCapacitySpecification' :: Maybe DefaultTargetCapacityType
defaultTargetCapacityType = Maybe DefaultTargetCapacityType
a} :: TargetCapacitySpecification)
targetCapacitySpecification_onDemandTargetCapacity :: Lens.Lens' TargetCapacitySpecification (Prelude.Maybe Prelude.Int)
targetCapacitySpecification_onDemandTargetCapacity :: Lens' TargetCapacitySpecification (Maybe Int)
targetCapacitySpecification_onDemandTargetCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TargetCapacitySpecification' {Maybe Int
onDemandTargetCapacity :: Maybe Int
$sel:onDemandTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
onDemandTargetCapacity} -> Maybe Int
onDemandTargetCapacity) (\s :: TargetCapacitySpecification
s@TargetCapacitySpecification' {} Maybe Int
a -> TargetCapacitySpecification
s {$sel:onDemandTargetCapacity:TargetCapacitySpecification' :: Maybe Int
onDemandTargetCapacity = Maybe Int
a} :: TargetCapacitySpecification)
targetCapacitySpecification_spotTargetCapacity :: Lens.Lens' TargetCapacitySpecification (Prelude.Maybe Prelude.Int)
targetCapacitySpecification_spotTargetCapacity :: Lens' TargetCapacitySpecification (Maybe Int)
targetCapacitySpecification_spotTargetCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TargetCapacitySpecification' {Maybe Int
spotTargetCapacity :: Maybe Int
$sel:spotTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
spotTargetCapacity} -> Maybe Int
spotTargetCapacity) (\s :: TargetCapacitySpecification
s@TargetCapacitySpecification' {} Maybe Int
a -> TargetCapacitySpecification
s {$sel:spotTargetCapacity:TargetCapacitySpecification' :: Maybe Int
spotTargetCapacity = Maybe Int
a} :: TargetCapacitySpecification)
targetCapacitySpecification_targetCapacityUnitType :: Lens.Lens' TargetCapacitySpecification (Prelude.Maybe TargetCapacityUnitType)
targetCapacitySpecification_targetCapacityUnitType :: Lens' TargetCapacitySpecification (Maybe TargetCapacityUnitType)
targetCapacitySpecification_targetCapacityUnitType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TargetCapacitySpecification' {Maybe TargetCapacityUnitType
targetCapacityUnitType :: Maybe TargetCapacityUnitType
$sel:targetCapacityUnitType:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe TargetCapacityUnitType
targetCapacityUnitType} -> Maybe TargetCapacityUnitType
targetCapacityUnitType) (\s :: TargetCapacitySpecification
s@TargetCapacitySpecification' {} Maybe TargetCapacityUnitType
a -> TargetCapacitySpecification
s {$sel:targetCapacityUnitType:TargetCapacitySpecification' :: Maybe TargetCapacityUnitType
targetCapacityUnitType = Maybe TargetCapacityUnitType
a} :: TargetCapacitySpecification)
targetCapacitySpecification_totalTargetCapacity :: Lens.Lens' TargetCapacitySpecification (Prelude.Maybe Prelude.Int)
targetCapacitySpecification_totalTargetCapacity :: Lens' TargetCapacitySpecification (Maybe Int)
targetCapacitySpecification_totalTargetCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TargetCapacitySpecification' {Maybe Int
totalTargetCapacity :: Maybe Int
$sel:totalTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
totalTargetCapacity} -> Maybe Int
totalTargetCapacity) (\s :: TargetCapacitySpecification
s@TargetCapacitySpecification' {} Maybe Int
a -> TargetCapacitySpecification
s {$sel:totalTargetCapacity:TargetCapacitySpecification' :: Maybe Int
totalTargetCapacity = Maybe Int
a} :: TargetCapacitySpecification)
instance Data.FromXML TargetCapacitySpecification where
parseXML :: [Node] -> Either String TargetCapacitySpecification
parseXML [Node]
x =
Maybe DefaultTargetCapacityType
-> Maybe Int
-> Maybe Int
-> Maybe TargetCapacityUnitType
-> Maybe Int
-> TargetCapacitySpecification
TargetCapacitySpecification'
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
"defaultTargetCapacityType")
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
"onDemandTargetCapacity")
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
"spotTargetCapacity")
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
"targetCapacityUnitType")
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
"totalTargetCapacity")
instance Prelude.Hashable TargetCapacitySpecification where
hashWithSalt :: Int -> TargetCapacitySpecification -> Int
hashWithSalt Int
_salt TargetCapacitySpecification' {Maybe Int
Maybe DefaultTargetCapacityType
Maybe TargetCapacityUnitType
totalTargetCapacity :: Maybe Int
targetCapacityUnitType :: Maybe TargetCapacityUnitType
spotTargetCapacity :: Maybe Int
onDemandTargetCapacity :: Maybe Int
defaultTargetCapacityType :: Maybe DefaultTargetCapacityType
$sel:totalTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
$sel:targetCapacityUnitType:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe TargetCapacityUnitType
$sel:spotTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
$sel:onDemandTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
$sel:defaultTargetCapacityType:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe DefaultTargetCapacityType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DefaultTargetCapacityType
defaultTargetCapacityType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
onDemandTargetCapacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
spotTargetCapacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TargetCapacityUnitType
targetCapacityUnitType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
totalTargetCapacity
instance Prelude.NFData TargetCapacitySpecification where
rnf :: TargetCapacitySpecification -> ()
rnf TargetCapacitySpecification' {Maybe Int
Maybe DefaultTargetCapacityType
Maybe TargetCapacityUnitType
totalTargetCapacity :: Maybe Int
targetCapacityUnitType :: Maybe TargetCapacityUnitType
spotTargetCapacity :: Maybe Int
onDemandTargetCapacity :: Maybe Int
defaultTargetCapacityType :: Maybe DefaultTargetCapacityType
$sel:totalTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
$sel:targetCapacityUnitType:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe TargetCapacityUnitType
$sel:spotTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
$sel:onDemandTargetCapacity:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe Int
$sel:defaultTargetCapacityType:TargetCapacitySpecification' :: TargetCapacitySpecification -> Maybe DefaultTargetCapacityType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DefaultTargetCapacityType
defaultTargetCapacityType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
onDemandTargetCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
spotTargetCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TargetCapacityUnitType
targetCapacityUnitType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
totalTargetCapacity