module Network.AWS.OpsWorks.DescribeServiceErrors
(
describeServiceErrors
, DescribeServiceErrors
, dseInstanceId
, dseStackId
, dseServiceErrorIds
, describeServiceErrorsResponse
, DescribeServiceErrorsResponse
, dsersServiceErrors
, dsersResponseStatus
) where
import Network.AWS.Lens
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)
, _dseStackId :: !(Maybe Text)
, _dseServiceErrorIds :: !(Maybe [Text])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeServiceErrors
:: DescribeServiceErrors
describeServiceErrors =
DescribeServiceErrors'
{ _dseInstanceId = Nothing
, _dseStackId = Nothing
, _dseServiceErrorIds = Nothing
}
dseInstanceId :: Lens' DescribeServiceErrors (Maybe Text)
dseInstanceId = lens _dseInstanceId (\ s a -> s{_dseInstanceId = a});
dseStackId :: Lens' DescribeServiceErrors (Maybe Text)
dseStackId = lens _dseStackId (\ s a -> s{_dseStackId = a});
dseServiceErrorIds :: Lens' DescribeServiceErrors [Text]
dseServiceErrorIds = lens _dseServiceErrorIds (\ s a -> s{_dseServiceErrorIds = a}) . _Default . _Coerce;
instance AWSRequest DescribeServiceErrors where
type Rs DescribeServiceErrors =
DescribeServiceErrorsResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeServiceErrorsResponse' <$>
(x .?> "ServiceErrors" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeServiceErrors
instance NFData DescribeServiceErrors
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,
("StackId" .=) <$> _dseStackId,
("ServiceErrorIds" .=) <$> _dseServiceErrorIds])
instance ToPath DescribeServiceErrors where
toPath = const "/"
instance ToQuery DescribeServiceErrors where
toQuery = const mempty
data DescribeServiceErrorsResponse = DescribeServiceErrorsResponse'
{ _dsersServiceErrors :: !(Maybe [ServiceError'])
, _dsersResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeServiceErrorsResponse
:: Int
-> DescribeServiceErrorsResponse
describeServiceErrorsResponse pResponseStatus_ =
DescribeServiceErrorsResponse'
{ _dsersServiceErrors = Nothing
, _dsersResponseStatus = pResponseStatus_
}
dsersServiceErrors :: Lens' DescribeServiceErrorsResponse [ServiceError']
dsersServiceErrors = lens _dsersServiceErrors (\ s a -> s{_dsersServiceErrors = a}) . _Default . _Coerce;
dsersResponseStatus :: Lens' DescribeServiceErrorsResponse Int
dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a});
instance NFData DescribeServiceErrorsResponse