{-# 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.Config.PutDeliveryChannel
(
putDeliveryChannel
, PutDeliveryChannel
, pdcDeliveryChannel
, putDeliveryChannelResponse
, PutDeliveryChannelResponse
) where
import Network.AWS.Config.Types
import Network.AWS.Config.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype PutDeliveryChannel = PutDeliveryChannel'
{ _pdcDeliveryChannel :: DeliveryChannel
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putDeliveryChannel
:: DeliveryChannel
-> PutDeliveryChannel
putDeliveryChannel pDeliveryChannel_ =
PutDeliveryChannel'
{ _pdcDeliveryChannel = pDeliveryChannel_
}
pdcDeliveryChannel :: Lens' PutDeliveryChannel DeliveryChannel
pdcDeliveryChannel = lens _pdcDeliveryChannel (\ s a -> s{_pdcDeliveryChannel = a});
instance AWSRequest PutDeliveryChannel where
type Rs PutDeliveryChannel =
PutDeliveryChannelResponse
request = postJSON config
response = receiveNull PutDeliveryChannelResponse'
instance Hashable PutDeliveryChannel
instance NFData PutDeliveryChannel
instance ToHeaders PutDeliveryChannel where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StarlingDoveService.PutDeliveryChannel" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutDeliveryChannel where
toJSON PutDeliveryChannel'{..}
= object
(catMaybes
[Just ("DeliveryChannel" .= _pdcDeliveryChannel)])
instance ToPath PutDeliveryChannel where
toPath = const "/"
instance ToQuery PutDeliveryChannel where
toQuery = const mempty
data PutDeliveryChannelResponse =
PutDeliveryChannelResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
putDeliveryChannelResponse
:: PutDeliveryChannelResponse
putDeliveryChannelResponse = PutDeliveryChannelResponse'
instance NFData PutDeliveryChannelResponse