module Network.AWS.Config.DescribeConfigurationRecorderStatus
(
DescribeConfigurationRecorderStatus
, describeConfigurationRecorderStatus
, dcrsConfigurationRecorderNames
, DescribeConfigurationRecorderStatusResponse
, describeConfigurationRecorderStatusResponse
, dcrsrConfigurationRecordersStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.Config.Types
import qualified GHC.Exts
newtype DescribeConfigurationRecorderStatus = DescribeConfigurationRecorderStatus
{ _dcrsConfigurationRecorderNames :: List "ConfigurationRecorderNames" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeConfigurationRecorderStatus where
type Item DescribeConfigurationRecorderStatus = Text
fromList = DescribeConfigurationRecorderStatus . GHC.Exts.fromList
toList = GHC.Exts.toList . _dcrsConfigurationRecorderNames
describeConfigurationRecorderStatus :: DescribeConfigurationRecorderStatus
describeConfigurationRecorderStatus = DescribeConfigurationRecorderStatus
{ _dcrsConfigurationRecorderNames = mempty
}
dcrsConfigurationRecorderNames :: Lens' DescribeConfigurationRecorderStatus [Text]
dcrsConfigurationRecorderNames =
lens _dcrsConfigurationRecorderNames
(\s a -> s { _dcrsConfigurationRecorderNames = a })
. _List
newtype DescribeConfigurationRecorderStatusResponse = DescribeConfigurationRecorderStatusResponse
{ _dcrsrConfigurationRecordersStatus :: List "ConfigurationRecordersStatus" ConfigurationRecorderStatus
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeConfigurationRecorderStatusResponse where
type Item DescribeConfigurationRecorderStatusResponse = ConfigurationRecorderStatus
fromList = DescribeConfigurationRecorderStatusResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dcrsrConfigurationRecordersStatus
describeConfigurationRecorderStatusResponse :: DescribeConfigurationRecorderStatusResponse
describeConfigurationRecorderStatusResponse = DescribeConfigurationRecorderStatusResponse
{ _dcrsrConfigurationRecordersStatus = mempty
}
dcrsrConfigurationRecordersStatus :: Lens' DescribeConfigurationRecorderStatusResponse [ConfigurationRecorderStatus]
dcrsrConfigurationRecordersStatus =
lens _dcrsrConfigurationRecordersStatus
(\s a -> s { _dcrsrConfigurationRecordersStatus = a })
. _List
instance ToPath DescribeConfigurationRecorderStatus where
toPath = const "/"
instance ToQuery DescribeConfigurationRecorderStatus where
toQuery = const mempty
instance ToHeaders DescribeConfigurationRecorderStatus
instance ToJSON DescribeConfigurationRecorderStatus where
toJSON DescribeConfigurationRecorderStatus{..} = object
[ "ConfigurationRecorderNames" .= _dcrsConfigurationRecorderNames
]
instance AWSRequest DescribeConfigurationRecorderStatus where
type Sv DescribeConfigurationRecorderStatus = Config
type Rs DescribeConfigurationRecorderStatus = DescribeConfigurationRecorderStatusResponse
request = post "DescribeConfigurationRecorderStatus"
response = jsonResponse
instance FromJSON DescribeConfigurationRecorderStatusResponse where
parseJSON = withObject "DescribeConfigurationRecorderStatusResponse" $ \o -> DescribeConfigurationRecorderStatusResponse
<$> o .: "ConfigurationRecordersStatus"