{-# 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.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 where
instance NFData DeleteTopicRule where
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 where