module Network.AWS.AWSHealth.DescribeEventDetails
(
describeEventDetails
, DescribeEventDetails
, dedLocale
, dedEventARNs
, describeEventDetailsResponse
, DescribeEventDetailsResponse
, dedrsSuccessfulSet
, dedrsFailedSet
, dedrsResponseStatus
) where
import Network.AWS.AWSHealth.Types
import Network.AWS.AWSHealth.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeEventDetails = DescribeEventDetails'
{ _dedLocale :: !(Maybe Text)
, _dedEventARNs :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEventDetails
:: NonEmpty Text
-> DescribeEventDetails
describeEventDetails pEventARNs_ =
DescribeEventDetails'
{_dedLocale = Nothing, _dedEventARNs = _List1 # pEventARNs_}
dedLocale :: Lens' DescribeEventDetails (Maybe Text)
dedLocale = lens _dedLocale (\ s a -> s{_dedLocale = a});
dedEventARNs :: Lens' DescribeEventDetails (NonEmpty Text)
dedEventARNs = lens _dedEventARNs (\ s a -> s{_dedEventARNs = a}) . _List1;
instance AWSRequest DescribeEventDetails where
type Rs DescribeEventDetails =
DescribeEventDetailsResponse
request = postJSON awsHealth
response
= receiveJSON
(\ s h x ->
DescribeEventDetailsResponse' <$>
(x .?> "successfulSet" .!@ mempty) <*>
(x .?> "failedSet" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeEventDetails where
instance NFData DescribeEventDetails where
instance ToHeaders DescribeEventDetails where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSHealth_20160804.DescribeEventDetails" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEventDetails where
toJSON DescribeEventDetails'{..}
= object
(catMaybes
[("locale" .=) <$> _dedLocale,
Just ("eventArns" .= _dedEventARNs)])
instance ToPath DescribeEventDetails where
toPath = const "/"
instance ToQuery DescribeEventDetails where
toQuery = const mempty
data DescribeEventDetailsResponse = DescribeEventDetailsResponse'
{ _dedrsSuccessfulSet :: !(Maybe [EventDetails])
, _dedrsFailedSet :: !(Maybe [EventDetailsErrorItem])
, _dedrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEventDetailsResponse
:: Int
-> DescribeEventDetailsResponse
describeEventDetailsResponse pResponseStatus_ =
DescribeEventDetailsResponse'
{ _dedrsSuccessfulSet = Nothing
, _dedrsFailedSet = Nothing
, _dedrsResponseStatus = pResponseStatus_
}
dedrsSuccessfulSet :: Lens' DescribeEventDetailsResponse [EventDetails]
dedrsSuccessfulSet = lens _dedrsSuccessfulSet (\ s a -> s{_dedrsSuccessfulSet = a}) . _Default . _Coerce;
dedrsFailedSet :: Lens' DescribeEventDetailsResponse [EventDetailsErrorItem]
dedrsFailedSet = lens _dedrsFailedSet (\ s a -> s{_dedrsFailedSet = a}) . _Default . _Coerce;
dedrsResponseStatus :: Lens' DescribeEventDetailsResponse Int
dedrsResponseStatus = lens _dedrsResponseStatus (\ s a -> s{_dedrsResponseStatus = a});
instance NFData DescribeEventDetailsResponse where