module Network.AWS.OpsWorks.DescribeServiceErrors
(
describeServiceErrors
, DescribeServiceErrors
, dseInstanceId
, dseServiceErrorIds
, dseStackId
, describeServiceErrorsResponse
, DescribeServiceErrorsResponse
, dsersServiceErrors
, dsersStatus
) where
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeServiceErrors = DescribeServiceErrors'
{ _dseInstanceId :: !(Maybe Text)
, _dseServiceErrorIds :: !(Maybe [Text])
, _dseStackId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeServiceErrors
:: DescribeServiceErrors
describeServiceErrors =
DescribeServiceErrors'
{ _dseInstanceId = Nothing
, _dseServiceErrorIds = Nothing
, _dseStackId = Nothing
}
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}) . _Default . _Coerce;
dseStackId :: Lens' DescribeServiceErrors (Maybe Text)
dseStackId = lens _dseStackId (\ s a -> s{_dseStackId = a});
instance AWSRequest DescribeServiceErrors where
type Rs DescribeServiceErrors =
DescribeServiceErrorsResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeServiceErrorsResponse' <$>
(x .?> "ServiceErrors" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders DescribeServiceErrors where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeServiceErrors" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeServiceErrors where
toJSON DescribeServiceErrors'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _dseInstanceId,
("ServiceErrorIds" .=) <$> _dseServiceErrorIds,
("StackId" .=) <$> _dseStackId])
instance ToPath DescribeServiceErrors where
toPath = const "/"
instance ToQuery DescribeServiceErrors where
toQuery = const mempty
data DescribeServiceErrorsResponse = DescribeServiceErrorsResponse'
{ _dsersServiceErrors :: !(Maybe [ServiceError'])
, _dsersStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeServiceErrorsResponse
:: Int
-> DescribeServiceErrorsResponse
describeServiceErrorsResponse pStatus_ =
DescribeServiceErrorsResponse'
{ _dsersServiceErrors = Nothing
, _dsersStatus = pStatus_
}
dsersServiceErrors :: Lens' DescribeServiceErrorsResponse [ServiceError']
dsersServiceErrors = lens _dsersServiceErrors (\ s a -> s{_dsersServiceErrors = a}) . _Default . _Coerce;
dsersStatus :: Lens' DescribeServiceErrorsResponse Int
dsersStatus = lens _dsersStatus (\ s a -> s{_dsersStatus = a});