module Network.AWS.EMR.DescribeCluster
(
describeCluster
, DescribeCluster
, dcClusterId
, describeClusterResponse
, DescribeClusterResponse
, dcrsStatus
, 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 Sv DescribeCluster = EMR
type Rs DescribeCluster = DescribeClusterResponse
request = postJSON
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 ["ClusterId" .= _dcClusterId]
instance ToPath DescribeCluster where
toPath = const "/"
instance ToQuery DescribeCluster where
toQuery = const mempty
data DescribeClusterResponse = DescribeClusterResponse'
{ _dcrsStatus :: !Int
, _dcrsCluster :: !Cluster
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeClusterResponse
:: Int
-> Cluster
-> DescribeClusterResponse
describeClusterResponse pStatus_ pCluster_ =
DescribeClusterResponse'
{ _dcrsStatus = pStatus_
, _dcrsCluster = pCluster_
}
dcrsStatus :: Lens' DescribeClusterResponse Int
dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});
dcrsCluster :: Lens' DescribeClusterResponse Cluster
dcrsCluster = lens _dcrsCluster (\ s a -> s{_dcrsCluster = a});