module Network.AWS.Inspector.SubscribeToEvent
(
subscribeToEvent
, SubscribeToEvent
, steResourceARN
, steEvent
, steTopicARN
, subscribeToEventResponse
, SubscribeToEventResponse
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SubscribeToEvent = SubscribeToEvent'
{ _steResourceARN :: !Text
, _steEvent :: !InspectorEvent
, _steTopicARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
subscribeToEvent
:: Text
-> InspectorEvent
-> Text
-> SubscribeToEvent
subscribeToEvent pResourceARN_ pEvent_ pTopicARN_ =
SubscribeToEvent'
{ _steResourceARN = pResourceARN_
, _steEvent = pEvent_
, _steTopicARN = pTopicARN_
}
steResourceARN :: Lens' SubscribeToEvent Text
steResourceARN = lens _steResourceARN (\ s a -> s{_steResourceARN = a});
steEvent :: Lens' SubscribeToEvent InspectorEvent
steEvent = lens _steEvent (\ s a -> s{_steEvent = a});
steTopicARN :: Lens' SubscribeToEvent Text
steTopicARN = lens _steTopicARN (\ s a -> s{_steTopicARN = a});
instance AWSRequest SubscribeToEvent where
type Rs SubscribeToEvent = SubscribeToEventResponse
request = postJSON inspector
response = receiveNull SubscribeToEventResponse'
instance Hashable SubscribeToEvent
instance NFData SubscribeToEvent
instance ToHeaders SubscribeToEvent where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.SubscribeToEvent" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SubscribeToEvent where
toJSON SubscribeToEvent'{..}
= object
(catMaybes
[Just ("resourceArn" .= _steResourceARN),
Just ("event" .= _steEvent),
Just ("topicArn" .= _steTopicARN)])
instance ToPath SubscribeToEvent where
toPath = const "/"
instance ToQuery SubscribeToEvent where
toQuery = const mempty
data SubscribeToEventResponse =
SubscribeToEventResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
subscribeToEventResponse
:: SubscribeToEventResponse
subscribeToEventResponse = SubscribeToEventResponse'
instance NFData SubscribeToEventResponse