{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CloudWatchEvents.DescribeRule
(
describeRule
, DescribeRule
, desName
, describeRuleResponse
, DescribeRuleResponse
, drrsEventPattern
, drrsState
, drrsARN
, drrsScheduleExpression
, drrsName
, drrsDescription
, drrsRoleARN
, drrsResponseStatus
) where
import Network.AWS.CloudWatchEvents.Types
import Network.AWS.CloudWatchEvents.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeRule = DescribeRule'
{ _desName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeRule
:: Text
-> DescribeRule
describeRule pName_ = DescribeRule' {_desName = pName_}
desName :: Lens' DescribeRule Text
desName = lens _desName (\ s a -> s{_desName = a})
instance AWSRequest DescribeRule where
type Rs DescribeRule = DescribeRuleResponse
request = postJSON cloudWatchEvents
response
= receiveJSON
(\ s h x ->
DescribeRuleResponse' <$>
(x .?> "EventPattern") <*> (x .?> "State") <*>
(x .?> "Arn")
<*> (x .?> "ScheduleExpression")
<*> (x .?> "Name")
<*> (x .?> "Description")
<*> (x .?> "RoleArn")
<*> (pure (fromEnum s)))
instance Hashable DescribeRule where
instance NFData DescribeRule where
instance ToHeaders DescribeRule where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSEvents.DescribeRule" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeRule where
toJSON DescribeRule'{..}
= object (catMaybes [Just ("Name" .= _desName)])
instance ToPath DescribeRule where
toPath = const "/"
instance ToQuery DescribeRule where
toQuery = const mempty
data DescribeRuleResponse = DescribeRuleResponse'
{ _drrsEventPattern :: !(Maybe Text)
, _drrsState :: !(Maybe RuleState)
, _drrsARN :: !(Maybe Text)
, _drrsScheduleExpression :: !(Maybe Text)
, _drrsName :: !(Maybe Text)
, _drrsDescription :: !(Maybe Text)
, _drrsRoleARN :: !(Maybe Text)
, _drrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeRuleResponse
:: Int
-> DescribeRuleResponse
describeRuleResponse pResponseStatus_ =
DescribeRuleResponse'
{ _drrsEventPattern = Nothing
, _drrsState = Nothing
, _drrsARN = Nothing
, _drrsScheduleExpression = Nothing
, _drrsName = Nothing
, _drrsDescription = Nothing
, _drrsRoleARN = Nothing
, _drrsResponseStatus = pResponseStatus_
}
drrsEventPattern :: Lens' DescribeRuleResponse (Maybe Text)
drrsEventPattern = lens _drrsEventPattern (\ s a -> s{_drrsEventPattern = a})
drrsState :: Lens' DescribeRuleResponse (Maybe RuleState)
drrsState = lens _drrsState (\ s a -> s{_drrsState = a})
drrsARN :: Lens' DescribeRuleResponse (Maybe Text)
drrsARN = lens _drrsARN (\ s a -> s{_drrsARN = a})
drrsScheduleExpression :: Lens' DescribeRuleResponse (Maybe Text)
drrsScheduleExpression = lens _drrsScheduleExpression (\ s a -> s{_drrsScheduleExpression = a})
drrsName :: Lens' DescribeRuleResponse (Maybe Text)
drrsName = lens _drrsName (\ s a -> s{_drrsName = a})
drrsDescription :: Lens' DescribeRuleResponse (Maybe Text)
drrsDescription = lens _drrsDescription (\ s a -> s{_drrsDescription = a})
drrsRoleARN :: Lens' DescribeRuleResponse (Maybe Text)
drrsRoleARN = lens _drrsRoleARN (\ s a -> s{_drrsRoleARN = a})
drrsResponseStatus :: Lens' DescribeRuleResponse Int
drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})
instance NFData DescribeRuleResponse where