module Network.AWS.Support.DescribeSeverityLevels
(
DescribeSeverityLevels
, describeSeverityLevels
, dslLanguage
, DescribeSeverityLevelsResponse
, describeSeverityLevelsResponse
, dslrSeverityLevels
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.Support.Types
import qualified GHC.Exts
newtype DescribeSeverityLevels = DescribeSeverityLevels
{ _dslLanguage :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
describeSeverityLevels :: DescribeSeverityLevels
describeSeverityLevels = DescribeSeverityLevels
{ _dslLanguage = Nothing
}
dslLanguage :: Lens' DescribeSeverityLevels (Maybe Text)
dslLanguage = lens _dslLanguage (\s a -> s { _dslLanguage = a })
newtype DescribeSeverityLevelsResponse = DescribeSeverityLevelsResponse
{ _dslrSeverityLevels :: List "severityLevels" SeverityLevel
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeSeverityLevelsResponse where
type Item DescribeSeverityLevelsResponse = SeverityLevel
fromList = DescribeSeverityLevelsResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dslrSeverityLevels
describeSeverityLevelsResponse :: DescribeSeverityLevelsResponse
describeSeverityLevelsResponse = DescribeSeverityLevelsResponse
{ _dslrSeverityLevels = mempty
}
dslrSeverityLevels :: Lens' DescribeSeverityLevelsResponse [SeverityLevel]
dslrSeverityLevels =
lens _dslrSeverityLevels (\s a -> s { _dslrSeverityLevels = a })
. _List
instance ToPath DescribeSeverityLevels where
toPath = const "/"
instance ToQuery DescribeSeverityLevels where
toQuery = const mempty
instance ToHeaders DescribeSeverityLevels
instance ToJSON DescribeSeverityLevels where
toJSON DescribeSeverityLevels{..} = object
[ "language" .= _dslLanguage
]
instance AWSRequest DescribeSeverityLevels where
type Sv DescribeSeverityLevels = Support
type Rs DescribeSeverityLevels = DescribeSeverityLevelsResponse
request = post "DescribeSeverityLevels"
response = jsonResponse
instance FromJSON DescribeSeverityLevelsResponse where
parseJSON = withObject "DescribeSeverityLevelsResponse" $ \o -> DescribeSeverityLevelsResponse
<$> o .:? "severityLevels" .!= mempty