module Network.AWS.OpsWorks.DescribeServiceErrors
(
DescribeServiceErrors
, describeServiceErrors
, dseInstanceId
, dseServiceErrorIds
, dseStackId
, DescribeServiceErrorsResponse
, describeServiceErrorsResponse
, dserServiceErrors
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data DescribeServiceErrors = DescribeServiceErrors
{ _dseInstanceId :: Maybe Text
, _dseServiceErrorIds :: List "ServiceErrorIds" Text
, _dseStackId :: Maybe Text
} deriving (Eq, Ord, Show)
describeServiceErrors :: DescribeServiceErrors
describeServiceErrors = DescribeServiceErrors
{ _dseStackId = Nothing
, _dseInstanceId = Nothing
, _dseServiceErrorIds = mempty
}
dseInstanceId :: Lens' DescribeServiceErrors (Maybe Text)
dseInstanceId = lens _dseInstanceId (\s a -> s { _dseInstanceId = a })
dseServiceErrorIds :: Lens' DescribeServiceErrors [Text]
dseServiceErrorIds =
lens _dseServiceErrorIds (\s a -> s { _dseServiceErrorIds = a })
. _List
dseStackId :: Lens' DescribeServiceErrors (Maybe Text)
dseStackId = lens _dseStackId (\s a -> s { _dseStackId = a })
newtype DescribeServiceErrorsResponse = DescribeServiceErrorsResponse
{ _dserServiceErrors :: List "ServiceErrors" ServiceError'
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeServiceErrorsResponse where
type Item DescribeServiceErrorsResponse = ServiceError'
fromList = DescribeServiceErrorsResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dserServiceErrors
describeServiceErrorsResponse :: DescribeServiceErrorsResponse
describeServiceErrorsResponse = DescribeServiceErrorsResponse
{ _dserServiceErrors = mempty
}
dserServiceErrors :: Lens' DescribeServiceErrorsResponse [ServiceError']
dserServiceErrors =
lens _dserServiceErrors (\s a -> s { _dserServiceErrors = a })
. _List
instance ToPath DescribeServiceErrors where
toPath = const "/"
instance ToQuery DescribeServiceErrors where
toQuery = const mempty
instance ToHeaders DescribeServiceErrors
instance ToJSON DescribeServiceErrors where
toJSON DescribeServiceErrors{..} = object
[ "StackId" .= _dseStackId
, "InstanceId" .= _dseInstanceId
, "ServiceErrorIds" .= _dseServiceErrorIds
]
instance AWSRequest DescribeServiceErrors where
type Sv DescribeServiceErrors = OpsWorks
type Rs DescribeServiceErrors = DescribeServiceErrorsResponse
request = post "DescribeServiceErrors"
response = jsonResponse
instance FromJSON DescribeServiceErrorsResponse where
parseJSON = withObject "DescribeServiceErrorsResponse" $ \o -> DescribeServiceErrorsResponse
<$> o .:? "ServiceErrors" .!= mempty