{-# 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.SMS.DisassociateConnector
(
disassociateConnector
, DisassociateConnector
, dcConnectorId
, disassociateConnectorResponse
, DisassociateConnectorResponse
, dcrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SMS.Types
import Network.AWS.SMS.Types.Product
newtype DisassociateConnector = DisassociateConnector'
{ _dcConnectorId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disassociateConnector
:: Text
-> DisassociateConnector
disassociateConnector pConnectorId_ =
DisassociateConnector'
{ _dcConnectorId = pConnectorId_
}
dcConnectorId :: Lens' DisassociateConnector Text
dcConnectorId = lens _dcConnectorId (\ s a -> s{_dcConnectorId = a});
instance AWSRequest DisassociateConnector where
type Rs DisassociateConnector =
DisassociateConnectorResponse
request = postJSON sms
response
= receiveEmpty
(\ s h x ->
DisassociateConnectorResponse' <$>
(pure (fromEnum s)))
instance Hashable DisassociateConnector
instance NFData DisassociateConnector
instance ToHeaders DisassociateConnector where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSServerMigrationService_V2016_10_24.DisassociateConnector"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisassociateConnector where
toJSON DisassociateConnector'{..}
= object
(catMaybes [Just ("connectorId" .= _dcConnectorId)])
instance ToPath DisassociateConnector where
toPath = const "/"
instance ToQuery DisassociateConnector where
toQuery = const mempty
newtype DisassociateConnectorResponse = DisassociateConnectorResponse'
{ _dcrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disassociateConnectorResponse
:: Int
-> DisassociateConnectorResponse
disassociateConnectorResponse pResponseStatus_ =
DisassociateConnectorResponse'
{ _dcrsResponseStatus = pResponseStatus_
}
dcrsResponseStatus :: Lens' DisassociateConnectorResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
instance NFData DisassociateConnectorResponse