module Network.AWS.EMR.ModifyInstanceGroups
(
modifyInstanceGroups
, ModifyInstanceGroups
, migInstanceGroups
, modifyInstanceGroupsResponse
, ModifyInstanceGroupsResponse
) where
import Network.AWS.EMR.Types
import Network.AWS.EMR.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype ModifyInstanceGroups = ModifyInstanceGroups'
{ _migInstanceGroups :: Maybe [InstanceGroupModifyConfig]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyInstanceGroups
:: ModifyInstanceGroups
modifyInstanceGroups =
ModifyInstanceGroups'
{ _migInstanceGroups = Nothing
}
migInstanceGroups :: Lens' ModifyInstanceGroups [InstanceGroupModifyConfig]
migInstanceGroups = lens _migInstanceGroups (\ s a -> s{_migInstanceGroups = a}) . _Default . _Coerce;
instance AWSRequest ModifyInstanceGroups where
type Rs ModifyInstanceGroups =
ModifyInstanceGroupsResponse
request = postJSON eMR
response = receiveNull ModifyInstanceGroupsResponse'
instance ToHeaders ModifyInstanceGroups where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.ModifyInstanceGroups" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ModifyInstanceGroups where
toJSON ModifyInstanceGroups'{..}
= object
(catMaybes
[("InstanceGroups" .=) <$> _migInstanceGroups])
instance ToPath ModifyInstanceGroups where
toPath = const "/"
instance ToQuery ModifyInstanceGroups where
toQuery = const mempty
data ModifyInstanceGroupsResponse =
ModifyInstanceGroupsResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyInstanceGroupsResponse
:: ModifyInstanceGroupsResponse
modifyInstanceGroupsResponse = ModifyInstanceGroupsResponse'