module Network.AWS.Redshift.DeleteEventSubscription
(
DeleteEventSubscription
, deleteEventSubscription
, desSubscriptionName
, DeleteEventSubscriptionResponse
, deleteEventSubscriptionResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.Redshift.Types
import qualified GHC.Exts
newtype DeleteEventSubscription = DeleteEventSubscription
{ _desSubscriptionName :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteEventSubscription :: Text
-> DeleteEventSubscription
deleteEventSubscription p1 = DeleteEventSubscription
{ _desSubscriptionName = p1
}
desSubscriptionName :: Lens' DeleteEventSubscription Text
desSubscriptionName =
lens _desSubscriptionName (\s a -> s { _desSubscriptionName = a })
data DeleteEventSubscriptionResponse = DeleteEventSubscriptionResponse
deriving (Eq, Ord, Read, Show, Generic)
deleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse
deleteEventSubscriptionResponse = DeleteEventSubscriptionResponse
instance ToPath DeleteEventSubscription where
toPath = const "/"
instance ToQuery DeleteEventSubscription where
toQuery DeleteEventSubscription{..} = mconcat
[ "SubscriptionName" =? _desSubscriptionName
]
instance ToHeaders DeleteEventSubscription
instance AWSRequest DeleteEventSubscription where
type Sv DeleteEventSubscription = Redshift
type Rs DeleteEventSubscription = DeleteEventSubscriptionResponse
request = post "DeleteEventSubscription"
response = nullResponse DeleteEventSubscriptionResponse