module Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses
(
DescribeTrustedAdvisorCheckRefreshStatuses
, describeTrustedAdvisorCheckRefreshStatuses
, dtacrsCheckIds
, DescribeTrustedAdvisorCheckRefreshStatusesResponse
, describeTrustedAdvisorCheckRefreshStatusesResponse
, dtacrsrStatuses
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.Support.Types
import qualified GHC.Exts
newtype DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatuses
{ _dtacrsCheckIds :: List "checkIds" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeTrustedAdvisorCheckRefreshStatuses where
type Item DescribeTrustedAdvisorCheckRefreshStatuses = Text
fromList = DescribeTrustedAdvisorCheckRefreshStatuses . GHC.Exts.fromList
toList = GHC.Exts.toList . _dtacrsCheckIds
describeTrustedAdvisorCheckRefreshStatuses :: DescribeTrustedAdvisorCheckRefreshStatuses
describeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatuses
{ _dtacrsCheckIds = mempty
}
dtacrsCheckIds :: Lens' DescribeTrustedAdvisorCheckRefreshStatuses [Text]
dtacrsCheckIds = lens _dtacrsCheckIds (\s a -> s { _dtacrsCheckIds = a }) . _List
newtype DescribeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse
{ _dtacrsrStatuses :: List "statuses" TrustedAdvisorCheckRefreshStatus
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeTrustedAdvisorCheckRefreshStatusesResponse where
type Item DescribeTrustedAdvisorCheckRefreshStatusesResponse = TrustedAdvisorCheckRefreshStatus
fromList = DescribeTrustedAdvisorCheckRefreshStatusesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dtacrsrStatuses
describeTrustedAdvisorCheckRefreshStatusesResponse :: DescribeTrustedAdvisorCheckRefreshStatusesResponse
describeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse
{ _dtacrsrStatuses = mempty
}
dtacrsrStatuses :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse [TrustedAdvisorCheckRefreshStatus]
dtacrsrStatuses = lens _dtacrsrStatuses (\s a -> s { _dtacrsrStatuses = a }) . _List
instance ToPath DescribeTrustedAdvisorCheckRefreshStatuses where
toPath = const "/"
instance ToQuery DescribeTrustedAdvisorCheckRefreshStatuses where
toQuery = const mempty
instance ToHeaders DescribeTrustedAdvisorCheckRefreshStatuses
instance ToJSON DescribeTrustedAdvisorCheckRefreshStatuses where
toJSON DescribeTrustedAdvisorCheckRefreshStatuses{..} = object
[ "checkIds" .= _dtacrsCheckIds
]
instance AWSRequest DescribeTrustedAdvisorCheckRefreshStatuses where
type Sv DescribeTrustedAdvisorCheckRefreshStatuses = Support
type Rs DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatusesResponse
request = post "DescribeTrustedAdvisorCheckRefreshStatuses"
response = jsonResponse
instance FromJSON DescribeTrustedAdvisorCheckRefreshStatusesResponse where
parseJSON = withObject "DescribeTrustedAdvisorCheckRefreshStatusesResponse" $ \o -> DescribeTrustedAdvisorCheckRefreshStatusesResponse
<$> o .:? "statuses" .!= mempty