{-# 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.IoTAnalytics.DeleteChannel
(
deleteChannel
, DeleteChannel
, dcChannelName
, deleteChannelResponse
, DeleteChannelResponse
) where
import Network.AWS.IoTAnalytics.Types
import Network.AWS.IoTAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteChannel = DeleteChannel'
{ _dcChannelName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteChannel
:: Text
-> DeleteChannel
deleteChannel pChannelName_ = DeleteChannel' {_dcChannelName = pChannelName_}
dcChannelName :: Lens' DeleteChannel Text
dcChannelName = lens _dcChannelName (\ s a -> s{_dcChannelName = a})
instance AWSRequest DeleteChannel where
type Rs DeleteChannel = DeleteChannelResponse
request = delete ioTAnalytics
response = receiveNull DeleteChannelResponse'
instance Hashable DeleteChannel where
instance NFData DeleteChannel where
instance ToHeaders DeleteChannel where
toHeaders = const mempty
instance ToPath DeleteChannel where
toPath DeleteChannel'{..}
= mconcat ["/channels/", toBS _dcChannelName]
instance ToQuery DeleteChannel where
toQuery = const mempty
data DeleteChannelResponse =
DeleteChannelResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteChannelResponse
:: DeleteChannelResponse
deleteChannelResponse = DeleteChannelResponse'
instance NFData DeleteChannelResponse where