module Network.AWS.DMS.DescribeOrderableReplicationInstances
(
describeOrderableReplicationInstances
, DescribeOrderableReplicationInstances
, doriMarker
, doriMaxRecords
, describeOrderableReplicationInstancesResponse
, DescribeOrderableReplicationInstancesResponse
, dorirsMarker
, dorirsOrderableReplicationInstances
, dorirsResponseStatus
) 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 DescribeOrderableReplicationInstances = DescribeOrderableReplicationInstances'
{ _doriMarker :: !(Maybe Text)
, _doriMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeOrderableReplicationInstances
:: DescribeOrderableReplicationInstances
describeOrderableReplicationInstances =
DescribeOrderableReplicationInstances'
{ _doriMarker = Nothing
, _doriMaxRecords = Nothing
}
doriMarker :: Lens' DescribeOrderableReplicationInstances (Maybe Text)
doriMarker = lens _doriMarker (\ s a -> s{_doriMarker = a});
doriMaxRecords :: Lens' DescribeOrderableReplicationInstances (Maybe Int)
doriMaxRecords = lens _doriMaxRecords (\ s a -> s{_doriMaxRecords = a});
instance AWSRequest
DescribeOrderableReplicationInstances where
type Rs DescribeOrderableReplicationInstances =
DescribeOrderableReplicationInstancesResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
DescribeOrderableReplicationInstancesResponse' <$>
(x .?> "Marker") <*>
(x .?> "OrderableReplicationInstances" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable
DescribeOrderableReplicationInstances
instance NFData DescribeOrderableReplicationInstances
instance ToHeaders
DescribeOrderableReplicationInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.DescribeOrderableReplicationInstances"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeOrderableReplicationInstances
where
toJSON DescribeOrderableReplicationInstances'{..}
= object
(catMaybes
[("Marker" .=) <$> _doriMarker,
("MaxRecords" .=) <$> _doriMaxRecords])
instance ToPath DescribeOrderableReplicationInstances
where
toPath = const "/"
instance ToQuery
DescribeOrderableReplicationInstances where
toQuery = const mempty
data DescribeOrderableReplicationInstancesResponse = DescribeOrderableReplicationInstancesResponse'
{ _dorirsMarker :: !(Maybe Text)
, _dorirsOrderableReplicationInstances :: !(Maybe [OrderableReplicationInstance])
, _dorirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeOrderableReplicationInstancesResponse
:: Int
-> DescribeOrderableReplicationInstancesResponse
describeOrderableReplicationInstancesResponse pResponseStatus_ =
DescribeOrderableReplicationInstancesResponse'
{ _dorirsMarker = Nothing
, _dorirsOrderableReplicationInstances = Nothing
, _dorirsResponseStatus = pResponseStatus_
}
dorirsMarker :: Lens' DescribeOrderableReplicationInstancesResponse (Maybe Text)
dorirsMarker = lens _dorirsMarker (\ s a -> s{_dorirsMarker = a});
dorirsOrderableReplicationInstances :: Lens' DescribeOrderableReplicationInstancesResponse [OrderableReplicationInstance]
dorirsOrderableReplicationInstances = lens _dorirsOrderableReplicationInstances (\ s a -> s{_dorirsOrderableReplicationInstances = a}) . _Default . _Coerce;
dorirsResponseStatus :: Lens' DescribeOrderableReplicationInstancesResponse Int
dorirsResponseStatus = lens _dorirsResponseStatus (\ s a -> s{_dorirsResponseStatus = a});
instance NFData
DescribeOrderableReplicationInstancesResponse