module Network.AWS.AutoScaling.DescribeAdjustmentTypes
(
DescribeAdjustmentTypes
, describeAdjustmentTypes
, DescribeAdjustmentTypesResponse
, describeAdjustmentTypesResponse
, datrAdjustmentTypes
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.AutoScaling.Types
import qualified GHC.Exts
data DescribeAdjustmentTypes = DescribeAdjustmentTypes
deriving (Eq, Ord, Show, Generic)
describeAdjustmentTypes :: DescribeAdjustmentTypes
describeAdjustmentTypes = DescribeAdjustmentTypes
newtype DescribeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse
{ _datrAdjustmentTypes :: List "member" AdjustmentType
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeAdjustmentTypesResponse where
type Item DescribeAdjustmentTypesResponse = AdjustmentType
fromList = DescribeAdjustmentTypesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _datrAdjustmentTypes
describeAdjustmentTypesResponse :: DescribeAdjustmentTypesResponse
describeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse
{ _datrAdjustmentTypes = mempty
}
datrAdjustmentTypes :: Lens' DescribeAdjustmentTypesResponse [AdjustmentType]
datrAdjustmentTypes =
lens _datrAdjustmentTypes (\s a -> s { _datrAdjustmentTypes = a })
. _List
instance ToPath DescribeAdjustmentTypes where
toPath = const "/"
instance ToQuery DescribeAdjustmentTypes where
toQuery = const mempty
instance ToHeaders DescribeAdjustmentTypes
instance AWSRequest DescribeAdjustmentTypes where
type Sv DescribeAdjustmentTypes = AutoScaling
type Rs DescribeAdjustmentTypes = DescribeAdjustmentTypesResponse
request = post "DescribeAdjustmentTypes"
response = xmlResponse
instance FromXML DescribeAdjustmentTypesResponse where
parseXML = withElement "DescribeAdjustmentTypesResult" $ \x -> DescribeAdjustmentTypesResponse
<$> x .@? "AdjustmentTypes" .!@ mempty