module Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries
(
DescribeTrustedAdvisorCheckSummaries
, describeTrustedAdvisorCheckSummaries
, dtacsCheckIds
, DescribeTrustedAdvisorCheckSummariesResponse
, describeTrustedAdvisorCheckSummariesResponse
, dtacsrSummaries
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.Support.Types
import qualified GHC.Exts
newtype DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummaries
{ _dtacsCheckIds :: List "checkIds" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeTrustedAdvisorCheckSummaries where
type Item DescribeTrustedAdvisorCheckSummaries = Text
fromList = DescribeTrustedAdvisorCheckSummaries . GHC.Exts.fromList
toList = GHC.Exts.toList . _dtacsCheckIds
describeTrustedAdvisorCheckSummaries :: DescribeTrustedAdvisorCheckSummaries
describeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummaries
{ _dtacsCheckIds = mempty
}
dtacsCheckIds :: Lens' DescribeTrustedAdvisorCheckSummaries [Text]
dtacsCheckIds = lens _dtacsCheckIds (\s a -> s { _dtacsCheckIds = a }) . _List
newtype DescribeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse
{ _dtacsrSummaries :: List "summaries" TrustedAdvisorCheckSummary
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeTrustedAdvisorCheckSummariesResponse where
type Item DescribeTrustedAdvisorCheckSummariesResponse = TrustedAdvisorCheckSummary
fromList = DescribeTrustedAdvisorCheckSummariesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dtacsrSummaries
describeTrustedAdvisorCheckSummariesResponse :: DescribeTrustedAdvisorCheckSummariesResponse
describeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse
{ _dtacsrSummaries = mempty
}
dtacsrSummaries :: Lens' DescribeTrustedAdvisorCheckSummariesResponse [TrustedAdvisorCheckSummary]
dtacsrSummaries = lens _dtacsrSummaries (\s a -> s { _dtacsrSummaries = a }) . _List
instance ToPath DescribeTrustedAdvisorCheckSummaries where
toPath = const "/"
instance ToQuery DescribeTrustedAdvisorCheckSummaries where
toQuery = const mempty
instance ToHeaders DescribeTrustedAdvisorCheckSummaries
instance ToJSON DescribeTrustedAdvisorCheckSummaries where
toJSON DescribeTrustedAdvisorCheckSummaries{..} = object
[ "checkIds" .= _dtacsCheckIds
]
instance AWSRequest DescribeTrustedAdvisorCheckSummaries where
type Sv DescribeTrustedAdvisorCheckSummaries = Support
type Rs DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummariesResponse
request = post "DescribeTrustedAdvisorCheckSummaries"
response = jsonResponse
instance FromJSON DescribeTrustedAdvisorCheckSummariesResponse where
parseJSON = withObject "DescribeTrustedAdvisorCheckSummariesResponse" $ \o -> DescribeTrustedAdvisorCheckSummariesResponse
<$> o .: "summaries"