{-# 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.DeleteReplicationTask
(
deleteReplicationTask
, DeleteReplicationTask
, drtReplicationTaskARN
, deleteReplicationTaskResponse
, DeleteReplicationTaskResponse
, drtrsReplicationTask
, drtrsResponseStatus
) 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 DeleteReplicationTask = DeleteReplicationTask'
{ _drtReplicationTaskARN :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteReplicationTask
:: Text
-> DeleteReplicationTask
deleteReplicationTask pReplicationTaskARN_ =
DeleteReplicationTask'
{ _drtReplicationTaskARN = pReplicationTaskARN_
}
drtReplicationTaskARN :: Lens' DeleteReplicationTask Text
drtReplicationTaskARN = lens _drtReplicationTaskARN (\ s a -> s{_drtReplicationTaskARN = a});
instance AWSRequest DeleteReplicationTask where
type Rs DeleteReplicationTask =
DeleteReplicationTaskResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
DeleteReplicationTaskResponse' <$>
(x .?> "ReplicationTask") <*> (pure (fromEnum s)))
instance Hashable DeleteReplicationTask
instance NFData DeleteReplicationTask
instance ToHeaders DeleteReplicationTask where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.DeleteReplicationTask" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteReplicationTask where
toJSON DeleteReplicationTask'{..}
= object
(catMaybes
[Just
("ReplicationTaskArn" .= _drtReplicationTaskARN)])
instance ToPath DeleteReplicationTask where
toPath = const "/"
instance ToQuery DeleteReplicationTask where
toQuery = const mempty
data DeleteReplicationTaskResponse = DeleteReplicationTaskResponse'
{ _drtrsReplicationTask :: !(Maybe ReplicationTask)
, _drtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteReplicationTaskResponse
:: Int
-> DeleteReplicationTaskResponse
deleteReplicationTaskResponse pResponseStatus_ =
DeleteReplicationTaskResponse'
{ _drtrsReplicationTask = Nothing
, _drtrsResponseStatus = pResponseStatus_
}
drtrsReplicationTask :: Lens' DeleteReplicationTaskResponse (Maybe ReplicationTask)
drtrsReplicationTask = lens _drtrsReplicationTask (\ s a -> s{_drtrsReplicationTask = a});
drtrsResponseStatus :: Lens' DeleteReplicationTaskResponse Int
drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a});
instance NFData DeleteReplicationTaskResponse