{-# 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.CreateChannel
(
createChannel
, CreateChannel
, ccRetentionPeriod
, ccChannelName
, createChannelResponse
, CreateChannelResponse
, ccrsChannelARN
, ccrsRetentionPeriod
, ccrsChannelName
, ccrsResponseStatus
) 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
data CreateChannel = CreateChannel'
{ _ccRetentionPeriod :: !(Maybe RetentionPeriod)
, _ccChannelName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createChannel
:: Text
-> CreateChannel
createChannel pChannelName_ =
CreateChannel' {_ccRetentionPeriod = Nothing, _ccChannelName = pChannelName_}
ccRetentionPeriod :: Lens' CreateChannel (Maybe RetentionPeriod)
ccRetentionPeriod = lens _ccRetentionPeriod (\ s a -> s{_ccRetentionPeriod = a})
ccChannelName :: Lens' CreateChannel Text
ccChannelName = lens _ccChannelName (\ s a -> s{_ccChannelName = a})
instance AWSRequest CreateChannel where
type Rs CreateChannel = CreateChannelResponse
request = postJSON ioTAnalytics
response
= receiveJSON
(\ s h x ->
CreateChannelResponse' <$>
(x .?> "channelArn") <*> (x .?> "retentionPeriod")
<*> (x .?> "channelName")
<*> (pure (fromEnum s)))
instance Hashable CreateChannel where
instance NFData CreateChannel where
instance ToHeaders CreateChannel where
toHeaders = const mempty
instance ToJSON CreateChannel where
toJSON CreateChannel'{..}
= object
(catMaybes
[("retentionPeriod" .=) <$> _ccRetentionPeriod,
Just ("channelName" .= _ccChannelName)])
instance ToPath CreateChannel where
toPath = const "/channels"
instance ToQuery CreateChannel where
toQuery = const mempty
data CreateChannelResponse = CreateChannelResponse'
{ _ccrsChannelARN :: !(Maybe Text)
, _ccrsRetentionPeriod :: !(Maybe RetentionPeriod)
, _ccrsChannelName :: !(Maybe Text)
, _ccrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createChannelResponse
:: Int
-> CreateChannelResponse
createChannelResponse pResponseStatus_ =
CreateChannelResponse'
{ _ccrsChannelARN = Nothing
, _ccrsRetentionPeriod = Nothing
, _ccrsChannelName = Nothing
, _ccrsResponseStatus = pResponseStatus_
}
ccrsChannelARN :: Lens' CreateChannelResponse (Maybe Text)
ccrsChannelARN = lens _ccrsChannelARN (\ s a -> s{_ccrsChannelARN = a})
ccrsRetentionPeriod :: Lens' CreateChannelResponse (Maybe RetentionPeriod)
ccrsRetentionPeriod = lens _ccrsRetentionPeriod (\ s a -> s{_ccrsRetentionPeriod = a})
ccrsChannelName :: Lens' CreateChannelResponse (Maybe Text)
ccrsChannelName = lens _ccrsChannelName (\ s a -> s{_ccrsChannelName = a})
ccrsResponseStatus :: Lens' CreateChannelResponse Int
ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})
instance NFData CreateChannelResponse where