{-# 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.DescribeChannel
(
describeChannel
, DescribeChannel
, dChannelName
, describeChannelResponse
, DescribeChannelResponse
, dcrsChannel
, dcrsResponseStatus
) 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 DescribeChannel = DescribeChannel'
{ _dChannelName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeChannel
:: Text
-> DescribeChannel
describeChannel pChannelName_ = DescribeChannel' {_dChannelName = pChannelName_}
dChannelName :: Lens' DescribeChannel Text
dChannelName = lens _dChannelName (\ s a -> s{_dChannelName = a})
instance AWSRequest DescribeChannel where
type Rs DescribeChannel = DescribeChannelResponse
request = get ioTAnalytics
response
= receiveJSON
(\ s h x ->
DescribeChannelResponse' <$>
(x .?> "channel") <*> (pure (fromEnum s)))
instance Hashable DescribeChannel where
instance NFData DescribeChannel where
instance ToHeaders DescribeChannel where
toHeaders = const mempty
instance ToPath DescribeChannel where
toPath DescribeChannel'{..}
= mconcat ["/channels/", toBS _dChannelName]
instance ToQuery DescribeChannel where
toQuery = const mempty
data DescribeChannelResponse = DescribeChannelResponse'
{ _dcrsChannel :: !(Maybe Channel)
, _dcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeChannelResponse
:: Int
-> DescribeChannelResponse
describeChannelResponse pResponseStatus_ =
DescribeChannelResponse'
{_dcrsChannel = Nothing, _dcrsResponseStatus = pResponseStatus_}
dcrsChannel :: Lens' DescribeChannelResponse (Maybe Channel)
dcrsChannel = lens _dcrsChannel (\ s a -> s{_dcrsChannel = a})
dcrsResponseStatus :: Lens' DescribeChannelResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
instance NFData DescribeChannelResponse where