{-# 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.Firehose.UntagDeliveryStream
(
untagDeliveryStream
, UntagDeliveryStream
, udsDeliveryStreamName
, udsTagKeys
, untagDeliveryStreamResponse
, UntagDeliveryStreamResponse
, udsrsResponseStatus
) where
import Network.AWS.Firehose.Types
import Network.AWS.Firehose.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UntagDeliveryStream = UntagDeliveryStream'
{ _udsDeliveryStreamName :: !Text
, _udsTagKeys :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
untagDeliveryStream
:: Text
-> NonEmpty Text
-> UntagDeliveryStream
untagDeliveryStream pDeliveryStreamName_ pTagKeys_ =
UntagDeliveryStream'
{ _udsDeliveryStreamName = pDeliveryStreamName_
, _udsTagKeys = _List1 # pTagKeys_
}
udsDeliveryStreamName :: Lens' UntagDeliveryStream Text
udsDeliveryStreamName = lens _udsDeliveryStreamName (\ s a -> s{_udsDeliveryStreamName = a})
udsTagKeys :: Lens' UntagDeliveryStream (NonEmpty Text)
udsTagKeys = lens _udsTagKeys (\ s a -> s{_udsTagKeys = a}) . _List1
instance AWSRequest UntagDeliveryStream where
type Rs UntagDeliveryStream =
UntagDeliveryStreamResponse
request = postJSON firehose
response
= receiveEmpty
(\ s h x ->
UntagDeliveryStreamResponse' <$> (pure (fromEnum s)))
instance Hashable UntagDeliveryStream where
instance NFData UntagDeliveryStream where
instance ToHeaders UntagDeliveryStream where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Firehose_20150804.UntagDeliveryStream" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UntagDeliveryStream where
toJSON UntagDeliveryStream'{..}
= object
(catMaybes
[Just
("DeliveryStreamName" .= _udsDeliveryStreamName),
Just ("TagKeys" .= _udsTagKeys)])
instance ToPath UntagDeliveryStream where
toPath = const "/"
instance ToQuery UntagDeliveryStream where
toQuery = const mempty
newtype UntagDeliveryStreamResponse = UntagDeliveryStreamResponse'
{ _udsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
untagDeliveryStreamResponse
:: Int
-> UntagDeliveryStreamResponse
untagDeliveryStreamResponse pResponseStatus_ =
UntagDeliveryStreamResponse' {_udsrsResponseStatus = pResponseStatus_}
udsrsResponseStatus :: Lens' UntagDeliveryStreamResponse Int
udsrsResponseStatus = lens _udsrsResponseStatus (\ s a -> s{_udsrsResponseStatus = a})
instance NFData UntagDeliveryStreamResponse where