module Network.AWS.EMR.DescribeCluster
(
describeCluster
, DescribeCluster
, dcClusterId
, describeClusterResponse
, DescribeClusterResponse
, dcrsResponseStatus
, dcrsCluster
) 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 DescribeCluster = DescribeCluster'
{ _dcClusterId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCluster
:: Text
-> DescribeCluster
describeCluster pClusterId_ =
DescribeCluster'
{ _dcClusterId = pClusterId_
}
dcClusterId :: Lens' DescribeCluster Text
dcClusterId = lens _dcClusterId (\ s a -> s{_dcClusterId = a});
instance AWSRequest DescribeCluster where
type Rs DescribeCluster = DescribeClusterResponse
request = postJSON eMR
response
= receiveJSON
(\ s h x ->
DescribeClusterResponse' <$>
(pure (fromEnum s)) <*> (x .:> "Cluster"))
instance ToHeaders DescribeCluster where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.DescribeCluster" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeCluster where
toJSON DescribeCluster'{..}
= object
(catMaybes [Just ("ClusterId" .= _dcClusterId)])
instance ToPath DescribeCluster where
toPath = const "/"
instance ToQuery DescribeCluster where
toQuery = const mempty
data DescribeClusterResponse = DescribeClusterResponse'
{ _dcrsResponseStatus :: !Int
, _dcrsCluster :: !Cluster
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeClusterResponse
:: Int
-> Cluster
-> DescribeClusterResponse
describeClusterResponse pResponseStatus_ pCluster_ =
DescribeClusterResponse'
{ _dcrsResponseStatus = pResponseStatus_
, _dcrsCluster = pCluster_
}
dcrsResponseStatus :: Lens' DescribeClusterResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
dcrsCluster :: Lens' DescribeClusterResponse Cluster
dcrsCluster = lens _dcrsCluster (\ s a -> s{_dcrsCluster = a});