module Network.AWS.IoT.DeleteTopicRule
(
deleteTopicRule
, DeleteTopicRule
, dRuleName
, deleteTopicRuleResponse
, DeleteTopicRuleResponse
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteTopicRule = DeleteTopicRule'
{ _dRuleName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteTopicRule
:: Text
-> DeleteTopicRule
deleteTopicRule pRuleName_ =
DeleteTopicRule'
{ _dRuleName = pRuleName_
}
dRuleName :: Lens' DeleteTopicRule Text
dRuleName = lens _dRuleName (\ s a -> s{_dRuleName = a});
instance AWSRequest DeleteTopicRule where
type Rs DeleteTopicRule = DeleteTopicRuleResponse
request = delete ioT
response = receiveNull DeleteTopicRuleResponse'
instance Hashable DeleteTopicRule
instance NFData DeleteTopicRule
instance ToHeaders DeleteTopicRule where
toHeaders = const mempty
instance ToPath DeleteTopicRule where
toPath DeleteTopicRule'{..}
= mconcat ["/rules/", toBS _dRuleName]
instance ToQuery DeleteTopicRule where
toQuery = const mempty
data DeleteTopicRuleResponse =
DeleteTopicRuleResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteTopicRuleResponse
:: DeleteTopicRuleResponse
deleteTopicRuleResponse = DeleteTopicRuleResponse'
instance NFData DeleteTopicRuleResponse