{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EMR.ModifyInstanceFleet
(
modifyInstanceFleet
, ModifyInstanceFleet
, mifClusterId
, mifInstanceFleet
, modifyInstanceFleetResponse
, ModifyInstanceFleetResponse
) where
import Network.AWS.EMR.Types
import Network.AWS.EMR.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyInstanceFleet = ModifyInstanceFleet'
{ _mifClusterId :: !Text
, _mifInstanceFleet :: !InstanceFleetModifyConfig
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyInstanceFleet
:: Text
-> InstanceFleetModifyConfig
-> ModifyInstanceFleet
modifyInstanceFleet pClusterId_ pInstanceFleet_ =
ModifyInstanceFleet'
{_mifClusterId = pClusterId_, _mifInstanceFleet = pInstanceFleet_}
mifClusterId :: Lens' ModifyInstanceFleet Text
mifClusterId = lens _mifClusterId (\ s a -> s{_mifClusterId = a})
mifInstanceFleet :: Lens' ModifyInstanceFleet InstanceFleetModifyConfig
mifInstanceFleet = lens _mifInstanceFleet (\ s a -> s{_mifInstanceFleet = a})
instance AWSRequest ModifyInstanceFleet where
type Rs ModifyInstanceFleet =
ModifyInstanceFleetResponse
request = postJSON emr
response = receiveNull ModifyInstanceFleetResponse'
instance Hashable ModifyInstanceFleet where
instance NFData ModifyInstanceFleet where
instance ToHeaders ModifyInstanceFleet where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.ModifyInstanceFleet" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ModifyInstanceFleet where
toJSON ModifyInstanceFleet'{..}
= object
(catMaybes
[Just ("ClusterId" .= _mifClusterId),
Just ("InstanceFleet" .= _mifInstanceFleet)])
instance ToPath ModifyInstanceFleet where
toPath = const "/"
instance ToQuery ModifyInstanceFleet where
toQuery = const mempty
data ModifyInstanceFleetResponse =
ModifyInstanceFleetResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyInstanceFleetResponse
:: ModifyInstanceFleetResponse
modifyInstanceFleetResponse = ModifyInstanceFleetResponse'
instance NFData ModifyInstanceFleetResponse where