module Network.AWS.AutoScaling.DescribeScalingActivities
(
DescribeScalingActivities
, describeScalingActivities
, dsa2ActivityIds
, dsa2AutoScalingGroupName
, dsa2MaxRecords
, dsa2NextToken
, DescribeScalingActivitiesResponse
, describeScalingActivitiesResponse
, dsar1Activities
, dsar1NextToken
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.AutoScaling.Types
import qualified GHC.Exts
data DescribeScalingActivities = DescribeScalingActivities
{ _dsa2ActivityIds :: List "member" Text
, _dsa2AutoScalingGroupName :: Maybe Text
, _dsa2MaxRecords :: Maybe Int
, _dsa2NextToken :: Maybe Text
} deriving (Eq, Ord, Read, Show)
describeScalingActivities :: DescribeScalingActivities
describeScalingActivities = DescribeScalingActivities
{ _dsa2ActivityIds = mempty
, _dsa2AutoScalingGroupName = Nothing
, _dsa2MaxRecords = Nothing
, _dsa2NextToken = Nothing
}
dsa2ActivityIds :: Lens' DescribeScalingActivities [Text]
dsa2ActivityIds = lens _dsa2ActivityIds (\s a -> s { _dsa2ActivityIds = a }) . _List
dsa2AutoScalingGroupName :: Lens' DescribeScalingActivities (Maybe Text)
dsa2AutoScalingGroupName =
lens _dsa2AutoScalingGroupName
(\s a -> s { _dsa2AutoScalingGroupName = a })
dsa2MaxRecords :: Lens' DescribeScalingActivities (Maybe Int)
dsa2MaxRecords = lens _dsa2MaxRecords (\s a -> s { _dsa2MaxRecords = a })
dsa2NextToken :: Lens' DescribeScalingActivities (Maybe Text)
dsa2NextToken = lens _dsa2NextToken (\s a -> s { _dsa2NextToken = a })
data DescribeScalingActivitiesResponse = DescribeScalingActivitiesResponse
{ _dsar1Activities :: List "member" Activity
, _dsar1NextToken :: Maybe Text
} deriving (Eq, Read, Show)
describeScalingActivitiesResponse :: DescribeScalingActivitiesResponse
describeScalingActivitiesResponse = DescribeScalingActivitiesResponse
{ _dsar1Activities = mempty
, _dsar1NextToken = Nothing
}
dsar1Activities :: Lens' DescribeScalingActivitiesResponse [Activity]
dsar1Activities = lens _dsar1Activities (\s a -> s { _dsar1Activities = a }) . _List
dsar1NextToken :: Lens' DescribeScalingActivitiesResponse (Maybe Text)
dsar1NextToken = lens _dsar1NextToken (\s a -> s { _dsar1NextToken = a })
instance ToPath DescribeScalingActivities where
toPath = const "/"
instance ToQuery DescribeScalingActivities where
toQuery DescribeScalingActivities{..} = mconcat
[ "ActivityIds" =? _dsa2ActivityIds
, "AutoScalingGroupName" =? _dsa2AutoScalingGroupName
, "MaxRecords" =? _dsa2MaxRecords
, "NextToken" =? _dsa2NextToken
]
instance ToHeaders DescribeScalingActivities
instance AWSRequest DescribeScalingActivities where
type Sv DescribeScalingActivities = AutoScaling
type Rs DescribeScalingActivities = DescribeScalingActivitiesResponse
request = post "DescribeScalingActivities"
response = xmlResponse
instance FromXML DescribeScalingActivitiesResponse where
parseXML = withElement "DescribeScalingActivitiesResult" $ \x -> DescribeScalingActivitiesResponse
<$> x .@? "Activities" .!@ mempty
<*> x .@? "NextToken"
instance AWSPager DescribeScalingActivities where
page rq rs
| stop (rq ^. dsa2NextToken) = Nothing
| otherwise = (\x -> rq & dsa2NextToken ?~ x)
<$> (rs ^. dsar1NextToken)