{-# 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.DMS.DeleteReplicationInstance
(
deleteReplicationInstance
, DeleteReplicationInstance
, driReplicationInstanceARN
, deleteReplicationInstanceResponse
, DeleteReplicationInstanceResponse
, drirsReplicationInstance
, drirsResponseStatus
) where
import Network.AWS.DMS.Types
import Network.AWS.DMS.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteReplicationInstance = DeleteReplicationInstance'
{ _driReplicationInstanceARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteReplicationInstance
:: Text
-> DeleteReplicationInstance
deleteReplicationInstance pReplicationInstanceARN_ =
DeleteReplicationInstance'
{_driReplicationInstanceARN = pReplicationInstanceARN_}
driReplicationInstanceARN :: Lens' DeleteReplicationInstance Text
driReplicationInstanceARN = lens _driReplicationInstanceARN (\ s a -> s{_driReplicationInstanceARN = a})
instance AWSRequest DeleteReplicationInstance where
type Rs DeleteReplicationInstance =
DeleteReplicationInstanceResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
DeleteReplicationInstanceResponse' <$>
(x .?> "ReplicationInstance") <*>
(pure (fromEnum s)))
instance Hashable DeleteReplicationInstance where
instance NFData DeleteReplicationInstance where
instance ToHeaders DeleteReplicationInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.DeleteReplicationInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteReplicationInstance where
toJSON DeleteReplicationInstance'{..}
= object
(catMaybes
[Just
("ReplicationInstanceArn" .=
_driReplicationInstanceARN)])
instance ToPath DeleteReplicationInstance where
toPath = const "/"
instance ToQuery DeleteReplicationInstance where
toQuery = const mempty
data DeleteReplicationInstanceResponse = DeleteReplicationInstanceResponse'
{ _drirsReplicationInstance :: !(Maybe ReplicationInstance)
, _drirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteReplicationInstanceResponse
:: Int
-> DeleteReplicationInstanceResponse
deleteReplicationInstanceResponse pResponseStatus_ =
DeleteReplicationInstanceResponse'
{ _drirsReplicationInstance = Nothing
, _drirsResponseStatus = pResponseStatus_
}
drirsReplicationInstance :: Lens' DeleteReplicationInstanceResponse (Maybe ReplicationInstance)
drirsReplicationInstance = lens _drirsReplicationInstance (\ s a -> s{_drirsReplicationInstance = a})
drirsResponseStatus :: Lens' DeleteReplicationInstanceResponse Int
drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a})
instance NFData DeleteReplicationInstanceResponse
where