{-# 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 where
instance NFData DisassociateConnector where
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 where