{-# 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.RemoveAutoScalingPolicy
(
removeAutoScalingPolicy
, RemoveAutoScalingPolicy
, raspClusterId
, raspInstanceGroupId
, removeAutoScalingPolicyResponse
, RemoveAutoScalingPolicyResponse
, rasprsResponseStatus
) 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 RemoveAutoScalingPolicy = RemoveAutoScalingPolicy'
{ _raspClusterId :: !Text
, _raspInstanceGroupId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
removeAutoScalingPolicy
:: Text
-> Text
-> RemoveAutoScalingPolicy
removeAutoScalingPolicy pClusterId_ pInstanceGroupId_ =
RemoveAutoScalingPolicy'
{_raspClusterId = pClusterId_, _raspInstanceGroupId = pInstanceGroupId_}
raspClusterId :: Lens' RemoveAutoScalingPolicy Text
raspClusterId = lens _raspClusterId (\ s a -> s{_raspClusterId = a})
raspInstanceGroupId :: Lens' RemoveAutoScalingPolicy Text
raspInstanceGroupId = lens _raspInstanceGroupId (\ s a -> s{_raspInstanceGroupId = a})
instance AWSRequest RemoveAutoScalingPolicy where
type Rs RemoveAutoScalingPolicy =
RemoveAutoScalingPolicyResponse
request = postJSON emr
response
= receiveEmpty
(\ s h x ->
RemoveAutoScalingPolicyResponse' <$>
(pure (fromEnum s)))
instance Hashable RemoveAutoScalingPolicy where
instance NFData RemoveAutoScalingPolicy where
instance ToHeaders RemoveAutoScalingPolicy where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.RemoveAutoScalingPolicy" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RemoveAutoScalingPolicy where
toJSON RemoveAutoScalingPolicy'{..}
= object
(catMaybes
[Just ("ClusterId" .= _raspClusterId),
Just ("InstanceGroupId" .= _raspInstanceGroupId)])
instance ToPath RemoveAutoScalingPolicy where
toPath = const "/"
instance ToQuery RemoveAutoScalingPolicy where
toQuery = const mempty
newtype RemoveAutoScalingPolicyResponse = RemoveAutoScalingPolicyResponse'
{ _rasprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
removeAutoScalingPolicyResponse
:: Int
-> RemoveAutoScalingPolicyResponse
removeAutoScalingPolicyResponse pResponseStatus_ =
RemoveAutoScalingPolicyResponse' {_rasprsResponseStatus = pResponseStatus_}
rasprsResponseStatus :: Lens' RemoveAutoScalingPolicyResponse Int
rasprsResponseStatus = lens _rasprsResponseStatus (\ s a -> s{_rasprsResponseStatus = a})
instance NFData RemoveAutoScalingPolicyResponse where