{-# 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.MQ.DescribeConfigurationRevision
(
describeConfigurationRevision
, DescribeConfigurationRevision
, dcrConfigurationRevision
, dcrConfigurationId
, describeConfigurationRevisionResponse
, DescribeConfigurationRevisionResponse
, dcrrsConfigurationId
, dcrrsData
, dcrrsDescription
, dcrrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MQ.Types
import Network.AWS.MQ.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeConfigurationRevision = DescribeConfigurationRevision'
{ _dcrConfigurationRevision :: !Text
, _dcrConfigurationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeConfigurationRevision
:: Text
-> Text
-> DescribeConfigurationRevision
describeConfigurationRevision pConfigurationRevision_ pConfigurationId_ =
DescribeConfigurationRevision'
{ _dcrConfigurationRevision = pConfigurationRevision_
, _dcrConfigurationId = pConfigurationId_
}
dcrConfigurationRevision :: Lens' DescribeConfigurationRevision Text
dcrConfigurationRevision = lens _dcrConfigurationRevision (\ s a -> s{_dcrConfigurationRevision = a})
dcrConfigurationId :: Lens' DescribeConfigurationRevision Text
dcrConfigurationId = lens _dcrConfigurationId (\ s a -> s{_dcrConfigurationId = a})
instance AWSRequest DescribeConfigurationRevision
where
type Rs DescribeConfigurationRevision =
DescribeConfigurationRevisionResponse
request = get mq
response
= receiveJSON
(\ s h x ->
DescribeConfigurationRevisionResponse' <$>
(x .?> "configurationId") <*> (x .?> "data") <*>
(x .?> "description")
<*> (pure (fromEnum s)))
instance Hashable DescribeConfigurationRevision where
instance NFData DescribeConfigurationRevision where
instance ToHeaders DescribeConfigurationRevision
where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DescribeConfigurationRevision where
toPath DescribeConfigurationRevision'{..}
= mconcat
["/v1/configurations/", toBS _dcrConfigurationId,
"/revisions/", toBS _dcrConfigurationRevision]
instance ToQuery DescribeConfigurationRevision where
toQuery = const mempty
data DescribeConfigurationRevisionResponse = DescribeConfigurationRevisionResponse'
{ _dcrrsConfigurationId :: !(Maybe Text)
, _dcrrsData :: !(Maybe Text)
, _dcrrsDescription :: !(Maybe Text)
, _dcrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeConfigurationRevisionResponse
:: Int
-> DescribeConfigurationRevisionResponse
describeConfigurationRevisionResponse pResponseStatus_ =
DescribeConfigurationRevisionResponse'
{ _dcrrsConfigurationId = Nothing
, _dcrrsData = Nothing
, _dcrrsDescription = Nothing
, _dcrrsResponseStatus = pResponseStatus_
}
dcrrsConfigurationId :: Lens' DescribeConfigurationRevisionResponse (Maybe Text)
dcrrsConfigurationId = lens _dcrrsConfigurationId (\ s a -> s{_dcrrsConfigurationId = a})
dcrrsData :: Lens' DescribeConfigurationRevisionResponse (Maybe Text)
dcrrsData = lens _dcrrsData (\ s a -> s{_dcrrsData = a})
dcrrsDescription :: Lens' DescribeConfigurationRevisionResponse (Maybe Text)
dcrrsDescription = lens _dcrrsDescription (\ s a -> s{_dcrrsDescription = a})
dcrrsResponseStatus :: Lens' DescribeConfigurationRevisionResponse Int
dcrrsResponseStatus = lens _dcrrsResponseStatus (\ s a -> s{_dcrrsResponseStatus = a})
instance NFData DescribeConfigurationRevisionResponse
where