{-# 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.MQ.DeleteBroker
(
deleteBroker
, DeleteBroker
, dbBrokerId
, deleteBrokerResponse
, DeleteBrokerResponse
, drsBrokerId
, drsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MQ.Types
import Network.AWS.MQ.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteBroker = DeleteBroker'
{ _dbBrokerId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBroker
:: Text
-> DeleteBroker
deleteBroker pBrokerId_ = DeleteBroker' {_dbBrokerId = pBrokerId_}
dbBrokerId :: Lens' DeleteBroker Text
dbBrokerId = lens _dbBrokerId (\ s a -> s{_dbBrokerId = a})
instance AWSRequest DeleteBroker where
type Rs DeleteBroker = DeleteBrokerResponse
request = delete mq
response
= receiveJSON
(\ s h x ->
DeleteBrokerResponse' <$>
(x .?> "brokerId") <*> (pure (fromEnum s)))
instance Hashable DeleteBroker where
instance NFData DeleteBroker where
instance ToHeaders DeleteBroker where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteBroker where
toPath DeleteBroker'{..}
= mconcat ["/v1/brokers/", toBS _dbBrokerId]
instance ToQuery DeleteBroker where
toQuery = const mempty
data DeleteBrokerResponse = DeleteBrokerResponse'
{ _drsBrokerId :: !(Maybe Text)
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBrokerResponse
:: Int
-> DeleteBrokerResponse
deleteBrokerResponse pResponseStatus_ =
DeleteBrokerResponse'
{_drsBrokerId = Nothing, _drsResponseStatus = pResponseStatus_}
drsBrokerId :: Lens' DeleteBrokerResponse (Maybe Text)
drsBrokerId = lens _drsBrokerId (\ s a -> s{_drsBrokerId = a})
drsResponseStatus :: Lens' DeleteBrokerResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DeleteBrokerResponse where