{-# 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.DescribeReplicationInstances
(
describeReplicationInstances
, DescribeReplicationInstances
, driFilters
, driMarker
, driMaxRecords
, describeReplicationInstancesResponse
, DescribeReplicationInstancesResponse
, drisrsMarker
, drisrsReplicationInstances
, drisrsResponseStatus
) 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
data DescribeReplicationInstances = DescribeReplicationInstances'
{ _driFilters :: !(Maybe [Filter])
, _driMarker :: !(Maybe Text)
, _driMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeReplicationInstances
:: DescribeReplicationInstances
describeReplicationInstances =
DescribeReplicationInstances'
{ _driFilters = Nothing
, _driMarker = Nothing
, _driMaxRecords = Nothing
}
driFilters :: Lens' DescribeReplicationInstances [Filter]
driFilters = lens _driFilters (\ s a -> s{_driFilters = a}) . _Default . _Coerce;
driMarker :: Lens' DescribeReplicationInstances (Maybe Text)
driMarker = lens _driMarker (\ s a -> s{_driMarker = a});
driMaxRecords :: Lens' DescribeReplicationInstances (Maybe Int)
driMaxRecords = lens _driMaxRecords (\ s a -> s{_driMaxRecords = a});
instance AWSRequest DescribeReplicationInstances
where
type Rs DescribeReplicationInstances =
DescribeReplicationInstancesResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
DescribeReplicationInstancesResponse' <$>
(x .?> "Marker") <*>
(x .?> "ReplicationInstances" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeReplicationInstances
instance NFData DescribeReplicationInstances
instance ToHeaders DescribeReplicationInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.DescribeReplicationInstances" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeReplicationInstances where
toJSON DescribeReplicationInstances'{..}
= object
(catMaybes
[("Filters" .=) <$> _driFilters,
("Marker" .=) <$> _driMarker,
("MaxRecords" .=) <$> _driMaxRecords])
instance ToPath DescribeReplicationInstances where
toPath = const "/"
instance ToQuery DescribeReplicationInstances where
toQuery = const mempty
data DescribeReplicationInstancesResponse = DescribeReplicationInstancesResponse'
{ _drisrsMarker :: !(Maybe Text)
, _drisrsReplicationInstances :: !(Maybe [ReplicationInstance])
, _drisrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeReplicationInstancesResponse
:: Int
-> DescribeReplicationInstancesResponse
describeReplicationInstancesResponse pResponseStatus_ =
DescribeReplicationInstancesResponse'
{ _drisrsMarker = Nothing
, _drisrsReplicationInstances = Nothing
, _drisrsResponseStatus = pResponseStatus_
}
drisrsMarker :: Lens' DescribeReplicationInstancesResponse (Maybe Text)
drisrsMarker = lens _drisrsMarker (\ s a -> s{_drisrsMarker = a});
drisrsReplicationInstances :: Lens' DescribeReplicationInstancesResponse [ReplicationInstance]
drisrsReplicationInstances = lens _drisrsReplicationInstances (\ s a -> s{_drisrsReplicationInstances = a}) . _Default . _Coerce;
drisrsResponseStatus :: Lens' DescribeReplicationInstancesResponse Int
drisrsResponseStatus = lens _drisrsResponseStatus (\ s a -> s{_drisrsResponseStatus = a});
instance NFData DescribeReplicationInstancesResponse