{-# 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 #-}
module Amazonka.EMR.ModifyInstanceFleet
(
ModifyInstanceFleet (..),
newModifyInstanceFleet,
modifyInstanceFleet_clusterId,
modifyInstanceFleet_instanceFleet,
ModifyInstanceFleetResponse (..),
newModifyInstanceFleetResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EMR.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ModifyInstanceFleet = ModifyInstanceFleet'
{
ModifyInstanceFleet -> Text
clusterId :: Prelude.Text,
ModifyInstanceFleet -> InstanceFleetModifyConfig
instanceFleet :: InstanceFleetModifyConfig
}
deriving (ModifyInstanceFleet -> ModifyInstanceFleet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyInstanceFleet -> ModifyInstanceFleet -> Bool
$c/= :: ModifyInstanceFleet -> ModifyInstanceFleet -> Bool
== :: ModifyInstanceFleet -> ModifyInstanceFleet -> Bool
$c== :: ModifyInstanceFleet -> ModifyInstanceFleet -> Bool
Prelude.Eq, ReadPrec [ModifyInstanceFleet]
ReadPrec ModifyInstanceFleet
Int -> ReadS ModifyInstanceFleet
ReadS [ModifyInstanceFleet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyInstanceFleet]
$creadListPrec :: ReadPrec [ModifyInstanceFleet]
readPrec :: ReadPrec ModifyInstanceFleet
$creadPrec :: ReadPrec ModifyInstanceFleet
readList :: ReadS [ModifyInstanceFleet]
$creadList :: ReadS [ModifyInstanceFleet]
readsPrec :: Int -> ReadS ModifyInstanceFleet
$creadsPrec :: Int -> ReadS ModifyInstanceFleet
Prelude.Read, Int -> ModifyInstanceFleet -> ShowS
[ModifyInstanceFleet] -> ShowS
ModifyInstanceFleet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyInstanceFleet] -> ShowS
$cshowList :: [ModifyInstanceFleet] -> ShowS
show :: ModifyInstanceFleet -> String
$cshow :: ModifyInstanceFleet -> String
showsPrec :: Int -> ModifyInstanceFleet -> ShowS
$cshowsPrec :: Int -> ModifyInstanceFleet -> ShowS
Prelude.Show, forall x. Rep ModifyInstanceFleet x -> ModifyInstanceFleet
forall x. ModifyInstanceFleet -> Rep ModifyInstanceFleet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyInstanceFleet x -> ModifyInstanceFleet
$cfrom :: forall x. ModifyInstanceFleet -> Rep ModifyInstanceFleet x
Prelude.Generic)
newModifyInstanceFleet ::
Prelude.Text ->
InstanceFleetModifyConfig ->
ModifyInstanceFleet
newModifyInstanceFleet :: Text -> InstanceFleetModifyConfig -> ModifyInstanceFleet
newModifyInstanceFleet Text
pClusterId_ InstanceFleetModifyConfig
pInstanceFleet_ =
ModifyInstanceFleet'
{ $sel:clusterId:ModifyInstanceFleet' :: Text
clusterId = Text
pClusterId_,
$sel:instanceFleet:ModifyInstanceFleet' :: InstanceFleetModifyConfig
instanceFleet = InstanceFleetModifyConfig
pInstanceFleet_
}
modifyInstanceFleet_clusterId :: Lens.Lens' ModifyInstanceFleet Prelude.Text
modifyInstanceFleet_clusterId :: Lens' ModifyInstanceFleet Text
modifyInstanceFleet_clusterId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyInstanceFleet' {Text
clusterId :: Text
$sel:clusterId:ModifyInstanceFleet' :: ModifyInstanceFleet -> Text
clusterId} -> Text
clusterId) (\s :: ModifyInstanceFleet
s@ModifyInstanceFleet' {} Text
a -> ModifyInstanceFleet
s {$sel:clusterId:ModifyInstanceFleet' :: Text
clusterId = Text
a} :: ModifyInstanceFleet)
modifyInstanceFleet_instanceFleet :: Lens.Lens' ModifyInstanceFleet InstanceFleetModifyConfig
modifyInstanceFleet_instanceFleet :: Lens' ModifyInstanceFleet InstanceFleetModifyConfig
modifyInstanceFleet_instanceFleet = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyInstanceFleet' {InstanceFleetModifyConfig
instanceFleet :: InstanceFleetModifyConfig
$sel:instanceFleet:ModifyInstanceFleet' :: ModifyInstanceFleet -> InstanceFleetModifyConfig
instanceFleet} -> InstanceFleetModifyConfig
instanceFleet) (\s :: ModifyInstanceFleet
s@ModifyInstanceFleet' {} InstanceFleetModifyConfig
a -> ModifyInstanceFleet
s {$sel:instanceFleet:ModifyInstanceFleet' :: InstanceFleetModifyConfig
instanceFleet = InstanceFleetModifyConfig
a} :: ModifyInstanceFleet)
instance Core.AWSRequest ModifyInstanceFleet where
type
AWSResponse ModifyInstanceFleet =
ModifyInstanceFleetResponse
request :: (Service -> Service)
-> ModifyInstanceFleet -> Request ModifyInstanceFleet
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 ModifyInstanceFleet
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ModifyInstanceFleet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull ModifyInstanceFleetResponse
ModifyInstanceFleetResponse'
instance Prelude.Hashable ModifyInstanceFleet where
hashWithSalt :: Int -> ModifyInstanceFleet -> Int
hashWithSalt Int
_salt ModifyInstanceFleet' {Text
InstanceFleetModifyConfig
instanceFleet :: InstanceFleetModifyConfig
clusterId :: Text
$sel:instanceFleet:ModifyInstanceFleet' :: ModifyInstanceFleet -> InstanceFleetModifyConfig
$sel:clusterId:ModifyInstanceFleet' :: ModifyInstanceFleet -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clusterId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InstanceFleetModifyConfig
instanceFleet
instance Prelude.NFData ModifyInstanceFleet where
rnf :: ModifyInstanceFleet -> ()
rnf ModifyInstanceFleet' {Text
InstanceFleetModifyConfig
instanceFleet :: InstanceFleetModifyConfig
clusterId :: Text
$sel:instanceFleet:ModifyInstanceFleet' :: ModifyInstanceFleet -> InstanceFleetModifyConfig
$sel:clusterId:ModifyInstanceFleet' :: ModifyInstanceFleet -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
clusterId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InstanceFleetModifyConfig
instanceFleet
instance Data.ToHeaders ModifyInstanceFleet where
toHeaders :: ModifyInstanceFleet -> [Header]
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 -> [Header]
Data.=# ( ByteString
"ElasticMapReduce.ModifyInstanceFleet" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ModifyInstanceFleet where
toJSON :: ModifyInstanceFleet -> Value
toJSON ModifyInstanceFleet' {Text
InstanceFleetModifyConfig
instanceFleet :: InstanceFleetModifyConfig
clusterId :: Text
$sel:instanceFleet:ModifyInstanceFleet' :: ModifyInstanceFleet -> InstanceFleetModifyConfig
$sel:clusterId:ModifyInstanceFleet' :: ModifyInstanceFleet -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"ClusterId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
clusterId),
forall a. a -> Maybe a
Prelude.Just
(Key
"InstanceFleet" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InstanceFleetModifyConfig
instanceFleet)
]
)
instance Data.ToPath ModifyInstanceFleet where
toPath :: ModifyInstanceFleet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyInstanceFleet where
toQuery :: ModifyInstanceFleet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ModifyInstanceFleetResponse = ModifyInstanceFleetResponse'
{
}
deriving (ModifyInstanceFleetResponse -> ModifyInstanceFleetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyInstanceFleetResponse -> ModifyInstanceFleetResponse -> Bool
$c/= :: ModifyInstanceFleetResponse -> ModifyInstanceFleetResponse -> Bool
== :: ModifyInstanceFleetResponse -> ModifyInstanceFleetResponse -> Bool
$c== :: ModifyInstanceFleetResponse -> ModifyInstanceFleetResponse -> Bool
Prelude.Eq, ReadPrec [ModifyInstanceFleetResponse]
ReadPrec ModifyInstanceFleetResponse
Int -> ReadS ModifyInstanceFleetResponse
ReadS [ModifyInstanceFleetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyInstanceFleetResponse]
$creadListPrec :: ReadPrec [ModifyInstanceFleetResponse]
readPrec :: ReadPrec ModifyInstanceFleetResponse
$creadPrec :: ReadPrec ModifyInstanceFleetResponse
readList :: ReadS [ModifyInstanceFleetResponse]
$creadList :: ReadS [ModifyInstanceFleetResponse]
readsPrec :: Int -> ReadS ModifyInstanceFleetResponse
$creadsPrec :: Int -> ReadS ModifyInstanceFleetResponse
Prelude.Read, Int -> ModifyInstanceFleetResponse -> ShowS
[ModifyInstanceFleetResponse] -> ShowS
ModifyInstanceFleetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyInstanceFleetResponse] -> ShowS
$cshowList :: [ModifyInstanceFleetResponse] -> ShowS
show :: ModifyInstanceFleetResponse -> String
$cshow :: ModifyInstanceFleetResponse -> String
showsPrec :: Int -> ModifyInstanceFleetResponse -> ShowS
$cshowsPrec :: Int -> ModifyInstanceFleetResponse -> ShowS
Prelude.Show, forall x.
Rep ModifyInstanceFleetResponse x -> ModifyInstanceFleetResponse
forall x.
ModifyInstanceFleetResponse -> Rep ModifyInstanceFleetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyInstanceFleetResponse x -> ModifyInstanceFleetResponse
$cfrom :: forall x.
ModifyInstanceFleetResponse -> Rep ModifyInstanceFleetResponse x
Prelude.Generic)
newModifyInstanceFleetResponse ::
ModifyInstanceFleetResponse
newModifyInstanceFleetResponse :: ModifyInstanceFleetResponse
newModifyInstanceFleetResponse =
ModifyInstanceFleetResponse
ModifyInstanceFleetResponse'
instance Prelude.NFData ModifyInstanceFleetResponse where
rnf :: ModifyInstanceFleetResponse -> ()
rnf ModifyInstanceFleetResponse
_ = ()